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 | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 102 |
Changed | 1 | 2 |
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 | 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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.