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

ORY190.m

Go to the documentation of this file. 
  1. ORY190 ; slc/CLA - Pre and Post-init for patch OR*3*190 ; Aug 6, 2003@11:02:31 [6/17/04 12:59pm]
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**190**;Dec 17, 1997
  1.  ;
  1. PRE ;initiate pre-init processes
  1.  ;
  1.  Q
  1.  ;
  1. POST ;initiate post-init processes
  1.  ;
  1.  N VER
  1.  ;
  1.  S VER=$P($T(VERSION^ORY190),";",3)
  1.  I +$$PATCH^XPDUTL("TIU*1.0*112") D SURGREG
  1.  D SETVAL
  1.  D SORTCHG
  1.  D PSIV
  1.  D MAIL
  1.  ;
  1.  Q
  1.  ;
  1. SURGREG ; Register TIU SURGERY RPCs if TIU*1.0*112 present
  1.  N MENU,RPC
  1.  S MENU="OR CPRS GUI CHART"
  1.  F RPC="TIU IS THIS A SURGERY?","TIU IDENTIFY SURGERY CLASS","TIU LONG LIST SURGERY TITLES","TIU GET DOCUMENTS FOR REQUEST" D INSERT(MENU,RPC)
  1.  Q
  1.  ;
  1. INSERT(OPTION,RPC) ; Call FM Updater with each RPC
  1.  ; Input  -- OPTION   Option file (#19) Name field (#.01)
  1.  ;           RPC      RPC sub-file (#19.05) RPC field (#.01)
  1.  ; Output -- None
  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. SETVAL ; Set package-level values for params
  1.  N X
  1.  S X=0,X=$O(^ORD(100.98,"B","NON-VA MEDICATIONS",X)) Q:'X  D 
  1.  . D PUT^XPAR("PKG","ORWOR CATEGORY SEQUENCE",68,X)
  1.  S X=0,X=$O(^ORD(101.41,"B","PSH OERR",X)) Q:'X  D 
  1.  . D PUT^XPAR("PKG","ORWOR WRITE ORDERS LIST",53,X)
  1.  D PUT^XPAR("PKG","ORWD NONVA REASON",1,"Outside medication not recommended by provider.")
  1.  D PUT^XPAR("PKG","ORWD NONVA REASON",2,"Outside medication recommended by provider.")
  1.  D PUT^XPAR("PKG","ORWD NONVA REASON",3,"Patient buys OTC/herbal product without medical advice.")
  1.  D PUT^XPAR("PKG","ORWD NONVA REASON",4,"Medication prescribed by another provider.")
  1.  ;
  1.  D PUT^XPAR("PKG","ORB SORT METHOD",1,"D")  ; Date/Time
  1.  Q
  1.  ;
  1. SORTCHG ; conver "T" sort method values to "M"
  1.  N ORLST,ORERR,ORBX,ORBE,ORBERR
  1.  S ORBE=0,ORBX=0
  1.  D ENVAL^XPAR(.ORLST,"ORB SORT METHOD",1,.ORERR)
  1.  I 'ORERR,$G(ORLST)>0 D
  1.  .F ORBX=1:1:ORLST S ORBE=$O(ORLST(ORBE)) I ORLST(ORBE,1)="T" D
  1.  ..D EN^XPAR(ORBE,"ORB SORT METHOD",1,"M",.ORBERR)
  1.  ..I +ORBERR>0 D
  1.  ...S X="Error: "_ORBERR_" converting ORB SORT METHOD value 'T' to 'M' for entity "_ORBE
  1.  ...D BMES^XPDUTL(X)
  1.  Q
  1.  ;
  1. PSIV ; convert package ptrs in #101.41 from PSIV to PSJ
  1.  N ORPSIV,ORPSJ,ORI,X
  1.  S ORPSIV=+$$PKG^ORMPS1("PSIV"),ORPSJ=+$$PKG^ORMPS1("PSJ") Q:ORPSJ<1
  1.  S ORI=$O(^ORD(101.41,"B","PSJI OR PAT FLUID OE",0)) I ORI,$D(^ORD(101.41,ORI,0)) S X=$P(^(0),U,7),$P(^(0),U,7)=ORPSJ K ^ORD(101.41,"APKG",X,ORI) S ^ORD(101.41,"APKG",ORPSJ,ORI)="" ;ensure IV dlg is correct
  1.  I ORPSIV S ORI=0 F  S ORI=$O(^ORD(101.41,"APKG",ORPSIV,ORI)) Q:ORI<1  D
  1.  . K ^ORD(101.41,"APKG",ORPSIV,ORI)
  1.  . S $P(^ORD(101.41,ORI,0),U,7)=ORPSJ,^ORD(101.41,"APKG",ORPSJ,ORI)=""
  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@ISC-SLC.VA.GOV",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.  ;
  1. LINE(DATA) ; set text into array
  1.  S COUNT=COUNT+1
  1.  S TEXT(COUNT)=DATA
  1.  Q
  1.  ;
  1. VERSION ;;24.26