Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORYDLG

ORYDLG.m

Go to the documentation of this file.
  1. ORYDLG ;SLC/MKB -- Postinit bulletin for order dialogs ;01/25/18 04:42
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**141,165,216,243,280,377**;Dec 17, 1997;Build 582
  1. ;
  1. EN(PATCH,ORDLG,USERS) ; -- look for local copies of ORDLG(NAME) by package,
  1. ; send list in bulletin to DUZ, POSTMASTER, USERS(DUZ) when done
  1. ;
  1. Q:$O(ORDLG(""))="" ;none
  1. N ORZ,ORI,X,NM,I,OR0,PKG,DG,ORPKG,ORNATL,DLG,CNT,LR,PS
  1. S ORZ(1)="The following nationally exported order dialogs have been modified by"
  1. S X="this patch: ",ORI=1,NM="" F S NM=$O(ORDLG(NM)) Q:NM="" D
  1. . S ORI=ORI+1,ORZ(ORI)=X_NM,X=" "
  1. . S I=+$O(^ORD(101.41,"AB",NM,0)),OR0=$G(^ORD(101.41,I,0))
  1. . S PKG=+$P(OR0,U,7),DG=+$P(OR0,U,5) S:PKG ORPKG(PKG,DG)=""
  1. . S:$P(NM," ")="LR" LR=1 S:"^PS^PSJ^PSO^PSH^"[(U_$P(NM," ")_U) PS=1
  1. D:$G(LR) LR D:$G(PS) PS ;reset FORMAT codes in changed dialogs
  1. S I=0 F I=1:1 S X=$T(NATL+I) Q:X["ZZZZZ" S ORNATL($P(X,";",3))=""
  1. S ORI=ORI+1,ORZ(ORI)="Please review and compare the following locally created order dialogs"
  1. S ORI=ORI+1,ORZ(ORI)="that may be copies, for any necessary changes:",CNT=0
  1. S PKG=0 F S PKG=$O(ORPKG(PKG)) Q:PKG<1 S DLG=0 D
  1. . F S DLG=+$O(^ORD(101.41,"APKG",PKG,DLG)) Q:DLG<1 D
  1. .. S OR0=$G(^ORD(101.41,DLG,0)) Q:$P(OR0,U,4)'="D"
  1. .. Q:'$D(ORPKG(PKG,+$P(OR0,U,5))) ;included DispGrp
  1. .. Q:$D(ORNATL($P(OR0,U))) S CNT=CNT+1
  1. .. S ORI=ORI+1,ORZ(ORI)=$J(DLG,7)_" "_$P(OR0,U)
  1. EN1 I CNT>0 D ;local copies found -> send bulletin
  1. . N XMDUZ,XMY,I,XMSUB,XMTEXT,DIFROM
  1. . S XMDUZ="PATCH OR*3*"_$G(PATCH)_" POSTINIT",XMY(.5)=""
  1. . S:$G(DUZ) XMY(DUZ)="" S I=0 F S I=$O(USERS(I)) Q:I<1 S XMY(I)=""
  1. . S XMSUB=XMDUZ_" COMPLETED",XMTEXT="ORZ(" D ^XMD
  1. . D BMES^XPDUTL("Some national order dialogs have been modified in this patch;")
  1. . D MES^XPDUTL("a bulletin has been sent to the installer listing local copies that")
  1. . D MES^XPDUTL("may need to be reviewed and updated.")
  1. Q
  1. ;
  1. NATL ;;Nationally exported dialogs
  1. ;;FHW1
  1. ;;FHW2
  1. ;;FHW3
  1. ;;FHW7
  1. ;;FHW8
  1. ;;FHW OP MEAL
  1. ;;FHW SPECIAL MEAL
  1. ;;GMRAOR ALLERGY ENTER/EDIT
  1. ;;GMRCOR CONSULT
  1. ;;GMRCOR REQUEST
  1. ;;GMRVOR
  1. ;;LR OTHER LAB TESTS
  1. ;;OR GWCOND CONDITION
  1. ;;OR GWDIAG DIAGNOSIS
  1. ;;OR GWINST DNR
  1. ;;OR GXACTV OTHER ACTIVITY ORDER
  1. ;;OR GXMISC GENERAL
  1. ;;OR GXMOVE ADMIT PATIENT
  1. ;;OR GXMOVE DISCHARGE
  1. ;;OR GXMOVE EVENT
  1. ;;OR GXMOVE TRANSFER
  1. ;;OR GXMOVE TREATING SPECIALTY
  1. ;;OR GXPARM CALL HO ON
  1. ;;OR GXSKIN DRESSING CHANGE
  1. ;;OR GXTEXT TEXT ONLY ORDER
  1. ;;OR GXTEXT WORD PROCESSING ORDER
  1. ;;ORWD GENERIC ACTIVITY
  1. ;;ORWD GENERIC DIET
  1. ;;ORWD GENERIC NURSING
  1. ;;ORWD GENERIC VITALS
  1. ;;PS MEDS
  1. ;;PSH OERR
  1. ;;PSJ OR PAT OE
  1. ;;PSJI OR PAT FLUID OE
  1. ;;PSO OERR
  1. ;;PSO SUPPLY
  1. ;;RA OERR EXAM
  1. ;;SD RTC
  1. ;;PSJ OR CLINIC OE
  1. ;;CLINIC OR PAT FLUID OE
  1. ;;ZZZZZ
  1. ;
  1. PS ; -- reset FORMAT values in PS dialogs
  1. N DRUG,OI,STR,DLGNM,DLG,PRMT,DA
  1. S DRUG=$$PTR("OR GTX DRUG NAME")
  1. S OI=$$PTR("OR GTX ORDERABLE ITEM"),STR=$$PTR("OR GTX STRENGTH")
  1. F DLGNM="PS MEDS","PSJ OR PAT OE","PSO OERR","PSO SUPPLY","PSH OERR" D
  1. . S DLG=$$PTR(DLGNM)
  1. . F PRMT=OI,STR D
  1. .. S DA=+$O(^ORD(101.41,DLG,10,"D",PRMT,0))
  1. .. S:DA $P(^ORD(101.41,DLG,10,DA,2),U,2)=("@"_DRUG)
  1. Q
  1. ; IV dialog
  1. S DLG=$$PTR("PSJI OR PAT FLUID OE"),PRMT=$$PTR("OR GTX INFUSION RATE")
  1. S DA=+$O(^ORD(101.41,DLG,10,"D",PRMT,0))
  1. I DA S $P(^ORD(101.41,DLG,10,DA,2),U,2)=("@"_$$PTR("OR GTX SCHEDULE"))
  1. Q
  1. ;
  1. LR ; -- reset FORMAT value in LR dialog
  1. N DLG,PRMT,DA
  1. S DLG=$$PTR("LR OTHER LAB TESTS"),PRMT=$$PTR("OR GTX SPECIMEN")
  1. S DA=+$O(^ORD(101.41,DLG,10,"D",PRMT,0))
  1. I DA S $P(^ORD(101.41,DLG,10,DA,2),U,2)=("="_$$PTR("OR GTX COLLECTION SAMPLE"))
  1. Q
  1. ;
  1. PTR(X) Q +$O(^ORD(101.41,"B",X,0))