source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORB3C0.m@ 1607

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

initial load of FOIAVistA 6/30/08 version
File size: 2.8 KB
Line 
1ORB3C0 ; 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
4STUB ;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
47UNSTUB ;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
Note: See TracBrowser for help on using the repository browser.