320. EPMO Open Source Coordination Office Redaction File Detail Report

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.

320.1 Files compared

# 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

320.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 3 168
Changed 2 4
Inserted 0 0
Removed 0 0

320.3 Comparison options

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

320.4 Active regular expressions

No regular expressions were active.

320.5 Comparison detail

  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