source: WorldVistAEHR/trunk/r/SURGERY-SR/SR47UTL.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1SR47UTL ;BIR/ADM-PRE & POST INIT FOR SR*3*47 ; [ 03/05/96 2:00 PM ]
2 ;;3.0; Surgery ;**47**;24 Jun 93
3 Q
4PRE ; preinit action for SR*3*47
5 S ^SRO(136.5,7,1,0)="^^7^7^2951120^^",^SRO(136.5,7,1,5,0)="extubation after general anesthesia. This may be diagnosed as congestive"
6 S ^SRO(136.5,7,1,6,0)="heart failure, pulmonary edema and/or Adult Respiratory Distress Syndrome",^SRO(136.5,7,1,7,0)="(ARDS)."
7 S ^SRO(136.5,15,1,3,0)="(including autologous) given up to 72 hours after the patient leaves the",^SRO(136.5,15,1,4,0)="operating room."
8 S $P(^SRO(136.5,11,0),"^",2)=1 F I=7,16,17,21 S $P(^SRO(136.5,I,0),"^",3)=1
9 I $D(^DD(130,0,"ID","WRITE")) K ^DD(130,0,"ID","WRITE")
10 I $D(^DD(130,0,"ID",1)) K ^DD(130,0,"ID",1)
11 Q
12POST ; postinit action for SR*3*47
13 ; update completed assessments with PIMS info
14 S DFN=0 F S DFN=$O(^SRF("ARS","N","C",DFN)) Q:'DFN S SRTN=0 F S SRTN=$O(^SRF("ARS","N","C",DFN,SRTN)) Q:'SRTN D
15 .I $P($G(^SRF(SRTN,"RA")),"^",6)'="Y" Q
16 .S SR=$G(^SRF(SRTN,208)) S NOGO="" F I=10,14,15,16,17 S X=$P(SR,"^",I) I X'="" S NOGO=1 Q
17 .I 'NOGO D ^SROAPIMS
18TSK ; task install notification message
19 X ^%ZOSF("UCI") I Y'=^%ZOSF("PROD") G END
20 S SRD=^XMB("NETNAME") I $E(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM") G END
21QMSG ; queue install message to national database
22 D NOW^%DTC S ZTDTH=$E(%,1,12),ZTRTN="MSG^SR47UTL",ZTDESC="Patch SR*3*47 Install Message",ZTIO="" D ^%ZTLOAD
23END K DFN,NOGO,SR,SRD,SRDA,SRMSG,SRTN,SRX,SRY,SRZ,XMSUB,XMY,XMDUZ,XMTEXT
24 Q
25MSG ; send mail message to national database
26 H 15 S SRD=^XMB("NETNAME"),X=0 F S X=$O(^XPD(9.7,"B","SR*3.0*47",X)) Q:'X S SRDA=X
27 G:'$G(SRDA) END S Z=$G(^XPD(9.7,SRDA,1)),SRZ=$P(Z,"^"),SRY=$P(Z,"^",3),SRZ=$$FMTE^XLFDT(SRZ),SRY=$$FMTE^XLFDT(SRY)
28 K SRMSG S SRMSG(1)="Patch SR*3*47 has been installed at "_SRD_"."
29 S SRMSG(2)="Start time: "_SRZ,SRMSG(3)="End time: "_SRY
30 S XMSUB="SR*3*47 Installed",XMDUZ=DUZ
31 S XMY("G.SRCOSERV@ISC-CHICAGO.VA.GOV")=""
32 S XMTEXT="SRMSG(" D ^XMD S ZTREQ="@"
33 Q
Note: See TracBrowser for help on using the repository browser.