source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORYDLG.m

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

initial load of FOIAVistA 6/30/08 version

File size: 2.4 KB
Line 
1ORYDLG ;SLC/MKB -- Postinit bulletin for order dialogs ;7/28/04 08:18
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**141,165,216**;Dec 17, 1997
3 ;
4EN(PATCH,ORDLG,USERS) ; -- look for local copies of ORDLG(NAME) by package,
5 ; send list in bulletin to DUZ, POSTMASTER, USERS(DUZ) when done
6 ;
7 Q:$O(ORDLG(""))="" ;none
8 N ORZ,ORI,X,NM,I,OR0,PKG,DG,ORPKG,ORNATL,DLG,CNT
9 S ORZ(1)="The following nationally exported order dialogs have been modified by"
10 S X="this patch: ",ORI=1,NM="" F S NM=$O(ORDLG(NM)) Q:NM="" D
11 . S ORI=ORI+1,ORZ(ORI)=X_NM,X=" "
12 . S I=+$O(^ORD(101.41,"AB",NM,0)),OR0=$G(^ORD(101.41,I,0))
13 . S PKG=+$P(OR0,U,7),DG=+$P(OR0,U,5) S:PKG ORPKG(PKG,DG)=""
14 S I=0 F I=1:1 S X=$T(NATL+I) Q:X["ZZZZZ" S ORNATL($P(X,";",3))=""
15 S ORI=ORI+1,ORZ(ORI)="Please review and compare the following locally created order dialogs"
16 S ORI=ORI+1,ORZ(ORI)="that may be copies, for any necessary changes:",CNT=0
17 S PKG=0 F S PKG=$O(ORPKG(PKG)) Q:PKG<1 S DLG=0 D
18 . F S DLG=+$O(^ORD(101.41,"APKG",PKG,DLG)) Q:DLG<1 D
19 .. S OR0=$G(^ORD(101.41,DLG,0)) Q:$P(OR0,U,4)'="D"
20 .. Q:'$D(ORPKG(PKG,+$P(OR0,U,5))) ;included DispGrp
21 .. Q:$D(ORNATL($P(OR0,U))) S CNT=CNT+1
22 .. S ORI=ORI+1,ORZ(ORI)=$J(DLG,7)_" "_$P(OR0,U)
23EN1 I CNT>0 D ;local copies found -> send bulletin
24 . N XMDUZ,XMY,I,XMSUB,XMTEXT,DIFROM
25 . S XMDUZ="PATCH OR*3*"_$G(PATCH)_" POSTINIT",XMY(.5)=""
26 . S:$G(DUZ) XMY(DUZ)="" S I=0 F S I=$O(USERS(I)) Q:I<1 S XMY(I)=""
27 . S XMSUB=XMDUZ_" COMPLETED",XMTEXT="ORZ(" D ^XMD
28 . D BMES^XPDUTL("Some national order dialogs have been modified in this patch;")
29 . D MES^XPDUTL("a bulletin has been sent to the installer listing local copies that")
30 . D MES^XPDUTL("may need to be reviewed and updated.")
31 Q
32 ;
33NATL ;;Nationally exported dialogs
34 ;;FHW1
35 ;;FHW2
36 ;;FHW3
37 ;;FHW7
38 ;;FHW8
39 ;;GMRAOR ALLERGY ENTER/EDIT
40 ;;GMRCOR CONSULT
41 ;;GMRCOR REQUEST
42 ;;GMRVOR
43 ;;LR OTHER LAB TESTS
44 ;;OR GWCOND CONDITION
45 ;;OR GWDIAG DIAGNOSIS
46 ;;OR GWINST DNR
47 ;;OR GXACTV OTHER ACTIVITY ORDER
48 ;;OR GXMISC GENERAL
49 ;;OR GXMOVE ADMIT PATIENT
50 ;;OR GXMOVE DISCHARGE
51 ;;OR GXMOVE EVENT
52 ;;OR GXMOVE TRANSFER
53 ;;OR GXMOVE TREATING SPECIALTY
54 ;;OR GXPARM CALL HO ON
55 ;;OR GXSKIN DRESSING CHANGE
56 ;;OR GXTEXT TEXT ONLY ORDER
57 ;;OR GXTEXT WORD PROCESSING ORDER
58 ;;ORWD GENERIC ACTIVITY
59 ;;ORWD GENERIC DIET
60 ;;ORWD GENERIC NURSING
61 ;;ORWD GENERIC VITALS
62 ;;PS MEDS
63 ;;PSJ OR PAT OE
64 ;;PSJI OR PAT FLUID OE
65 ;;PSO OERR
66 ;;PSO SUPPLY
67 ;;RA OERR EXAM
68 ;;ZZZZZ
Note: See TracBrowser for help on using the repository browser.