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