ORB3C0 ; slc/CLA - Routine to stub in notifications for parameter conversion to CPRS ;3/23/97 21:22
;;3.0;ORDER ENTRY/RESULTS REPORTING;**9**;Dec 17, 1997
Q
STUB ;initiate stubbing of notifications 30-57 so pkg-level parameters will have something to point to:
D BMES^XPDUTL("Stubbing notifications 30-49,51-57.")
N ORBI,ORBNAM,ORBA,ORBIEN,ORBERR
S ORBA(100.9,"+30,",.01)="CONSULT/REQUEST CANCEL/HOLD",ORBIEN(30)=30
S ORBA(100.9,"+31,",.01)="NPO DIET MORE THAN 72 HRS",ORBIEN(31)=31
S ORBA(100.9,"+32,",.01)="SITE-FLAGGED RESULTS",ORBIEN(32)=32
S ORBA(100.9,"+33,",.01)="ORDERER-FLAGGED RESULTS",ORBIEN(33)=33
S ORBA(100.9,"+35,",.01)="DISCHARGE",ORBIEN(35)=35
S ORBA(100.9,"+36,",.01)="TRANSFER FROM PSYCHIATRY",ORBIEN(36)=36
S ORBA(100.9,"+37,",.01)="ORDER REQUIRES CO-SIGNATURE",ORBIEN(37)=37
S ORBA(100.9,"+41,",.01)="SITE-FLAGGED ORDER",ORBIEN(41)=41
S ORBA(100.9,"+42,",.01)="LAB ORDER CANCELED",ORBIEN(42)=42
S ORBA(100.9,"+43,",.01)="STAT ORDER",ORBIEN(43)=43
S ORBA(100.9,"+44,",.01)="STAT RESULTS",ORBIEN(44)=44
S ORBA(100.9,"+45,",.01)="DNR EXPIRING",ORBIEN(45)=45
S ORBA(100.9,"+46,",.01)="FREE TEXT",ORBIEN(46)=46
S ORBA(100.9,"+47,",.01)="MEDICATIONS EXPIRING",ORBIEN(47)=47
S ORBA(100.9,"+48,",.01)="UNVERIFIED MEDICATION ORDER",ORBIEN(48)=48
S ORBA(100.9,"+51,",.01)="STAT IMAGING REQUEST",ORBIEN(51)=51
S ORBA(100.9,"+52,",.01)="URGENT IMAGING REQUEST",ORBIEN(52)=52
S ORBA(100.9,"+53,",.01)="IMAGING RESULTS AMENDED",ORBIEN(53)=53
S ORBA(100.9,"+54,",.01)="ORDER CHECK",ORBIEN(54)=54
S ORBA(100.9,"+55,",.01)="FOOD/DRUG INTERACTION",ORBIEN(55)=55
S ORBA(100.9,"+56,",.01)="ERROR MESSAGE",ORBIEN(56)=56
S ORBA(100.9,"+57,",.01)="CRITICAL LAB RESULTS (ACTION)",ORBIEN(57)=57
S ORBA(100.9,"+58,",.01)="ABNORMAL LAB RESULT (INFO)",ORBIEN(58)=58
D CLEAN^DILF
D UPDATE^DIE("","ORBA","ORBIEN","ORBERR")
D BMES^XPDUTL("Notification stubbing completed.")
D BMES^XPDUTL("Updating notifications 14,21,22,24,25,26,50.")
S $P(^ORD(100.9,14,0),U)="ABNORMAL LAB RESULTS (ACTION)"
S $P(^ORD(100.9,21,0),U)="IMAGING PATIENT EXAMINED"
S $P(^ORD(100.9,22,0),U)="IMAGING RESULTS"
S $P(^ORD(100.9,24,0),U)="CRITICAL LAB RESULT (INFO)"
S $P(^ORD(100.9,25,0),U)="ABNORMAL IMAGING RESULTS"
S $P(^ORD(100.9,26,0),U)="IMAGING REQUEST CANCEL/HELD"
S $P(^ORD(100.9,50,0),U)="NEW ORDER"
;kill then rebuild "B" x-ref:
K ^ORD(100.9,"B")
S DIK="^ORD(100.9,",DIK(1)=".01^B" D ENALL^DIK
K DIK
D BMES^XPDUTL("Notification updating completed.")
Q
UNSTUB ;remove stubbed entries in Notifications file
N ORBI,ORBNAM
F ORBI=30:1:49 D
.Q:'$D(^ORD(100.9,ORBI))
.S ORBNAM=$P(^ORD(100.9,ORBI,0),U)
.W !,"Killing notif ",ORBI," [",ORBNAM,"]"
.S DA=ORBI,DIK="^ORD(100.9," D ^DIK K DA,DIK
F ORBI=51:1:58 D
.Q:'$D(^ORD(100.9,ORBI))
.S ORBNAM=$P(^ORD(100.9,ORBI,0),U)
.W !,"Killing notif ",ORBI," [",ORBNAM,"]"
.S DA=ORBI,DIK="^ORD(100.9," D ^DIK K DA,DIK
K DA,DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORB3C0 2957 printed Apr 09, 2024@21:33:52 Page 2
ORB3C0 ; slc/CLA - Routine to stub in notifications for parameter conversion to CPRS ;3/23/97 21:22
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9**;Dec 17, 1997
+2 QUIT
STUB ;initiate stubbing of notifications 30-57 so pkg-level parameters will have something to point to:
+1 DO BMES^XPDUTL("Stubbing notifications 30-49,51-57.")
+2 NEW ORBI,ORBNAM,ORBA,ORBIEN,ORBERR
+3 SET ORBA(100.9,"+30,",.01)="CONSULT/REQUEST CANCEL/HOLD"
SET ORBIEN(30)=30
+4 SET ORBA(100.9,"+31,",.01)="NPO DIET MORE THAN 72 HRS"
SET ORBIEN(31)=31
+5 SET ORBA(100.9,"+32,",.01)="SITE-FLAGGED RESULTS"
SET ORBIEN(32)=32
+6 SET ORBA(100.9,"+33,",.01)="ORDERER-FLAGGED RESULTS"
SET ORBIEN(33)=33
+7 SET ORBA(100.9,"+35,",.01)="DISCHARGE"
SET ORBIEN(35)=35
+8 SET ORBA(100.9,"+36,",.01)="TRANSFER FROM PSYCHIATRY"
SET ORBIEN(36)=36
+9 SET ORBA(100.9,"+37,",.01)="ORDER REQUIRES CO-SIGNATURE"
SET ORBIEN(37)=37
+10 SET ORBA(100.9,"+41,",.01)="SITE-FLAGGED ORDER"
SET ORBIEN(41)=41
+11 SET ORBA(100.9,"+42,",.01)="LAB ORDER CANCELED"
SET ORBIEN(42)=42
+12 SET ORBA(100.9,"+43,",.01)="STAT ORDER"
SET ORBIEN(43)=43
+13 SET ORBA(100.9,"+44,",.01)="STAT RESULTS"
SET ORBIEN(44)=44
+14 SET ORBA(100.9,"+45,",.01)="DNR EXPIRING"
SET ORBIEN(45)=45
+15 SET ORBA(100.9,"+46,",.01)="FREE TEXT"
SET ORBIEN(46)=46
+16 SET ORBA(100.9,"+47,",.01)="MEDICATIONS EXPIRING"
SET ORBIEN(47)=47
+17 SET ORBA(100.9,"+48,",.01)="UNVERIFIED MEDICATION ORDER"
SET ORBIEN(48)=48
+18 SET ORBA(100.9,"+51,",.01)="STAT IMAGING REQUEST"
SET ORBIEN(51)=51
+19 SET ORBA(100.9,"+52,",.01)="URGENT IMAGING REQUEST"
SET ORBIEN(52)=52
+20 SET ORBA(100.9,"+53,",.01)="IMAGING RESULTS AMENDED"
SET ORBIEN(53)=53
+21 SET ORBA(100.9,"+54,",.01)="ORDER CHECK"
SET ORBIEN(54)=54
+22 SET ORBA(100.9,"+55,",.01)="FOOD/DRUG INTERACTION"
SET ORBIEN(55)=55
+23 SET ORBA(100.9,"+56,",.01)="ERROR MESSAGE"
SET ORBIEN(56)=56
+24 SET ORBA(100.9,"+57,",.01)="CRITICAL LAB RESULTS (ACTION)"
SET ORBIEN(57)=57
+25 SET ORBA(100.9,"+58,",.01)="ABNORMAL LAB RESULT (INFO)"
SET ORBIEN(58)=58
+26 DO CLEAN^DILF
+27 DO UPDATE^DIE("","ORBA","ORBIEN","ORBERR")
+28 DO BMES^XPDUTL("Notification stubbing completed.")
+29 DO BMES^XPDUTL("Updating notifications 14,21,22,24,25,26,50.")
+30 SET $PIECE(^ORD(100.9,14,0),U)="ABNORMAL LAB RESULTS (ACTION)"
+31 SET $PIECE(^ORD(100.9,21,0),U)="IMAGING PATIENT EXAMINED"
+32 SET $PIECE(^ORD(100.9,22,0),U)="IMAGING RESULTS"
+33 SET $PIECE(^ORD(100.9,24,0),U)="CRITICAL LAB RESULT (INFO)"
+34 SET $PIECE(^ORD(100.9,25,0),U)="ABNORMAL IMAGING RESULTS"
+35 SET $PIECE(^ORD(100.9,26,0),U)="IMAGING REQUEST CANCEL/HELD"
+36 SET $PIECE(^ORD(100.9,50,0),U)="NEW ORDER"
+37 ;kill then rebuild "B" x-ref:
+38 KILL ^ORD(100.9,"B")
+39 SET DIK="^ORD(100.9,"
SET DIK(1)=".01^B"
DO ENALL^DIK
+40 KILL DIK
+41 DO BMES^XPDUTL("Notification updating completed.")
+42 QUIT
UNSTUB ;remove stubbed entries in Notifications file
+1 NEW ORBI,ORBNAM
+2 FOR ORBI=30:1:49
Begin DoDot:1
+3 if '$DATA(^ORD(100.9,ORBI))
QUIT
+4 SET ORBNAM=$PIECE(^ORD(100.9,ORBI,0),U)
+5 WRITE !,"Killing notif ",ORBI," [",ORBNAM,"]"
+6 SET DA=ORBI
SET DIK="^ORD(100.9,"
DO ^DIK
KILL DA,DIK
End DoDot:1
+7 FOR ORBI=51:1:58
Begin DoDot:1
+8 if '$DATA(^ORD(100.9,ORBI))
QUIT
+9 SET ORBNAM=$PIECE(^ORD(100.9,ORBI,0),U)
+10 WRITE !,"Killing notif ",ORBI," [",ORBNAM,"]"
+11 SET DA=ORBI
SET DIK="^ORD(100.9,"
DO ^DIK
KILL DA,DIK
End DoDot:1
+12 KILL DA,DIK
+13 QUIT
