| 1 | ORYDLG ;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 | ;
|
|---|
| 4 | EN(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)
|
|---|
| 23 | EN1 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 | ;
|
|---|
| 33 | NATL ;;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
|
|---|
