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

308.1 Files compared

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

308.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 102
Changed 1 2
Inserted 0 0
Removed 0 0

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

308.4 Active regular expressions

No regular expressions were active.

308.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   YSASPNT^IN T^1^63910, 74846^0
  4   YSASPNT ;A LB/ASF-TIU  PROGRESS  NOTE ;10/1 6/01  10:2 3
  5    ;;5.01;ME NTAL HEALT H;**39,73, 88,60**;De c 30, 1994 ;Build 47
  6    ;
  7    ; referen ce to ^TMP ("TIUP",$J ) supporte d by DBIA  1911
  8    ;
  9   MAIN(YSASD A) ;
  10    N VA,VADM ,YSASAUTH, YSASC,YSAU TOSG,YSNOW ,YSPIFN,YS TIUT,YSTIU TS,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
  11    N YSASWP, YSBID,YSDO B,YSHDR,YS HIML,YSHIM U,YSI,YSJ, YSLAST,YSL CK,YSLFN,Y SNM,YSPART ,YSPOSL,YS POSU
  12    N YSPROL, YSPROU,YSS C,YSSCK,YS SEX,YSSSN, YSSTEM,YST ITLE,YSX,Y SYCK,YSYX, YSZ,YSZZ,Y SV1,YSV2,Y SV3,YSV4,Y SV5,YSV6,Y SV7,YSV8,Y SV9,YSV10, YSV11,YSV1 2,YSV13,YS V14
  13    S Y=$$GET 1^DIQ(604, YSASDA,.11 ,"I") Q:Y' ="N"  ;--- > out if G 12 10/16/0 1 ASF
  14    S YSTIUT= 0,YSTIUTS= 0 D ASTIT
  15    I (YSTIUT '>0)!(YSTI UTS'?1"ACT ".E) W !," ASI-TIU no t fully re ady" Q
  16    K DIR S D IR(0)="Y", DIR("B")=" Yes",DIR(" A")="Do yo u wish to  create a T IU Progres s Note" D  ^DIR K DIR  Q:$D(DIRU T)!(Y'=1)
  17    K DIR S D IR(0)="Y", DIR("B")=" No",DIR("A ")="Do you  wish to a utomatical ly sign th is note" D  ^DIR K DI R Q:$D(DIR UT)  S YSA UTOSG=+Y
  18    D NARSET
  19    D PUTPN
  20    ;
  21    Q
  22   ASTIT ;ASI  document  title chec k
  23    S X="ASI- ADDICTION  SEVERITY I NDEX",DIC= "^TIU(8925 .1,",DIC(0 )="M",DIC( "S")="I $P (^TIU(8925 .1,+Y,0),U ,4)=""DOC" "" D ^DIC  K DIC("S")  S YSTIUT= +Y Q:YSTIU T'>0
  24    S YSTIUTS =$$GET1^DI Q(8925.1,Y STIUT_",", "STATUS")
  25    Q
  26   NARSET ;Se t up narra tive globa l
  27    S YSZZ=0
  28    S YSAS0=^ YSTX(604,Y SASDA,0),D FN=$P(YSAS 0,"^",2)
  29    D DEM^VAD PT
  30    S YSASD=$ $FMTE^XLFD T($P(YSAS0 ,U,5),"5ZD ")
  31    S YSAST=$ $GET1^DIQ( 604,YSASDA _",",.04)
  32    S YSASC=$ $GET1^DIQ( 604,YSASDA _",",.09)
  33    S YSASIG= $$GET1^DIQ (604,YSASD A_",",.51, "I")
  34    S YSASAUT H=$$GET1^D IQ(604,YSA SDA_",",.0 9,"I")
  35    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")
  36    ;
  37    K ^TMP($J ,"YSTMP"), ^TMP("TIUP ",$J)
  38    S YSLFN=1 ,^TMP($J," YSTMP",0,1 ,0)=""
  39    D  DNS    O^YSASNAR
  40    D R1^YSAS NAR
  41    M ^TMP("T IUP",$J)=^ TMP($J,"YS TMP",0)
  42    S X="NOW" ,%DT="T" D  ^%DT S YS NOW=Y
  43    S YSLFN=Y SLFN-1,^TM P("TIUP",$ J,0)="^^"_ YSLFN_U_YS LFN_U_YSNO W_U
  44    S YSLFN=0  F  S YSLF N=$O(^TMP( "TIUP",$J, YSLFN)) Q: YSLFN'>0   S:^TMP("TI UP",$J,YSL FN,0)?1"|B LANK".E ^T MP("TIUP", $J,YSLFN,0 )=""
  45    Q
  46   PUTPN ;cre ate Pnote
  47    S YSAUTOS G=$S(YSAUT OSG:YSASAU TH,1:""),T IUASKVS=1
  48    D NEW^TIU PNAPI(.YSP IFN,DFN,YS ASAUTH,YSN OW,YSTIUT, "","","",Y SAUTOSG,TI UASKVS)
  49    ;VMP OIFO  BAY PINES ;ELR;YS*5. 01*88 ADDE D NEXT LIN E OF CODE
  50    S:$G(YSPI FN)=-1 YSP IFN=0
  51    W !,$S(+Y SPIFN:"Pro gress Note  created", 1:"Progres s Note has  NOT been  created -  please sel ect the ex isting app ointment")  H 1
  52    Q