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

ORY132.m

Go to the documentation of this file.
  1. ORY132 ;SLC/REV -- postinit rtn for OR*3*132 ;12/13/01 06:25 [4/29/02 4:53pm]
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**132**;Dec 17, 1997
  1. ;
  1. Q
  1. ;
  1. PRE ; -- preinit
  1. Q
  1. ;
  1. POST ; -- postinit
  1. N VER
  1. S VER=$P($T(VERSION^ORY132),";",3)
  1. I +$$PATCH^XPDUTL("TIU*1.0*109") D CPREG
  1. I +$$PATCH^XPDUTL("TIU*1.0*112") D SURGREG
  1. D SURGRPT
  1. D SETVAL
  1. D TASKJOB
  1. D MAIL
  1. ;
  1. Q
  1. ;
  1. TASKJOB ; Queue background task to update Order file for Alert Results field.
  1. ;
  1. N ZTRTN,ZTDESC,ZTIO,ZTSAVE,ZTDTH,ZTSK
  1. ;
  1. S ZTRTN="FIXALERT^ORY132",ZTDESC="OR*3*132 Post Install",ZTIO="",ZTSAVE("DUZ")="",ZTDTH=$H
  1. D ^%ZTLOAD
  1. I $G(ZTSK) D MES^XPDUTL("Order file update for OR*3*132 queued as task number "_ZTSK_".")
  1. I '$G(ZTSK) D MES^XPDUTL("Order file update task did not queue")
  1. ;
  1. Q
  1. ;
  1. SETVAL ;
  1. N ORP,ORT
  1. S ORP="ORWRP REPORT LIST",ORT=$O(^ORD(101.24,"B","ORRPW DOD",0))
  1. I ORT D PUT^XPAR("PKG",ORP,8,ORT)
  1. Q
  1. CPREG ; Register TIU Clinical Procedures RPCs if TIU*1.0*109 present
  1. N MENU,RPC
  1. S MENU="OR CPRS GUI CHART"
  1. F RPC="TIU IS THIS A CLINPROC?","TIU IDENTIFY CLINPROC CLASS","TIU LONG LIST CLINPROC TITLES" D INSERT(MENU,RPC)
  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" 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. SURGRPT ; Add Surgery report to Reports tab
  1. N ORSURG,ORI,ORP,ORT,ORS,ORLST,ORERR,FOUND
  1. S ORP="ORWRP REPORT LIST",ORT=$O(^ORD(101.24,"B","ORRP SURGERIES",0))
  1. S ORSURG=$O(^ORD(101.24,"B","ORRP SURGERIES",0)),ORI=0,FOUND=0
  1. D GETLST^XPAR(.ORLST,"PKG","ORWRP REPORT LIST","Q",.ORERR)
  1. F S ORI=$O(ORLST(ORI)) Q:+ORI=0!(FOUND) D
  1. . I $P(ORLST(ORI),U,2)=ORSURG S FOUND=1
  1. Q:+FOUND
  1. S ORS=+ORLST(ORLST)+5
  1. D PUT^XPAR("PKG",ORP,ORS,ORT)
  1. Q
  1. ;
  1. FIXALERT ; convert "1" in ALERT ON RESULTS field to Ordering Provider
  1. N ORX,ORDUZ,ORTEXT
  1. S ORX=0 F S ORX=$O(^OR(100,ORX)) Q:+$G(ORX)<1 D
  1. .I $P($G(^OR(100,ORX,3)),U,10)=1 D
  1. ..S ORDUZ=$$ORDERER^ORQOR2(ORX)
  1. ..I +$G(ORDUZ)>1 S $P(^OR(100,ORX,3),U,10)=+$G(ORDUZ)
  1. S TEXT(1)="Background task for OR*3*132 has completed."
  1. ;
  1. ; Send message to user, postmaster:
  1. N XMSUB,XMTEXT,SMDUZ,SMY
  1. S XMSUB="Patch OR*3*132 Tasked Post-Install Complete" ; Msg subject.
  1. S XMDUZ="Patch OR*3*132 Tasked Post Install" ; Message "from."
  1. S XMY(.5)="" S:$G(DUZ) XMY(DUZ)="" ; To user,postmaster.
  1. S XMTEXT="TEXT("
  1. D ^XMD
  1. ;
  1. Q
  1. ;
  1. SENDPAR(ANAME) ; Return true if the current parameter should be sent
  1. I ANAME="ORCH INITIAL TAB" Q 1
  1. I ANAME="ORWOR SHOW SURGERY TAB" Q 1
  1. I ANAME="ORWOR PKI USE" Q 1
  1. Q 0
  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.DOMAIN.EXT",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 ;;19.7