307. 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.

307.1 Files compared

# Location File Last Modified
1 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YSASNAR.RTN Thu Sep 6 11:30:02 2018 UTC
2 build 3.zip\build 3\MHLTH_YS_137_Source\MUMPS\RTN YSASNAR.RTN Wed Sep 12 18:09:54 2018 UTC

307.2 Comparison summary

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

307.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

307.4 Active regular expressions

No regular expressions were active.

307.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   YSASNAR^IN T^1^63910, 74846^0
  4   YSASNAR ;A LB/ASF,SLC /DKG,HIOFO /FT - ASI  INTERVIEW  REPORTER ; 3/13/12  3 :25 pm
  5    ;;5.01;ME NTAL HEALT H;**24,30, 37,38,44,5 5,67,76,10 3,60**;Dec  30, 1994; Build 47
  6    ;
  7    ;Referenc e to ^%ZIS C supporte d by IA #1 0089
  8    ;Referenc e to ^%ZTL OAD suppor ted by IA  #10063
  9    ;Referenc e to HOME^ %ZIS suppo rted by IA  #1008
  10    ;Referenc e to ^%ZIS  supported  by IA #10 086
  11    ;Referenc e to $$GET 1^DIQ() su pported by  IA #2056
  12    ;Referenc e to $$FMT E^XLFDT su pported by  IA #10103
  13    ;Referenc e to DEM^V ADPT suppo rted by IA  #10061
  14    ;Referenc e to ^DIWP  supported  by IA #10 011
  15    ;Referenc e to ^DIR  supported  by IA #100 26
  16    ;Referenc e to ^DD(" DD" suppor ted by IA  #10017
  17    ;Referenc e to ^VA(2 00 support ed by IA # 10060
  18    ;Referenc e to ^DPT(  supported  by IA #10 035
  19    ;
  20   EN1(YSASDA ) ;Entry p oint to di splay ASI
  21    Q:$G(YSAS DA)'>0
  22    N YSASN,Y SASNA,YSZZ ,YSHDR,YSA SD,YSAST,Y SAS0,DIERR ,YSI,YSASC ,YSASN2
  23    ;ASK DEVI CE 
  24    N YSASQUI T,%ZIS,POP
  25    S %ZIS="Q M"
  26    D ^%ZIS
  27    Q:$G(POP)
  28    I $D(IO(" Q")) D  Q
  29    .N ZTRTN, ZTDESC,ZTS AVE
  30    .S ZTRTN= "QTEP^YSAS NAR"
  31    .S ZTDESC ="YSASPRT  ASI NARRAT IVE PRINT"
  32    .S ZTSAVE ("YSASDA") =""
  33    .D ^%ZTLO AD W:$D(ZT SK) !!,"Yo ur Task Nu mber is "_ ZTSK
  34    .D HOME^% ZIS
  35    .Q
  36    U IO
  37   QTEP ;Queu ed Task En try Point
  38    S:$D(ZTQU EUED) ZTRE Q="@"
  39    N G,G2,N, P1,P2,R,V, V1,Y1,YSA, YSAGE,YSAS 0,YSASC,YS ASD,YSASIG ,YSASN,YSA SNA,YSASQU IT,YSAST,Y SASWP
  40    N YSASWP, YSBID,YSDO B,YSHDR,YS HIML,YSHIM U,YSI,YSJ, YSLAST,YSL CK,YSLFN,Y SNM,YSPART ,YSPOSL,YS POSU
  41    N YSPROL, YSPROU,YSS C,YSSCK,YS SEX,YSSSN, YSSTEM,YST ITLE,YSX,Y SYCK,YSYX, YSZ,YSZZ
  42    S YSZZ=0
  43    S YSAS0=^ YSTX(604,Y SASDA,0),D FN=$P(YSAS 0,"^",2)
  44    D DEM^VAD PT
  45    S YSASD=$ $FMTE^XLFD T($P(YSAS0 ,U,5),"5ZD ")
  46    S YSAST=$ $GET1^DIQ( 604,YSASDA _",",.04)
  47    S YSASC=$ $GET1^DIQ( 604,YSASDA _",",.09)
  48    S YSASIG= $$GET1^DIQ (604,YSASD A_",",.51, "I")
  49    S YSNM=VA DM(1),YSSE X=$P(VADM( 5),U),YSDO B=$P(VADM( 3),U,2),YS AGE=VADM(4 ),YSSSN=VA ("PID"),YS BID=VA("BI D")
  50    S YSHDR=V ADM(1)_"   "_"xxx-xx- "_YSBID_$J ("",(20-$L (VADM(1))) )_" ASI "_ YSAST_"  o n "_YSASD_ " by: "_YS ASC
  51    ;
  52   MAIN ;
  53    K ^TMP($J ,"YSTMP"), ^TMP($J,"W ")
  54    S YSLFN=1 ,^TMP($J," YSTMP",0,1 ,0)=""
  55    D  DNS   O
  56    D R1
  57    D SIG
  58    D PRT
  59    D ^%ZISC
  60    Q
  61   R1 ;
  62    S X=$S(YS AST?1"ASI- MV".E:"ASI -MV NARRAT IVE",YSAST ?1"FO".E:" FOLLOWUP N ARRATIVE", 1:"GENERAL "),YSPART= $O(^YSTX(6 04.68,"B", X,0))
  63    F YSJ=1:1  Q:'$D(^YS TX(604.68, YSPART,1,Y SJ,0))  S  YSA=^(0) D  R2
  64    Q
  65   R2 ;
  66    I YSA?1"~ ".E Q
  67    I YSA?1"W {".E1"}" K  YSWP S YS WP=$$GET1^ DIQ(604,YS ASDA_",",$ E(YSA,3,$L (YSA)-1)," Z","YSWP")  D:YSWP'=" "  K YSWP  Q
  68    . S YSN2= "" F  S YS N2=$O(YSWP (YSN2)) Q: YSN2'>0  S  YSLFN=YSL FN+1,^TMP( $J,"YSTMP" ,0,YSLFN,0 )=YSWP(YSN 2,0)
  69    ;
  70    I YSA'["{ " S X=YSA  D:$L(X) L  Q  ;DIWL=0 ,DIWR=IOM, X=YSA D ^D IWP Q
  71   PRO ;evalu ate pronou n, possess ive etc
  72    F YSZ=1:1 :999 Q:YSA '["{"  D
  73    . S P1=$F (YSA,"{")- 1,P2=$F(YS A,"}")
  74    . Q:'P1!' P2
  75    . S G=$E( YSA,P1+1,P 2-2),V=0
  76    . I $P(G, ";")?."."1 N.NP D  D  CONDIT,ULP
  77    .. S G2=$ $GET1^DIQ( 604,YSASDA _",",$P(G, ";"),"","Y SASWP")
  78    .. S V=$S (G2?1N.N:+ G2,1:G2) ; 5/30 ASF
  79    . S:G="Pr o" V=$S(YS SEX="F":"S he",1:"He" )
  80    . S:G="pr o" V=$S(YS SEX="F":"s he",1:"he" )
  81    . S:G="Po s" V=$S(YS SEX="F":"H er",1:"His ")
  82    . S:G="po s" V=$S(YS SEX="F":"h er",1:"his ")
  83    . S:G="hi m" V=$S(YS SEX="F":"h er",1:"him ")
  84    . S:G="hi mself" V=$ S(YSSEX="F ":"herself ",1:"himse lf")
  85    . S:G="Ti tle" V=$S( YSSEX="F": "Ms.",1:"M r.")
  86    . I G="Bl ank" S:$L( $G(^TMP($J ,"YSTMP",0 ,YSLFN,0)) ) YSLFN=YS LFN+1 S ^T MP($J,"YST MP",0,YSLF N,0)=$G(^T MP($J,"YST MP",0,YSLF N,0))_"|BL ANK(1)||NO BLANKLINE| ",YSLFN=YS LFN+1,V=""
  87    . S:G="Li ne" YSLFN= YSLFN+1,^T MP($J,"YST MP",0,YSLF N,0)="",V= ""
  88    . I G="La st" S X=$P ($P(^DPT(D FN,0),U)," ,") D
  89    .. F %=2: 1:$L(X) I  $E(X,%)?1U ,$E(X,%-1) ?1A S X=$E (X,0,%-1)_ $C($A(X,%) +32)_$E(X, %+1,999)
  90    .. S V=X
  91    . I $P(G, ";")="Fiel d" S @($P( G,";",2))= $$GET1^DIQ (604,YSASD A_",",$P(G ,";",3)),V ="" I $P(G ,";",4)'=" " S YSSC=" ;",YSX="S  @($P(G,YSS C,2))=$S(" _$P(G,";", 4)_")" X Y SX
  92    . I $P(G, ";")="List " K V D  K  V S V=""
  93    .. S V1=$ P(G,";",2) ,I1=0 F I= 1:1 Q:$P(V 1,",",I)=" "  S:@($P( V1,",",I)) '="" I1=I1 +1,V(I1)=@ ($P(V1,"," ,I))
  94    .. I '$D( V(1)) S X= $P(G,";",3 ) D L Q
  95    .. F I1=1 :1 Q:'$D(V (I1))  S X =$S(I1=1:"  ",'$D(V(I 1+1)):" an d ",1:", " )_V(I1) D  L
  96   R . ;calle d from YSA SPNT 
  97    . S X=$E( YSA,1,P1-1 ) D:$L(X)  L
  98    . I $D(YS ASWP) S V= "" D  K YS ASWP
  99    .. F I3=1 :1 Q:'$D(Y SASWP(I3))   S X=YSAS WP(I3)_" "  D:$L(X) L
  100    . S X=V D :$L(X) L
  101    . S YSA=$ E(YSA,P2,9 99)
  102    . I YSA'[ "{" S X=YS A D:$L(X)  L
  103    ;
  104    Q
  105   SIG ; sign ature
  106    S YSLFN=Y SLFN+1,^TM P($J,"YSTM P",0,YSLFN ,0)=""
  107    S YSLFN=Y SLFN+1,^TM P($J,"YSTM P",0,YSLFN ,0)="esig:  "
  108    S Y=$P($G (^YSTX(604 ,YSASDA,.5 )),U,2) S: Y?1N.N Y=$ G(^VA(200, Y,20)),Y=$ P(Y,U,2)_"  "_$P(Y,U, 3)
  109    S ^TMP($J ,"YSTMP",0 ,YSLFN,0)= ^TMP($J,"Y STMP",0,YS LFN,0)_Y
  110    S Y=$G(^Y STX(604,YS ASDA,12))  I Y'="" X  ^DD("DD")  S YSLFN=YS LFN+1,^TMP ($J,"YSTMP ",0,YSLFN, 0)="signed : "_Y
  111    Q
  112   END ;
  113    K I,YSLCK ,R,YSSTEM, YSYX,YSYCK ,YSSCK Q
  114   L ;
  115    S ^TMP($J ,"YSTMP",0 ,YSLFN,0)= $G(^TMP($J ,"YSTMP",0 ,YSLFN,0)) _X
  116    I $L(^TMP ($J,"YSTMP ",0,YSLFN, 0))>80 D
  117    . S Y=^TM P($J,"YSTM P",0,YSLFN ,0)
  118    . F I=$L( Y):-1:1 S  Y1=$E(Y,I)  I Y1=" "& (I<81) S ^ TMP($J,"YS TMP",0,YSL FN,0)=$E(Y ,1,I-1),YS LFN=YSLFN+ 1,^TMP($J, "YSTMP",0, YSLFN,0)=$ E(Y,I+1,99 9) Q 
  119    Q
  120   PRT ; Prin t output
  121    W @IOF,YS HDR,! W:'Y SASIG ?25, "##### Uns igned Draf t #####",!
  122    S N=0 F   S N=$O(^TM P($J,"YSTM P",0,N)) Q :N'>0!YSZZ   D
  123    . S X=^TM P($J,"YSTM P",0,N,0), DIWL=1,DIW F="WN" D ^ DIWP
  124    . I IOT'= "HFS" D:$Y +4>IOSL WA IT ;ASF 3/ 7/03
  125    ;
  126    Q
  127   WAIT ;
  128    F I0=1:1: IOSL-$Y-2  W !
  129    N DTOUT,D UOUT,DIRUT
  130    I IOST?1" C".E W $C( 7) K DIR S  DIR(0)="E " D ^DIR K  DIR S YSZ Z=$D(DIRUT )
  131    Q:YSZZ
  132    W @IOF,YS HDR,! W:'Y SASIG ?25, "##### Uns igned Draf t #####",!
  133    Q
  134   TEST S G=" X;;L",V="T EST"
  135   ULP ;
  136    Q:$P(G,"; ",3)=""
  137    Q:$P(G,"; ",3)="P"&( $P(G,";")= ".09:20.3" )  ;MJD 01 /06/2000
  138    I $P(G,"; ",3)="P" F  %=2:1:$L( V) I $E(V, %)?1U,$E(V ,%-1)?1A S  V=$E(V,0, %-1)_$C($A (V,%)+32)_ $E(V,%+1,9 99)
  139    I $P(G,"; ",3)="L" F  %=1:1:$L( V) I $E(V, %)?1U S V= $E(V,0,%-1 )_$C($A(V, %)+32)_$E( V,%+1,999)
  140    I $P(G,"; ",3)="U" F  %=1:1:$L( V) S:$E(V, %)?1L V=$E (V,0,%-1)_ $C($A(V,%) -32)_$E(V, %+1,999)
  141    Q
  142   CONDIT ;co nditional
  143    Q:$P(G,"; ",2)=""
  144    S YSX="S  V=$S("_$P( G,";",2)_" )"
  145    ;S X=YSX  D ^DIM
  146    ;I '$D(X)  S V="###E RROR Line  "_YSJ_" ## #" Q
  147    X YSX
  148    Q
  149   DNS    O ; PATIEN T VARIABLE S
  150    S YSPROU= $S(YSSEX=" F":"She",1 :"He")
  151    S YSPROL= $S(YSSEX=" F":"she",1 :"he")
  152    S YSPOSU= $S(YSSEX=" F":"Her",1 :"His")
  153    S YSPOSL= $S(YSSEX=" F":"her",1 :"his")
  154    S YSHIML= $S(YSSEX=" F":"her",1 :"him")
  155    S YSHIMU= $S(YSSEX=" F":"Her",1 :"Him")
  156    S YSTITLE =$S(YSSEX= "F":"Ms.", 1:"Mr.")
  157    S X=$P($P (^DPT(DFN, 0),U),",")  D  S YSLA ST=X
  158    . F %=2:1 :$L(X) I $ E(X,%)?1U, $E(X,%-1)? 1A S X=$E( X,0,%-1)_$ C($A(X,%)+ 32)_$E(X,% +1,999)
  159    Q