SR48DIS0 ;BIR/ADM-Install Disposition Data Global ; [ 09/19/96 8:41 PM ]
;;3.0; Surgery ;**48**;24 Jun 93
Q:$D(^SRO(131.6,0))
S ^SRO(131.6,0)="SURGERY DISPOSITION^131.6I^9^9"
S ^SRO(131.6,1,0)="PACU (RECOVERY ROOM)^R"
S ^SRO(131.6,2,0)="WARD^W"
S ^SRO(131.6,3,0)="MICU^M"
S ^SRO(131.6,4,0)="SICU^S"
S ^SRO(131.6,5,0)="CCU^C"
S ^SRO(131.6,6,0)="OUTPATIENT^O"
S ^SRO(131.6,7,0)="STEPDOWN^I"
S ^SRO(131.6,7,1,0)="^131.63^1^1"
S ^SRO(131.6,7,1,1,0)="STEP DOWN"
S ^SRO(131.6,8,0)="MORGUE^D"
S ^SRO(131.6,8,1,0)="^131.63^1^1"
S ^SRO(131.6,8,1,1,0)="DEATH"
S ^SRO(131.6,9,0)="OPERATING ROOM^OR"
S ^SRO(131.6,"B","CCU",5)=""
S ^SRO(131.6,"B","MICU",3)=""
S ^SRO(131.6,"B","MORGUE",8)=""
S ^SRO(131.6,"B","OPERATING ROOM",9)=""
S ^SRO(131.6,"B","OUTPATIENT",6)=""
S ^SRO(131.6,"B","PACU (RECOVERY ROOM)",1)=""
S ^SRO(131.6,"B","SICU",4)=""
S ^SRO(131.6,"B","STEPDOWN",7)=""
S ^SRO(131.6,"B","WARD",2)=""
S ^SRO(131.6,"C","C",5)=""
S ^SRO(131.6,"C","D",8)=""
S ^SRO(131.6,"C","I",7)=""
S ^SRO(131.6,"C","M",3)=""
S ^SRO(131.6,"C","O",6)=""
S ^SRO(131.6,"C","OR",9)=""
S ^SRO(131.6,"C","R",1)=""
S ^SRO(131.6,"C","S",4)=""
S ^SRO(131.6,"C","W",2)=""
S ^SRO(131.6,"D","DEATH",8)=""
S ^SRO(131.6,"D","STEP DOWN",7)=""
Q
POST ; postinit action for SR*3*48
; task install notification message
X ^%ZOSF("UCI") I Y'=^%ZOSF("PROD") G END
S SRD=^XMB("NETNAME") I $E(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM") G END
QMSG ; queue install message
D NOW^%DTC S (SRNOW,ZTDTH)=$E(%,1,12),ZTRTN="MSG^SR48DIS0",ZTSAVE("SRNOW")=SRNOW,ZTDESC="Patch SR*3*48 Install Message",ZTIO="" D ^%ZTLOAD
END K DFN,NOGO,SR,SRD,SRDA,SRMSG,SRTN,SRX,SRY,SRZ,XMSUB,XMY,XMDUZ,XMTEXT
Q
MSG ; send mail message to national database
H 20 S SRD=^XMB("NETNAME"),X=0 F S X=$O(^XPD(9.7,"B","SR*3.0*48",X)) Q:'X S SRDA=X
G:'$G(SRDA) END S Z=$G(^XPD(9.7,SRDA,1)),SRZ=$E($P(Z,"^"),1,12),SRY=SRNOW,SRZ=$$FMTE^XLFDT(SRZ),SRY=$$FMTE^XLFDT(SRY)
K SRMSG S SRMSG(1)="Patch SR*3*48 has been installed at "_SRD_"."
S SRMSG(2)="Start time: "_SRZ,SRMSG(3)="End time: "_SRY
S XMSUB="SR*3*48 Installed",XMDUZ=DUZ
S XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT")=""
S XMTEXT="SRMSG(" D ^XMD S ZTREQ="@"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSR48DIS0 2249 printed Nov 22, 2024@17:48:43 Page 2
SR48DIS0 ;BIR/ADM-Install Disposition Data Global ; [ 09/19/96 8:41 PM ]
+1 ;;3.0; Surgery ;**48**;24 Jun 93
+2 if $DATA(^SRO(131.6,0))
QUIT
+3 SET ^SRO(131.6,0)="SURGERY DISPOSITION^131.6I^9^9"
+4 SET ^SRO(131.6,1,0)="PACU (RECOVERY ROOM)^R"
+5 SET ^SRO(131.6,2,0)="WARD^W"
+6 SET ^SRO(131.6,3,0)="MICU^M"
+7 SET ^SRO(131.6,4,0)="SICU^S"
+8 SET ^SRO(131.6,5,0)="CCU^C"
+9 SET ^SRO(131.6,6,0)="OUTPATIENT^O"
+10 SET ^SRO(131.6,7,0)="STEPDOWN^I"
+11 SET ^SRO(131.6,7,1,0)="^131.63^1^1"
+12 SET ^SRO(131.6,7,1,1,0)="STEP DOWN"
+13 SET ^SRO(131.6,8,0)="MORGUE^D"
+14 SET ^SRO(131.6,8,1,0)="^131.63^1^1"
+15 SET ^SRO(131.6,8,1,1,0)="DEATH"
+16 SET ^SRO(131.6,9,0)="OPERATING ROOM^OR"
+17 SET ^SRO(131.6,"B","CCU",5)=""
+18 SET ^SRO(131.6,"B","MICU",3)=""
+19 SET ^SRO(131.6,"B","MORGUE",8)=""
+20 SET ^SRO(131.6,"B","OPERATING ROOM",9)=""
+21 SET ^SRO(131.6,"B","OUTPATIENT",6)=""
+22 SET ^SRO(131.6,"B","PACU (RECOVERY ROOM)",1)=""
+23 SET ^SRO(131.6,"B","SICU",4)=""
+24 SET ^SRO(131.6,"B","STEPDOWN",7)=""
+25 SET ^SRO(131.6,"B","WARD",2)=""
+26 SET ^SRO(131.6,"C","C",5)=""
+27 SET ^SRO(131.6,"C","D",8)=""
+28 SET ^SRO(131.6,"C","I",7)=""
+29 SET ^SRO(131.6,"C","M",3)=""
+30 SET ^SRO(131.6,"C","O",6)=""
+31 SET ^SRO(131.6,"C","OR",9)=""
+32 SET ^SRO(131.6,"C","R",1)=""
+33 SET ^SRO(131.6,"C","S",4)=""
+34 SET ^SRO(131.6,"C","W",2)=""
+35 SET ^SRO(131.6,"D","DEATH",8)=""
+36 SET ^SRO(131.6,"D","STEP DOWN",7)=""
+37 QUIT
POST ; postinit action for SR*3*48
+1 ; task install notification message
+2 XECUTE ^%ZOSF("UCI")
IF Y'=^%ZOSF("PROD")
GOTO END
+3 SET SRD=^XMB("NETNAME")
IF $EXTRACT(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM")
GOTO END
QMSG ; queue install message
+1 DO NOW^%DTC
SET (SRNOW,ZTDTH)=$EXTRACT(%,1,12)
SET ZTRTN="MSG^SR48DIS0"
SET ZTSAVE("SRNOW")=SRNOW
SET ZTDESC="Patch SR*3*48 Install Message"
SET ZTIO=""
DO ^%ZTLOAD
END KILL DFN,NOGO,SR,SRD,SRDA,SRMSG,SRTN,SRX,SRY,SRZ,XMSUB,XMY,XMDUZ,XMTEXT
+1 QUIT
MSG ; send mail message to national database
+1 HANG 20
SET SRD=^XMB("NETNAME")
SET X=0
FOR
SET X=$ORDER(^XPD(9.7,"B","SR*3.0*48",X))
if 'X
QUIT
SET SRDA=X
+2 if '$GET(SRDA)
GOTO END
SET Z=$GET(^XPD(9.7,SRDA,1))
SET SRZ=$EXTRACT($PIECE(Z,"^"),1,12)
SET SRY=SRNOW
SET SRZ=$$FMTE^XLFDT(SRZ)
SET SRY=$$FMTE^XLFDT(SRY)
+3 KILL SRMSG
SET SRMSG(1)="Patch SR*3*48 has been installed at "_SRD_"."
+4 SET SRMSG(2)="Start time: "_SRZ
SET SRMSG(3)="End time: "_SRY
+5 SET XMSUB="SR*3*48 Installed"
SET XMDUZ=DUZ
+6 SET XMY("G.SR-INSTALL@ISC-BIRM.DOMAIN.EXT")=""
+7 SET XMTEXT="SRMSG("
DO ^XMD
SET ZTREQ="@"
+8 QUIT
