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

ORWGAPI5.m

Go to the documentation of this file.
  1. ORWGAPI5 ; SLC/STAFF - Graph Items, Meds ;12/21/05 08:15
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17, 1997;Build 242
  1. ;
  1. BCMA(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
  1. N DATE,DRUG,ITEM,NUM,RESULT
  1. K ^TMP("ORWGRPC TEMP",$J)
  1. I FMT=6 D
  1. . S DATE=OLDEST
  1. . F S DATE=$O(^PSB(53.79,"AADT",DFN,DATE)) Q:DATE<1 Q:DATE>NEWEST D
  1. .. S NUM=0
  1. .. F S NUM=$O(^PSB(53.79,"AADT",DFN,DATE,NUM)) Q:NUM<1 D
  1. ... S ITEM=$P($G(^PSB(53.79,NUM,0)),U,8) I 'ITEM Q
  1. ... I $D(^TMP("ORWGRPC TEMP",$J,ITEM)) Q
  1. ... S ^TMP("ORWGRPC TEMP",$J,ITEM)=""
  1. ... S CNT=CNT+1
  1. ... S RESULT="53.79^"_ITEM
  1. ... D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
  1. I FMT'=6 D
  1. . S ITEM=""
  1. . F S ITEM=$O(^PSB(53.79,"AOIP",DFN,ITEM)) Q:ITEM="" D
  1. .. S DATE=$O(^PSB(53.79,"AOIP",DFN,ITEM,""),-1)
  1. .. I 'DATE Q
  1. .. S NUM=$O(^PSB(53.79,"AOIP",DFN,ITEM,DATE,""),-1)
  1. .. I 'NUM Q
  1. .. S CNT=CNT+1
  1. .. I FMT=3 S RESULT="53.79^"_ITEM_"^^"_$$POINAME^ORWGAPIC(ITEM)_"^^"_DATE
  1. .. I FMT=0 S RESULT="53.79^"_ITEM_U_$$POINAME^ORWGAPIC(ITEM)
  1. .. S DRUG=$$DRUG^ORWGAPIC(NUM)
  1. .. I DRUG S RESULT=RESULT_U_$$DRGCLASS^ORWGAPIC(DRUG)
  1. .. D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
  1. K ^TMP("ORWGRPC TEMP",$J)
  1. Q
  1. ;
  1. DC(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
  1. ; FMT,OLDEST,NEWEST not used
  1. N DATA,DATE,DATE1,DRUG,ITEM,FILE,NUM,REF,RESULT K DATA
  1. K ^TMP("ORWGRPC DC",$J)
  1. F FILE=52,55 D
  1. . S ITEM=""
  1. . F S ITEM=$O(^PXRMINDX(FILE,"PI",DFN,ITEM)) Q:ITEM="" D
  1. .. S RESULT=$$DRGCLASS^ORWGAPIC(ITEM)
  1. .. I RESULT="" Q
  1. .. S RESULT="50.605^"_RESULT
  1. .. S ^TMP("ORWGRPC DC",$J,RESULT)=""
  1. S ITEM=""
  1. F S ITEM=$O(^PSB(53.79,"AOIP",DFN,ITEM)) Q:ITEM="" D
  1. . S DATE=$O(^PSB(53.79,"AOIP",DFN,ITEM,""),-1)
  1. . I 'DATE Q
  1. . S NUM=$O(^PSB(53.79,"AOIP",DFN,ITEM,DATE,""),-1)
  1. . I 'NUM Q
  1. . S DRUG=$$DRUG^ORWGAPIC(NUM)
  1. . I 'DRUG Q
  1. . S RESULT=$$DRGCLASS^ORWGAPIC(DRUG)
  1. . I 'RESULT Q
  1. . S RESULT="50.605^"_RESULT
  1. . S ^TMP("ORWGRPC DC",$J,RESULT)=""
  1. S ITEM=""
  1. F S ITEM=$O(^PXRMINDX("55NVA","PI",DFN,ITEM)) Q:ITEM="" D
  1. . S DATE=$O(^PXRMINDX("55NVA","PI",DFN,ITEM,""),-1)
  1. . I 'DATE Q
  1. . S DATE1=$O(^PXRMINDX("55NVA","PI",DFN,ITEM,DATE,""),-1)
  1. . I '$L(DATE1) Q
  1. . S REF=$O(^PXRMINDX("55NVA","PI",DFN,ITEM,DATE,DATE1,""),-1)
  1. . I '$L(REF) Q
  1. . D RXNVA^ORWGAPIC(REF,.DATA)
  1. . S DRUG=+$G(DATA("DISPENSE DRUG"))
  1. . I 'DRUG Q
  1. . S RESULT=$$DRGCLASS^ORWGAPIC(DRUG)
  1. . I 'RESULT Q
  1. . S RESULT="50.605^"_RESULT
  1. . S ^TMP("ORWGRPC DC",$J,RESULT)=""
  1. S RESULT=""
  1. F S RESULT=$O(^TMP("ORWGRPC DC",$J,RESULT)) Q:RESULT="" S CNT=CNT+1 D
  1. . D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
  1. K ^TMP("ORWGRPC DC",$J)
  1. Q
  1. ;
  1. NVA(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
  1. D NVA1^ORWGAPIE(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,.TMP)
  1. Q
  1. ;