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

ORWRP2.m

Go to the documentation of this file. 
  1. ORWRP2       ; dcm/slc - Health Summary adhoc RPC's
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,109**;Dec 17, 1997
  1. COMP(ORY) ;Get ADHOC sub components (FILE 142.1)
  1.  ;RPC => ORWRP2 HS COMPONENTS
  1.  ;Y(i)=(1)I;IFN^(2)Component Name [Abb]^(3)Occ Limit^(4)Time Limit^(5)Header Name^
  1.  ;     (6)Hosp Loc Disp^(7)ICD Text Disp^(8)Prov Narr Disp^(9)Summary Order
  1.  D COMP^GMTSADH5(.ORY)
  1.  Q
  1.  ;
  1. COMPABV(ORY) ;Get ADHOD sub components listed by Abbreviation
  1.  N I,X,X1,X2,X3
  1.  D COMP^GMTSADH5(.ORY)
  1.  S I=0
  1.  F  S I=$O(ORY(I)) Q:'I  S X=ORY(I) D
  1.  . S X1=$P($P(X,"^",2),"["),X1=$E(X1,1,$L(X1)-1),X2=$P($P(X,"^",2),"[",2),X2=$E(X2,1,$L(X2)-1)
  1.  . ;S X3=X2_"     - "_X1_" ",$P(ORY(I),"^",2)=X3
  1.  . S X3=X2_"   - "_$P(X,"^",5)_" ",$P(ORY(I),"^",2)=X3
  1.  Q
  1. COMPDISP(ORY) ;Get ADHOD sub components listed by Display Name
  1.  N I,X,X1,X2,X3
  1.  D COMP^GMTSADH5(.ORY)
  1.  S I=0
  1.  F  S I=$O(ORY(I)) Q:'I  S X=ORY(I) D
  1.  . S X1=$P($P(X,"^",2),"["),X1=$E(X1,1,$L(X1)-1),X2=$P($P(X,"^",2),"[",2),X2=$E(X2,1,$L(X2)-1)
  1.  . S X3=$P(X,"^",5)_"   ["_X2_"]",$P(ORY(I),"^",2)=X3
  1.  Q
  1. COMPSUB(ORY,ORSUB) ;Get subitems from a predefined Adhoc component
  1.  I '$L($T(COMPSUB^GMTSADH5)) Q
  1.  D COMPSUB^GMTSADH5(.ORY,ORSUB)
  1.  Q
  1.  ;
  1. SAVLKUP(OK,VAL) ;save Adhoc lookup selection
  1.  N ORERR
  1.  S OK=""
  1.  D EN^XPAR(DUZ_";VA(200,","ORWRP ADHOC LOOKUP",1,VAL,.ORERR)
  1.  I ORERR S OK=VAL_":"_ORERR
  1.  Q
  1. GETLKUP(ORY) ;Get Adhoc lookup selection
  1.  S ORY=$$GET^XPAR("ALL","ORWRP ADHOC LOOKUP",1,"I")
  1.  Q
  1. FILES(ORY,ORCOMP)   ;Get Files to select from for a component
  1.  ;RPC => ORWRP2 HS COMP FILES
  1.  D FILES^GMTSADH5(.ORY,ORCOMP)
  1.  Q
  1.  ;
  1. FILESEL(OROOT,ORFILE,ORFROM,ORDIR) ;Get file entries for Combobox
  1.  ;RPC => ORWRP2 HS FILE LOOKUP
  1.  D FILESEL^GMTSADH5(.OROOT,ORFILE,ORFROM,ORDIR)
  1.  Q
  1.  ;
  1. REPORT(OROOT,ORCOMPS,ORDFN) ;Build Report from array of Components passed in COMPS
  1.  ;RPC => ORWRP2 HS REPORT TEXT
  1.  ;ORCOMPS(i)=array of subcomponents chosen, value is pointer at ^GMT(142,DA(1),1,DA)
  1.  Q:'$G(ORDFN)
  1.  N GMTSEGC,GMTSEG,ORGMTSEG,ORSEGC,ORSEGI
  1.  K ^TMP("ORDATA",$J)
  1.  D REPORT^GMTSADH5(.ORGMTSEG,.ORSEGC,.ORSEGI,.ORCOMPS,.ORDFN)
  1.  Q:'$O(ORGMTSEG(0))
  1.  D START^ORWRP(80,"REPORT1^ORWRP2(.ORGMTSEG,.ORSEGC,.ORSEGI,ORDFN)")
  1.  S OROOT=$NA(^TMP("ORDATA",$J,1))
  1.  Q
  1. REPORT1(GMTSEG,GMTSEGC,GMTSEGI,DFN) ;
  1.  N GMTS,GMTS1,GMTS2,GMTSAGE,GMTSDOB,GMTSDTM,GMTSLO,GMTSLPG,GMTSPHDR,GMTSPNM,GMTSRB,GMTSSN,GMTSWRD
  1.  N CNT,INC,ORVP,ROOT,SEX,VADM,VAERR,VAIN
  1.  S ORVP=DFN
  1.  D ADHOC^ORPRS13
  1.  Q
  1.  ;
  1. SUBITEM(ORY,ORTEST) ;Get Subitems for a Test Panel
  1.  ;RPC => ORWRP2 HS SUBITEMS
  1.  D SUBITEM^GMTSADH5(.ORY,ORTEST)
  1.  Q
  1. PREPORT(OROOT,ORCOMPS,ORDFN) ;Build Report & Print
  1.  ;Called from File|Print on Reports Tab after selecting ADHOC Health Summary
  1.  ;COMPS(i)=array of subcomponents chosen, value is pointer at ^GMT(142,DA(1),1,DA)
  1.  Q:'$G(ORDFN)
  1.  N GMTSEGC,GMTSEG,ORGMTSEG,ORSEGC,ORSEGI
  1.  D REPORT^GMTSADH5(.ORGMTSEG,.ORSEGC,.ORSEGI,.ORCOMPS,.ORDFN)
  1.  Q:'$O(ORGMTSEG(0))
  1.  M GMTSEG=ORGMTSEG,GMTSEGC=ORSEGC,GMTSEGI=ORSEGI
  1.  N GMTS,GMTS1,GMTS2,GMTSAGE,GMTSDOB,GMTSDTM,GMTSLO,GMTSLPG,GMTSPHDR,GMTSPNM,GMTSRB,GMTSSN,GMTSWRD
  1.  N CNT,INC,ORVP,ROOT,SEX,VADM,VAERR,VAIN
  1.  S ORVP=ORDFN
  1.  D ADHOC^ORPRS13
  1.  Q