Produced by Araxis Merge on 9/25/2018 2:13:29 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YTAR.RTN | Thu Sep 6 11:30:12 2018 UTC |
2 | build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN | YTAR.RTN | Wed Sep 12 18:10:55 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 168 |
Changed | 2 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | Cache for UNIX^INT^L oad Initia l Release MH VistA S ource^~For mat=Cache. S~^RAW | |
2 | %RO on 14 Mar 2017 6:10 PM | |
3 | YTAR^INT^1 ^63910,748 46^0 | |
4 | YTAR ;SLC/ DKG,SLC/TG A-ADMINIST ER & RESUM E TESTS ;5 /30/02 14 :54 | |
5 | ;;5.01;ME NTAL HEALT H;**37,54, 76**;Dec 3 0, 1994 | |
6 | ; | |
7 | W:YSNT>0 !!?10,"--- Previous Instrument s ---",! S B=$S(YSNT <11:YSNT,1 :YSNT+1\2) | |
8 | F K=1:1:B S YSDT=$P (A1(K),U,2 ) D DAT W !?15,$P(A1 (K),U),?22 ,YSDT I B' =YSNT,$D(A 1(B+K)) W ?50,$P(A1( B+K),U) S YSDT=$P(A1 (B+K),U,2) D DAT W ? 57,YSDT | |
9 | I $D(YSCL ERK) G ^YT CLERK | |
10 | S:'$D(T1) T1=0 I $D (^YTD(601. 4,YSDFN,1, "B")) G ^Y TAR1 | |
11 | A10 ; | |
12 | W !!!?2," Do you wan t DEMO pro gram admin istered" S %=2 D YN^ DICN G:%<0 KAR^YTS | |
13 | I '% W !? 4,"The DEM O program teaches th e patient to use the terminal. " G A10 | |
14 | S YSDEMO= $S(%=1:"Y" ,1:"N") | |
15 | A11 ; | |
16 | W !! S DI C="^VA(200 ,",DIC(0)= "AEQM",DIC ("A")="Pro fessional requesting instrumen t: ",DIC(" B")=DUZ D ^DIC K DIC I Y'>0 G KAR^YTS | |
17 | I DUZ'=+Y W !!?2,"A message w ill be sen t to ",$P( ^VA(200,+Y ,0),U) R " OK? Y// " ,A:DTIME S YSTOUT='$ T,YSUOUT=A ["^" G:YST OUT!YSUOUT !(A["N")!( A["n") KAR ^YTS S:A=" " A="Y" I "Yy"'[$E(A ) W:A'["?" " ?",$C(7 ) D MSG1 G A11 | |
18 | S YSORD=+ Y,YSORD(0) =$P(Y,U,2) ,YSORDP=$S ($D(^XUSEC ("YSP",YSO RD)):0,1:2 ) I YSORDP >0 S YSORD D=$S($D(^X USEC("YSP" ,DUZ)):0,1 :2) | |
19 | G:T1 A3 ; -> | |
20 | W $C(7),! !,$P(^VA(2 00,YSORD,0 ),U)," may order ",$ P($T(ORD+Y SORDP),";" ,3) | |
21 | W ", exem pt tests, and vocati onal tests ." | |
22 | A12 ; | |
23 | S YSXT="" W !!?2,"A dminister the follow ing instru ments:",! | |
24 | A2 ; | |
25 | R !?5,"In strument: ",YSTESTN: DTIME S YS TOUT='$T,Y SUOUT=YSTE STN["^" G KAR^YTS:YS TOUT!YSUOU T,A3:YSTES TN="" | |
26 | I YSTESTN ="CLERK" W !!,"Not a valid ins trument, y ou may wan t to use t he CLERK e ntry optio n!",!! G A 2 | |
27 | I YSTESTN ["?" D ^YT LIST G A2 | |
28 | I $L(YSTE STN)>5!(YS TESTN'?.UN P) W " ?" G A2 | |
29 | I YSTESTN ="BECK" D BECK^YTS | |
30 | I YSTESTN ="MMPI" D MMPI^YTS | |
31 | S YSTEST= $O(^YTT(60 1,"B",YSTE STN,0)) I 'YSTEST W " [Not Fo und]" G A2 | |
32 | S X=^YTT( 601,YSTEST ,0),YSNX(0 )=X I YSOR DP>0,$P(X, U,8)'="V", $P(X,U,9)= "T",$P(X,U ,10)'="Y", YSORDD>0 W !!,YSORD( 0)_" is NO T AUTHORIZ ED to orde r",!,"Inst rument "_$ P(YSNX(0), U)_".",!! G A2 | |
33 | I YSORDP= 2,$P(X,U,8 )="V",$P(X ,U,10)'="Y ",YSORDD>1 W !!,YSOR D(0)_" is NOT AUTHOR IZED to or der",!,"In strument " _$P(YSNX(0 ),U)_".",! ! G A2 | |
34 | ;I $P(X,U ,13)="N" W !!,YSORD( 0)_" is NO T AUTHORIZ ED to orde r",!,"Inst rument "_$ P(YSNX(0), U)_".",!! G A2 | |
35 | I $P(X,U, 13)="N" W !!,"You ha ve selecte d an instr ument that is NOT OP ERATIONAL. ",! G A2 | |
36 | I $P(X,U, 14)="N" D CR G A2 | |
37 | F Z=1:1 S YSNX=$P(Y SXT,U,Z) Q :YSNX="" I YSNX=YST EST W " [ Duplicate Ignored]", !! G A2 | |
38 | MCMI2 ; | |
39 | I $P(^YTT (601,YSTES T,0),U)?1" MCMI"1N X ^YTT(601,Y STEST,"C") ;ASF 5/30 /02 | |
40 | I $P(X,U, 9)="B",YSO RDP>0 S YS TEST=$$SCR N(YSTEST) I YSTEST'] "" G A2 | |
41 | S YSXT=YS XT_YSTEST_ "^" G:$L(Y SXT,U)<11 A2 | |
42 | A3 ; | |
43 | G:YSXT="" KAR^YTS S YSQ=0 I $ D(^XUSEC(" YSP",DUZ)) !$D(^XUSEC ("YSZ",DUZ )) D A31^Y TCLERK1 G: YSOK<1 KAR ^YTS | |
44 | I YSQ S Z TIO=ION D HOME^%ZIS | |
45 | D:"Y"[YSD EMO ^YTDEM O S YSXTP= 1 | |
46 | A4 ; | |
47 | S YSTEST= $P(YSXT,U, YSXTP) I Y STEST="" G DONE | |
48 | D:'$D(YSR ESTRT) KT S YS4D=0,Y STESTN=$P( ^YTT(601,Y STEST,0),U ) | |
49 | I $D(^YTT (601,YSTES T,"C")),$P (^YTT(601, YSTEST,0), U)'?1"MCMI "1N X ^("C ") I $D(J) ,J<1 G KAR ^YTS ;ASF 5/30/02 | |
50 | X ^YTT(60 1,YSTEST," A") G:$D(Y STIN) KAR^ YTS D KT K YSRESTRT S XMB(YSXT P+5)=$P(YS XT,U,YSXTP ),YSXTP=YS XTP+1 G A4 | |
51 | DONE ; | |
52 | W:'$D(YSC L) @IOF,!! !?10,"*** Thank you for comple ting the t est! ***", !!! H 5 S XMB(5)="" I YSQ S YS XT="" F K= 6:1 Q:'$D( XMB(K)) S YSXT=YSXT _YSHD_","_ XMB(K)_"^" | |
53 | I YSQ S Y SXTP=1,ZTR TN="RP1^YT DP",ZTSAVE ("YS*")="" ,ZTDTH=$H, ZTDESC="YS MH INST P RINT" D ^% ZTLOAD W:$ D(ZTSK) !! ,"Your Tas k Number i s "_ZTSK | |
54 | I DUZ'=YS ORD,$D(YSC LERK) S XM B(6)="CLER K-"_YSCLN | |
55 | E I DUZ' =YSORD F K =6:1 Q:'$D (XMB(K)) S XMB(K)=$ P(^YTT(601 ,+XMB(K),0 ),U) | |
56 | I DUZ'=YS ORD D ENBU L^YSUTL | |
57 | G H^XUS:' $D(YSCL)&( '$D(YSM)), KAR^YTS | |
58 | DAT ; | |
59 | S YSDT=$$ FMTE^XLFDT (YSDT,"5ZD ") Q | |
60 | KT ; | |
61 | K J I $D( ^YTD(601.4 ,YSDFN,1,Y STEST)) S YSENT=YSTE ST D ENKIL ^YTFILE | |
62 | Q | |
63 | CR ; | |
64 | W " [ DNS currently does not h ave a lice nse to use this test ]" Q | |
65 | MSG1 ; | |
66 | W !!!?2," Enter (Y) or <cr> fo r (YES) to send a me ssage to t he person requesting ",!,"this test/inter view and t o CONTINUE this test /interview process." | |
67 | W !!?2,"E nter (N) f or (NO) to NOT send message an d to DISCO NTINUE thi s test/",! ,"intervie w process. " | |
68 | Q | |
69 | SCRN(X) ; when a bat tery is or dered then each test is screen ed to | |
70 | ; see if the person requestin g the batt ery has ac cess to th e tests | |
71 | ; contain ed in the battery | |
72 | N Y,YSNX, YSXT,Z | |
73 | I 'X Q "" | |
74 | S X(0)=$G (^YTT(601, X,0)),(YSX T,Y)="" I '$D(^YTT(6 01,X,"A")) Q "" | |
75 | X ^YTT(60 1,X,"A") | |
76 | F Z=1:1 S YSNX=$P(Y SXT,U,Z) Q :YSNX="" D | |
77 | .S YSNX(0 )=^YTT(601 ,YSNX,0) I YSORDP>0, $P(YSNX(0) ,U,8)'="V" ,$P(YSNX(0 ),U,9)="T" ,$P(YSNX(0 ),U,10)'=" Y",YSORDD> 0 W !,YSOR D(0)_" is NOT AUTHOR IZED to or der",!,"th e "_$P(YSN X(0),U)_" test from the Batter y: '"_$P(X (0),U)_"'. ",! Q | |
78 | .I YSORDP =2,$P(YSNX (0),U,8)=" V",$P(YSNX (0),U,10)' ="Y",YSORD D>1 W !,YS ORD(0)_" i s NOT AUTH ORIZED to order",!," the "_$P(Y SNX(0),U)_ " test fro m the Batt ery: '"_$P (X(0),U)_" '.",! Q | |
79 | .I $P(YSN X(0),U,13) ="N" W !,Y SORD(0)_" is NOT AUT HORIZED to order",!, "the "_$P( YSNX(0),U) _" test, f rom the Ba ttery: '"_ $P(X(0),U) _"'.",! Q | |
80 | .I $P(X,U ,14)="N" W !," [ DNS currently does not h ave a lice nse to use this test ]" Q | |
81 | .S Y=Y_YS NX_U | |
82 | Q Y | |
83 | ; | |
84 | ORD ;;all instrument s | |
85 | ;;intervi ews and vo cational t ests | |
86 | ;;intervi ews |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.