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

ORWGAPI8.m

Go to the documentation of this file.
  1. ORWGAPI8 ; SLC/STAFF - Graph Data, non-index ;8/21/06 07:52
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
  1. ;
  1. ADMIT(DATA,ITEM,START,DFN,CNT,TMP,BACKTO) ; from ORWGAPIR
  1. N DATE,DATE2,DISCH,LINE,LST,NUM,RESULT,VALUE K LST
  1. S DATE="",DATE2="",CNT=$G(CNT),BACKTO=+$G(BACKTO)
  1. S ITEM=$G(ITEM,"ADMIT")
  1. D ADMITLST^ORWPT(.LST,DFN)
  1. S NUM=0
  1. F S NUM=$O(LST(NUM)) Q:NUM<1 D
  1. . S LINE=LST(NUM)
  1. . S DATE=$P(LINE,U)
  1. . I DATE>START Q
  1. . S DISCH=$P(LINE,U,5)
  1. . S DATE2=$$DISCH^ORWGAPIA(DISCH)
  1. . I DATE2="" D
  1. .. S DATE2=$$FMADD^ORWGAPIX(DATE,$$LOS^ORWGAPIA(DISCH)+1)
  1. .. I DATE2=-1 S DATE2=$$FMADD^ORWGAPIX(DT,1) ; just make it today + 1
  1. .. S DATE2=DATE2\1
  1. . S VALUE=$P(LINE,U,3)_" "_$P(LINE,U,4)_U_$P(LINE,U,5,6)
  1. . S CNT=CNT+1
  1. . S RESULT=405_U_ITEM_U_DATE_U_DATE2_U_VALUE
  1. . D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. Q
  1. ;
  1. SURG(DATA,ITEM,START,DFN,CNT,TMP,BACKTO) ; from ORWGAPIR
  1. N CASE,DATE,DATE2,NUM,PROC,RESULT,RESULTS,SURG,SURGPROC,VALUE K SURG,SURGPROC
  1. S DATE2="",CNT=$G(CNT),BACKTO=+$G(BACKTO)
  1. D SURG^ORWGAPIA(.SURG,DFN)
  1. K SURG(0),SURG(1)
  1. S ITEM=$$UP^ORWGAPIX(ITEM)
  1. S NUM=0
  1. S CASE=0
  1. F S CASE=$O(SURG(CASE)) Q:CASE<1 D
  1. . S RESULTS=SURG(CASE)
  1. . S PROC=$P(RESULTS,U,3)
  1. . I '$L(PROC) Q
  1. . S PROC=$$UP^ORWGAPIX(PROC)
  1. . I PROC'=ITEM Q
  1. . S NUM=NUM+1
  1. . S SURGPROC(PROC,NUM)=RESULTS
  1. K SURG
  1. S PROC=""
  1. F S PROC=$O(SURGPROC(PROC)) Q:PROC="" D
  1. . S NUM=0
  1. . F S NUM=$O(SURGPROC(PROC,NUM)) Q:NUM<1 D
  1. .. S RESULTS=SURGPROC(PROC,NUM)
  1. .. S DATE=$P(RESULTS,U,5)
  1. .. I DATE>START Q
  1. .. I DATE<BACKTO Q
  1. .. S VALUE=""
  1. .. S RESULT=130_U_PROC_U_DATE_U_DATE2_U_VALUE
  1. .. S CNT=CNT+1
  1. .. D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. Q
  1. ;
  1. VISIT(DATA,ITEM,START,DFN,CNT,TMP,BACKTO) ; from ORWGAPIR
  1. N DATE,DATE2,NODE,NUM,RESULT,VALUE
  1. S DATE="",DATE2="",CNT=$G(CNT),BACKTO=+$G(BACKTO)
  1. F S DATE=$O(^AUPNVSIT("AET",DFN,DATE)) Q:DATE="" D
  1. . I DATE>START Q
  1. . I DATE<BACKTO Q
  1. . S NODE=""
  1. . F S NODE=$O(^AUPNVSIT("AET",DFN,DATE,ITEM,NODE)) Q:NODE="" D
  1. .. S NUM=0
  1. .. F S NUM=$O(^AUPNVSIT("AET",DFN,DATE,ITEM,NODE,NUM)) Q:NUM="" D
  1. ... S DATE2=+$P($G(^AUPNVSIT(NUM,0)),U,18)
  1. ... I 'DATE2 S DATE2=DATE+.01
  1. ... I +$E($P(DATE2,".",2),1,2)>24 S DATE2=(DATE\1)+.2359
  1. ... S VALUE=""
  1. ... S CNT=CNT+1
  1. ... S RESULT=9000010_U_ITEM_U_DATE_U_DATE2_U_VALUE
  1. ... D SETUP^ORWGAPIW(.DATA,RESULT,TMP,.CNT)
  1. Q
  1. ;