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

ORY85.m

Go to the documentation of this file. 
  1. ORY85 ; slc/dcm - Patch 85 Post-init ;5/1/01  13:47 [6/15/01 12:37pm]
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85**;Dec 17, 1997
  1.  ;
  1. PRE ; pre-install calls
  1.  N VER
  1.  S VER=+$P($T(VERSION^ORY85),";",3)
  1.  I $O(^ORD(101.24,0)) D
  1.  . D EN,COV,RPT,LAB
  1.  . K ^ORD(101.24)
  1.  . S ^ORD(101.24,0)="OE/RR REPORT^101.24"
  1.  Q
  1. POST ; post-install calls
  1.  N VER
  1.  S VER=$P($T(VERSION^ORY85),";",3)
  1.  D EN,COV,RPT,LAB
  1.  I +$$PATCH^XPDUTL("TIU*1.0*100") D IDNOTES
  1.  D MVALL^ORWUL
  1.  D REMOK
  1.  D CLEANT0
  1.  D MAIL
  1.  Q
  1. EN ;Convert a parameter
  1.  N ORX,ORI,DA,PARAM
  1.  D GETLST^XPAR(.ORX,"SYS","ORWOR COVER RETRIEVAL NEW","Q")
  1.  I $O(ORX(0)) Q  ;New parameter has already been setup
  1.  K ORX
  1.  D GETLST^XPAR(.ORX,"PKG","ORWOR COVER RETRIEVAL","Q")
  1.  S PARAM="ORWOR COVER RETRIEVAL NEW",ORI=0
  1.  F  S ORI=$O(ORX(ORI)) Q:'ORI  S ORY=ORX(ORI) D
  1.  . I $P(ORY,"^")="c" D
  1.  .. S DA=$O(^ORD(101.24,"B","Postings",0)) I DA D DEL^XPAR("PKG",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV POSTINGS",0)) I DA D PUT^XPAR("PKG",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="e" D
  1.  .. S DA=$O(^ORD(101.24,"B","Appointments/Visits/Admissions",0)) Q:'DA  D DEL^XPAR("PKG",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV APPOINTMENTS",0)) I DA D PUT^XPAR("PKG",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="l" D
  1.  .. S DA=$O(^ORD(101.24,"B","Recent Lab Results",0)) I DA D DEL^XPAR("PKG",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV RECENT LAB RESULTS",0)) I DA D PUT^XPAR("PKG",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="m" D
  1.  .. S DA=$O(^ORD(101.24,"B","Active Medications",0)) I DA D DEL^XPAR("PKG",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV ACTIVE MEDICATIONS",0)) I DA D PUT^XPAR("PKG",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="p" D
  1.  .. S DA=$O(^ORD(101.24,"B","Active Problems",0)) I DA D DEL^XPAR("PKG",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV ACTIVE PROBLEMS",0)) I DA D PUT^XPAR("PKG",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="r" D
  1.  .. S DA=$O(^ORD(101.24,"B","Clinical Reminders            ",0)) I DA D DEL^XPAR("PKG",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV CLINICAL REMINDERS",0)) I DA D PUT^XPAR("PKG",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="v" D
  1.  .. S DA=$O(^ORD(101.24,"B","Vitals",0)) I DA D DEL^XPAR("PKG",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV VITALS",0)) I DA D PUT^XPAR("PKG",PARAM,DA,$P(ORY,"^",2))
  1.  K ORX
  1.  D GETLST^XPAR(.ORX,"SYS","ORWOR COVER RETRIEVAL","Q")
  1.  S ORI=0
  1.  F  S ORI=$O(ORX(ORI)) Q:'ORI  S ORY=ORX(ORI) D
  1.  . I $P(ORY,"^")="c" D
  1.  .. S DA=$O(^ORD(101.24,"B","Postings",0)) I DA D DEL^XPAR("SYS",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV POSTINGS",0)) I DA D PUT^XPAR("SYS",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="e" D
  1.  .. S DA=$O(^ORD(101.24,"B","Appointments/Visits/Admissions",0)) I DA D DEL^XPAR("SYS",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV APPOINTMENTS",0)) I DA D PUT^XPAR("SYS",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="l" D
  1.  .. S DA=$O(^ORD(101.24,"B","Recent Lab Results",0)) I DA D DEL^XPAR("SYS",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV RECENT LAB RESULTS",0)) I DA D PUT^XPAR("SYS",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="m" D
  1.  .. S DA=$O(^ORD(101.24,"B","Active Medications",0)) I DA D DEL^XPAR("SYS",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV ACTIVE MEDICATIONS",0)) I DA D PUT^XPAR("SYS",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="p" D
  1.  .. S DA=$O(^ORD(101.24,"B","Active Problems",0)) I DA D DEL^XPAR("SYS",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV ACTIVE PROBLEMS",0)) I DA D PUT^XPAR("SYS",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="r" D
  1.  .. S DA=$O(^ORD(101.24,"B","Clinical Reminders            ",0)) I DA D DEL^XPAR("SYS",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV CLINICAL REMINDERS",0)) I DA D PUT^XPAR("SYS",PARAM,DA,$P(ORY,"^",2))
  1.  . I $P(ORY,"^")="v" D
  1.  .. S DA=$O(^ORD(101.24,"B","Vitals",0)) I DA D DEL^XPAR("SYS",PARAM,DA)
  1.  .. S DA=$O(^ORD(101.24,"B","ORCV VITALS",0)) I DA D PUT^XPAR("SYS",PARAM,DA,$P(ORY,"^",2))
  1.  Q
  1. COV ;Setup Package level parameters for ORWCV1 COVERSHEET LIST
  1.  N P,T
  1.  S P="ORWCV1 COVERSHEET LIST",T="C"
  1.  D SET("Active Problems","ORCV ACTIVE PROBLEMS",P,1,T)
  1.  D SET("Allergies / Adverse Reactions","ORCV ALLERGIES",P,2,T)
  1.  D SET("Postings","ORCV POSTINGS",P,3,T)
  1.  D SET("Active Medications","ORCV ACTIVE MEDICATIONS",P,4,T)
  1.  D SET("Clinical Reminders            ","ORCV CLINICAL REMINDERS",P,5,T)
  1.  D SET("Recent Lab Results","ORCV RECENT LAB RESULTS",P,6,T)
  1.  D SET("Vitals","ORCV VITALS",P,7,T)
  1.  D SET("Appointments/Visits/Admissions","ORCV APPOINTMENTS",P,8,T)
  1.  Q
  1. RPT ;Setup Package level parameters for ORWRP REPORT LIST
  1.  N P,T
  1.  S P="ORWRP REPORT LIST",T="R"
  1.  D SET("HEALTH SUMMARY","ORRP HEALTH SUMMARY",P,5,T)
  1.  D SET("IMAGING","ORRP IMAGING",P,10,T)
  1.  D SET("LAB STATUS","ORRP LAB STATUS",P,15,T)
  1.  D SET("BLOOD BANK","ORRP BLOOD BANK",P,20,T)
  1.  D SET("ANATOMIC PATHOLOGY","ORRP ANATOMIC PATHOLOGY",P,25,T)
  1.  D SET("DIETETICS PROFILE","ORRP DIETETICS PROFILE",P,30,T)
  1.  D SET("NUTRITIONAL ASSESSMENT","ORRP NUTRITIONAL ASSESS",P,35,T)
  1.  D SET("VITALS CUMULATIVE","ORRP VITALS CUM",P,40,T)
  1.  D SET("PROCEDURES","ORRP PROCEDURES",P,45,T)
  1.  D SET("DAILY ORDER SUMMARY","ORRP DAILY ORDER SUMMARY",P,50,T)
  1.  D SET("ORDER SUMMARY FOR A DATE RANGE","ORRP ORDER SUM FOR A DATE RNG",P,55,T)
  1.  D SET("CHART COPY SUMMARY","ORRP CHART COPY SUMMARY",P,60,T)
  1.  D SET("OUTPATIENT RX PROFILE","ORRP OUTPATIENT RX PROFILE",P,65,T)
  1.  D SET("ZZNONAMEZZ","ORRP BCMA MED LOG",P,70,T)
  1.  D SET("ZZNONAMEZZ","ORRP BCMA MAH",P,75,T)
  1.  Q
  1. LAB ;Setup Package level parameters for ORWRP REPORT LAB LIST
  1.  N P,T
  1.  S P="ORWRP REPORT LAB LIST",T="L"
  1.  D SET("MOST RECENT","ORL MOST RECENT",P,5,T)
  1.  D SET("CUMULATIVE","ORL CUMULATIVE",P,10,T)
  1.  D SET("ALL TESTS BY DATE","ORL ALL TESTS BY DATE",P,15,T)
  1.  D SET("SELECTED TESTS BY DATE","ORL SELECTED TESTS BY DATE",P,20,T)
  1.  D SET("WORKSHEET","ORL WORKSHEET",P,25,T)
  1.  D SET("GRAPH","ORL GRAPH",P,30,T)
  1.  D SET("MICROBIOLOGY","ORL MICROBIOLOGY",P,35,T)
  1.  D SET("ANATOMIC PATHOLOGY","ORL ANATOMIC PATHOLOGY",P,40,T)
  1.  D SET("BLOOD BANK","ORL BLOOD BANK",P,45,T)
  1.  D SET("LAB STATUS","ORL LAB STATUS",P,50,T)
  1.  Q
  1. SET(ONAME,NAME,P,S,T) ;Set the parameter
  1.  ;ONAME=OLD Report name
  1.  ;NAME=Report name
  1.  ;P=Parameter name
  1.  ;S=Sequence (count)
  1.  ;T=Tab
  1.  N DA
  1.  S DA=0
  1.  F  S DA=$O(^ORD(101.24,"B",ONAME,DA)) Q:'DA  I $P(^ORD(101.24,DA,0),"^",8)=T D DEL^XPAR("PKG",P,S)
  1.  S DA=0
  1.  F  S DA=$O(^ORD(101.24,"B",NAME,DA)) Q:'DA  I $P(^ORD(101.24,DA,0),"^",8)=T D PUT^XPAR("PKG",P,S,DA)
  1.  Q
  1.  ;
  1. REMOK ; Set up ORB ERASE ALL
  1.  D EN^XPAR("PKG","ORB ERASE ALL",1,"Y")
  1.  Q
  1.  ;
  1. CLEANT0 ; clean any T+0 set into parameters by mistake
  1.  N ENTITY,INST,PARAMS,PIEN,RNG
  1.  F RNG="START","STOP" D
  1.  .F PARAMS="ORQQAP SEARCH RANGE "_RNG,"ORQQVS SEARCH RANGE "_RNG,"ORLP DEFAULT CLINIC "_RNG_" DATE" D
  1.  ..S PIEN=+$O(^XTV(8989.51,"B",PARAMS,0)) I 'PIEN Q
  1.  ..S ENTITY="" F  S ENTITY=$O(^XTV(8989.5,"AC",PIEN,ENTITY)) Q:ENTITY=""  D
  1.  ...I ENTITY'[";VA(200," Q
  1.  ...I $G(^XTV(8989.5,"AC",PIEN,ENTITY,1))="T+0" D
  1.  ....D EN^XPAR("USR.`"_ENTITY,PARAMS,1,"T")
  1.  Q
  1.  ;
  1. MAIL ; send bulletin of installation time
  1.  N COUNT,DIFROM,I,START,TEXT,XMDUZ,XMSUB,XMTEXT,XMY
  1.  S COUNT=0
  1.  S XMSUB="Version "_$P($T(VERSION),";;",2)_" Installed"
  1.  S XMDUZ="CPRS PACKAGE"
  1.  F I="G.CPRS GUI INSTALL@DOMAIN.NAME",DUZ S XMY(I)=""
  1.  S XMTEXT="TEXT("
  1.  ;
  1.  S X=$P($T(VERSION),";;",2)
  1.  D LINE("Version "_X_" has been installed.")
  1.  D LINE(" ")
  1.  D LINE("Install complete:  "_$$FMTE^XLFDT($$NOW^XLFDT()))
  1.  ;
  1.  D ^XMD
  1.  Q
  1. LINE(DATA) ; set text into array
  1.  S COUNT=COUNT+1
  1.  S TEXT(COUNT)=DATA
  1.  Q
  1. SENDPAR(ANAME) ; Return true if the current parameter should be sent
  1.  I ANAME="ORWCV1 COVERSHEET LIST" Q 1
  1.  I ANAME="ORWOR COVER RETRIEVAL NEW" Q 1
  1.  I ANAME="ORWDQ QUICK VIEW" Q 1
  1.  I ANAME="ORK EDITABLE BY USER" Q 1
  1.  I ANAME="ORK PROCESSING FLAG" Q 1
  1.  I ANAME="ORWDPS SUPPRESS DISPENSE MSG" Q 1
  1.  I ANAME="ORWDPS ROUTING DEFAULT" Q 1
  1.  I ANAME="ORB ERASE ALL" Q 1
  1.  I $E(ANAME,1,12)="ORWRP REPORT" Q 1
  1.  I $E(ANAME,1,6)="ORQQPX" Q 1
  1.  I $E(ANAME,1,6)="ORWPCE" Q 1
  1.  Q 0
  1. IDNOTES ; Re-register TIU RPCs if TIU patch 100 previously installed
  1.  ; TIU patch 100 registers these in its post-init
  1.  N MENU,I
  1.  S MENU="OR CPRS GUI CHART"
  1.  F I="TIU ID ATTACH ENTRY","TIU ID CAN ATTACH","TIU ID CAN RECEIVE","TIU ID DETACH ENTRY" D INSERT(MENU,I)
  1.  Q
  1.  ;
  1. INSERT(OPTION,RPC) ;
  1.  N FDA,FDAIEN,ERR,DIERR
  1.  S FDA(19,"?1,",.01)=OPTION
  1.  S FDA(19.05,"?+2,?1,",.01)=RPC
  1.  D UPDATE^DIE("E","FDA","FDAIEN","ERR")
  1.  Q
  1.  ;
  1. VERSION ;;15.12