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

ORQO441P.m

Go to the documentation of this file.
  1. ORQO441P ;EPIP/RTW - QUICK ORDER POST INSTALL ; 12/29/17 10:03am
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**441**;Dec 17, 1997;Build 52
  1. ;ICR# Type Description
  1. ;----- ---- -------------------------------------
  1. ;1472 Sup RESCH^XUTMOPT [allows creation of new record in 19.2]
  1. ;1157 Sup $$LKOPT^XPDMENU
  1. ;2053 Sup FILE^DIE
  1. ;10103 Sup $$FMTE^XLFDT
  1. ;10141 Sup MES^XPDUTL
  1. ;5033 CS Lookup name in file 8925.1 [OR not a subscriber]
  1. ;10013 Sup ^DIk Multiple entry points to support entry deletion and file reindexing.
  1. ;
  1. I $D(^TIU(8925.1,"B","OR QUICK ORDER AUDIT")) D OBJECT1
  1. I $D(^TIU(8925.1,"B","OR QUICK ORDER AUDIT(ALT)")) D OBJECT2
  1. D TASK,OBJECT3,ORFUMPS
  1. Q
  1. TASK ;
  1. N ORQAOPTB,ORQAOPTN,DA,DIE,DR,X,ORQWHEN
  1. S ORQWHEN=DT_"@2301" ;ORQWHEN IS THE QUICK ORDER NIGHTLY TASK Date Time
  1. W !,"The 'QUICK ORDER NIGHTLY BG' option is scheduled to run at: "
  1. D RESCH^XUTMOPT("OR QUICK ORDER NIGHTLY BG",ORQWHEN,"","1D","L",".ORQA_ERROR")
  1. S ORQAOPTN=$$FIND1^DIC(19,"","X","OR QUICK ORDER NIGHTLY BG","B")
  1. S ORQAOPTB=0,ORQAOPTB=+$P($Q(^DIC(19.2,"B",ORQAOPTN,ORQAOPTB)),",",4) W ORQAOPTB
  1. S DIE="^DIC(19.2,",DR="11///.5",DA=ORQAOPTB D ^DIE
  1. Q
  1. ;
  1. OBJECT1 ;
  1. N ORBIEN,DIK,DA
  1. I $D(^TIU(8925.1,"B","OR QUICK ORDER AUDIT")) S ORBIEN=0,ORBIEN=$O(^TIU(8925.1,"B","OR QUICK ORDER AUDIT",ORBIEN)) D
  1. . S DIK="^TIU(8925.1,"
  1. . S DA=ORBIEN
  1. . D ^DIK
  1. Q
  1. OBJECT2 ;
  1. N ORBIEN,DIK,DA
  1. I $D(^TIU(8925.1,"B","OR QUICK ORDER AUDIT(ALT)")) S ORBIEN=0,ORBIEN=$O(^TIU(8925.1,"B","OR QUICK ORDER AUDIT(ALT)",ORBIEN)) D
  1. . S DIK="^TIU(8925.1,"
  1. . S DA=ORBIEN
  1. . D ^DIK
  1. Q
  1. OBJECT3 ;
  1. N OROBJECT,ORTYPE,ORMETHOD,ORPEROWN,ORCLOWN,ORSTATUS,OBOBFDA,ORUSRCL
  1. S ORUSRCL=0,ORUSRCL=$O(^USR(8930,"B","CLINICAL COORDINATOR",ORUSRCL))
  1. S OROBJECT="" F OROBJECT="OR QUICK ORDER AUDIT","OR QUICK ORDER AUDIT(ALT)" Q:OROBJECT="" D
  1. .Q:$D(^TIU(8925.1,"B",OROBJECT))
  1. .S ORTYPE="OBJECT",ORPEROWN="POSTMASTER",ORCLOWN="CLINICAL COORDINATOR"
  1. .S:OROBJECT'["ALT" ORMETHOD="S X=$$AUD^ORQOAUIC(DFN,""P"",$P($G(X0),U,1))"
  1. .S:OROBJECT["ALT" ORMETHOD="S X=$$AUD^ORQOAUIC(DFN,""A"",$P($G(X0),U,1))"
  1. .S FDA(8925.1,"+1,",.01)=OROBJECT
  1. .S FDA(8925.1,"+1,",.03)=OROBJECT
  1. .S FDA(8925.1,"+1,",.04)="O"
  1. .S FDA(8925.1,"+1,",.05)=.5
  1. .S FDA(8925.1,"+1,",.06)=ORUSRCL
  1. .S FDA(8925.1,"+1,",.07)="11"
  1. .S FDA(8925.1,"+1,",9)=ORMETHOD
  1. .S FDA(8925.1,"+1,",99)=$H
  1. .;
  1. .D UPDATE^DIE("","FDA","FDAIEN","MSG")
  1. .K FDA,FDAIEN
  1. I $D(MSG) D Q
  1. . S ORX="TIU Object creation failed. The following error message was returned:"
  1. . W !
  1. . D MES^XPDUTL(ORX)
  1. S ORX="TIU Object created successfully."
  1. D MES^XPDUTL(ORX)
  1. Q
  1. ORFUMPS ;
  1. N ORDATA,ORDNAME,ORDNUM,ORLINE,ORNEW
  1. S ORDNAME="" F S ORDNAME=$O(^ORD(101.41,"B",ORDNAME)) Q:ORDNAME="" D
  1. . S ORDNUM=0 F S ORDNUM=$O(^ORD(101.41,"B",ORDNAME,ORDNUM)) Q:'ORDNUM D
  1. . . Q:'$D(^ORD(101.41,ORDNUM,6,3,2,1))
  1. . . S ORLINE=0 F S ORLINE=$O(^ORD(101.41,ORDNUM,6,3,2,ORLINE)) Q:'ORLINE D
  1. . . . S ORDATA=$G(^ORD(101.41,ORDNUM,6,3,2,ORLINE,0)) Q:ORDATA=""
  1. . . . I ORDATA["|ZZ QUICK ORDER AUDIT|" D Q
  1. . . . . S ORNEW=$$STUFF(ORDATA,"ZZ QUICK ORDER AUDIT","OR QUICK ORDER AUDIT")
  1. . . . . S ^ORD(101.41,ORDNUM,6,3,2,ORLINE,0)=ORNEW
  1. . . . I ORDATA["|ZZ QUICK ORDER AUDIT (ALT)|" D Q
  1. . . . . S ORNEW=$$STUFF(ORDATA,"ZZ QUICK ORDER AUDIT (ALT)","OR QUICK ORDER AUDIT(ALT)")
  1. . . . . S ^ORD(101.41,ORDNUM,6,3,2,ORLINE,0)=ORNEW
  1. . . . I ORDATA["|ZZ QUICK ORDER AUDIT (CI)|" D Q
  1. . . . . S ORNEW=$$STUFF(ORDATA,"ZZ QUICK ORDER AUDIT (CI)","OR QUICK ORDER AUDIT")
  1. . . . . S ^ORD(101.41,ORDNUM,6,3,2,ORLINE,0)=ORNEW
  1. . . . I ORDATA["|ZZ QUICK ORDER AUDIT (CI-ALT)|" D Q
  1. . . . . S ORNEW=$$STUFF(ORDATA,"ZZ QUICK ORDER AUDIT (CI-ALT)","OR QUICK ORDER AUDIT(ALT)")
  1. . . . . S ^ORD(101.41,ORDNUM,6,3,2,ORLINE,0)=ORNEW
  1. . . . I ORDATA["|ZZ QUICK ORDER AUDIT (NE)|" D Q
  1. . . . . S ORNEW=$$STUFF(ORDATA,"ZZ QUICK ORDER AUDIT (NE)","OR QUICK ORDER AUDIT")
  1. . . . . S ^ORD(101.41,ORDNUM,6,3,2,ORLINE,0)=ORNEW
  1. . . . I ORDATA["|ZZ QUICK ORDER AUDIT (NE-ALT)|" D Q
  1. . . . . S ORNEW=$$STUFF(ORDATA,"ZZ QUICK ORDER AUDIT (NE-ALT)","OR QUICK ORDER AUDIT(ALT)")
  1. . . . . S ^ORD(101.41,ORDNUM,6,3,2,ORLINE,0)=ORNEW
  1. ;
  1. Q
  1. ;
  1. STUFF(ORSTR,ORFROM,ORTO) ;
  1. ;
  1. N ORA,ORB,ORC
  1. ;
  1. S ORA=$P(ORSTR,"|"),ORB=$P(ORSTR,"|",2),ORC=$P(ORSTR,"|",3)
  1. ;
  1. I ORA=ORFROM Q ORTO_"|"_ORB_"|"_ORC
  1. I ORB=ORFROM Q ORA_"|"_ORTO_"|"_ORC
  1. I ORC=ORFROM Q ORA_"|"_ORB_"|"_ORTO
  1. ;
  1. Q ORSTR