[613] | 1 | ORWGAPI1 ; SLC/STAFF - Graph Items ;12/21/05 08:15
|
---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**215,243**;Dec 17, 1997;Build 242
|
---|
| 3 | ;
|
---|
| 4 | AA(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
|
---|
| 5 | ; FMT,OLDEST,NEWEST not used
|
---|
| 6 | N ITEM,FILE,NUM,REF,RESULT
|
---|
| 7 | K ^TMP("ORWGRPC DC",$J)
|
---|
| 8 | S ITEM=""
|
---|
| 9 | F S ITEM=$O(^PXRMINDX(63,"PI",DFN,ITEM)) Q:ITEM="" D
|
---|
| 10 | . I $E(ITEM)="A" Q
|
---|
| 11 | . I $E(ITEM)="M" Q
|
---|
| 12 | . S RESULT=$$AALAB^ORWGAPIC(ITEM)
|
---|
| 13 | . I RESULT="" Q
|
---|
| 14 | . S RESULT="68^"_RESULT
|
---|
| 15 | . S ^TMP("ORWGRPC DC",$J,RESULT)=""
|
---|
| 16 | S RESULT=""
|
---|
| 17 | F S RESULT=$O(^TMP("ORWGRPC DC",$J,RESULT)) Q:RESULT="" S CNT=CNT+1 D
|
---|
| 18 | . D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
| 19 | K ^TMP("ORWGRPC DC",$J)
|
---|
| 20 | Q
|
---|
| 21 | ;
|
---|
| 22 | AP(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
|
---|
| 23 | N DATE,ITEM,OK,RESULT
|
---|
| 24 | S ITEM="A"
|
---|
| 25 | F S ITEM=$O(^PXRMINDX(63,"PI",DFN,ITEM)) Q:ITEM="" Q:ITEM]"AZ" D
|
---|
| 26 | . S OK=0
|
---|
| 27 | . I FMT=6 D
|
---|
| 28 | .. S DATE=OLDEST
|
---|
| 29 | .. F S DATE=$O(^PXRMINDX(63,"PI",DFN,ITEM,DATE)) Q:DATE="" Q:DATE>NEWEST D Q:OK
|
---|
| 30 | ... S CNT=CNT+1
|
---|
| 31 | ... S OK=1
|
---|
| 32 | ... S RESULT="63AP"_U_ITEM
|
---|
| 33 | . I FMT=3 D
|
---|
| 34 | .. S DATE=$O(^PXRMINDX(63,"PI",DFN,ITEM,""),-1)
|
---|
| 35 | .. I 'DATE Q
|
---|
| 36 | .. S OK=1
|
---|
| 37 | .. S CNT=CNT+1
|
---|
| 38 | .. S RESULT="63AP^"_ITEM_"^^"_$$ITEMPRFX^ORWGAPIU(ITEM)_": "_$$EVALUE^ORWGAPIU(ITEM,63,.01)_"^^"_DATE
|
---|
| 39 | . I FMT=0 D
|
---|
| 40 | .. S OK=1
|
---|
| 41 | .. S CNT=CNT+1
|
---|
| 42 | .. S RESULT="63AP^"_ITEM_U_$$ITEMPRFX^ORWGAPIU(ITEM)_": "_$$EVALUE^ORWGAPIU(ITEM,63,.01)
|
---|
| 43 | . I OK D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
| 44 | Q
|
---|
| 45 | ;
|
---|
| 46 | LAB(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
|
---|
| 47 | N DATE,ITEM,OK,RESULT
|
---|
| 48 | S ITEM=0
|
---|
| 49 | F S ITEM=$O(^PXRMINDX(63,"PI",DFN,ITEM)) Q:ITEM<1 D
|
---|
| 50 | . S OK=0
|
---|
| 51 | . I FMT=6 D
|
---|
| 52 | .. S DATE=OLDEST
|
---|
| 53 | .. F S DATE=$O(^PXRMINDX(63,"PI",DFN,ITEM,DATE)) Q:DATE="" Q:DATE>NEWEST D Q:OK
|
---|
| 54 | ... S CNT=CNT+1
|
---|
| 55 | ... S OK=1
|
---|
| 56 | ... S RESULT=63_U_ITEM
|
---|
| 57 | . I FMT=3 D
|
---|
| 58 | .. S DATE=$O(^PXRMINDX(63,"PI",DFN,ITEM,""),-1)
|
---|
| 59 | .. I 'DATE Q
|
---|
| 60 | .. S CNT=CNT+1
|
---|
| 61 | .. S OK=1
|
---|
| 62 | .. S RESULT=63_U_ITEM_"^^"_$$EVALUE^ORWGAPIU(ITEM,63,.01)_"^^"_DATE
|
---|
| 63 | . I FMT=0 D
|
---|
| 64 | .. S CNT=CNT+1
|
---|
| 65 | .. S OK=1
|
---|
| 66 | .. S RESULT=63_U_ITEM_U_$$EVALUE^ORWGAPIU(ITEM,63,.01)
|
---|
| 67 | . I OK D
|
---|
| 68 | .. S RESULT=RESULT_U_$$AALAB^ORWGAPIC(ITEM)
|
---|
| 69 | .. D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
| 70 | Q
|
---|
| 71 | ;
|
---|
| 72 | MI(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
|
---|
| 73 | N DATE,ITEM,OK,RESULT
|
---|
| 74 | S ITEM="M"
|
---|
| 75 | F S ITEM=$O(^PXRMINDX(63,"PI",DFN,ITEM)) Q:ITEM="" Q:ITEM]"MZ" D
|
---|
| 76 | . S OK=0
|
---|
| 77 | . I FMT=6 D
|
---|
| 78 | .. S DATE=OLDEST
|
---|
| 79 | .. F S DATE=$O(^PXRMINDX(63,"PI",DFN,ITEM,DATE)) Q:DATE="" Q:DATE>NEWEST D Q:OK
|
---|
| 80 | ... S CNT=CNT+1
|
---|
| 81 | ... S OK=1
|
---|
| 82 | ... S RESULT="63MI"_U_ITEM
|
---|
| 83 | . I FMT=3 D
|
---|
| 84 | .. S DATE=$O(^PXRMINDX(63,"PI",DFN,ITEM,""),-1)
|
---|
| 85 | .. I 'DATE Q
|
---|
| 86 | .. S CNT=CNT+1
|
---|
| 87 | .. S OK=1
|
---|
| 88 | .. S RESULT="63MI^"_ITEM_"^^"_$$ITEMPRFX^ORWGAPIU(ITEM)_": "_$$EVALUE^ORWGAPIU(ITEM,63,.01)_"^^"_DATE
|
---|
| 89 | . I FMT=0 D
|
---|
| 90 | .. S CNT=CNT+1
|
---|
| 91 | .. S OK=1
|
---|
| 92 | .. S RESULT="63MI^"_ITEM_U_$$ITEMPRFX^ORWGAPIU(ITEM)_": "_$$EVALUE^ORWGAPIU(ITEM,63,.01)
|
---|
| 93 | . I OK D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
| 94 | Q
|
---|
| 95 | ;
|
---|
| 96 | MED(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
|
---|
| 97 | D MED1^ORWGAPIE(.ITEMS,DFN,FMT,OLDEST,NEWEST,.CNT,.TMP)
|
---|
| 98 | Q
|
---|
| 99 | ;
|
---|
| 100 | NOTES(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
|
---|
| 101 | N DATE,DOC,DOCCLASS,DOCIEN,DOCTYPE,DUMMY,RESULT,RESULTS,TITLE K DUMMY
|
---|
| 102 | K ^TMP("ORWGRPC TEMP",$J),^TMP("TIUR",$J)
|
---|
| 103 | S CNT=$G(CNT)
|
---|
| 104 | I FMT=6 D
|
---|
| 105 | . F DOCTYPE="P","D","C" D
|
---|
| 106 | .. S DOCCLASS=$$DOCCLASS^ORWGAPIA(DOCTYPE)
|
---|
| 107 | .. K ^TMP("TIUR",$J)
|
---|
| 108 | .. D TIU^ORWGAPIA(.DUMMY,DOCCLASS,5,DFN,$G(OLDEST),$G(NEWEST))
|
---|
| 109 | .. S DOC=0
|
---|
| 110 | .. F S DOC=$O(^TMP("TIUR",$J,DOC)) Q:DOC<1 D
|
---|
| 111 | ... S RESULTS=^TMP("TIUR",$J,DOC)
|
---|
| 112 | ... S TITLE=$P(RESULTS,U,2)
|
---|
| 113 | ... S DATE=$P(RESULTS,U,3)
|
---|
| 114 | ... I '$L(TITLE) Q
|
---|
| 115 | ... S ^TMP("ORWGRPC TEMP",$J,TITLE,DATE)=RESULTS
|
---|
| 116 | I FMT'=6 D
|
---|
| 117 | . F DOCTYPE="P","D","C" D
|
---|
| 118 | .. S DOCCLASS=$$DOCCLASS^ORWGAPIA(DOCTYPE)
|
---|
| 119 | .. K ^TMP("TIUR",$J)
|
---|
| 120 | .. D TIU^ORWGAPIA(.DUMMY,DOCCLASS,5,DFN)
|
---|
| 121 | .. S DOC=0
|
---|
| 122 | .. F S DOC=$O(^TMP("TIUR",$J,DOC)) Q:DOC<1 D
|
---|
| 123 | ... S RESULTS=^TMP("TIUR",$J,DOC)
|
---|
| 124 | ... S TITLE=$P(RESULTS,U,2)
|
---|
| 125 | ... S DATE=$P(RESULTS,U,3)
|
---|
| 126 | ... I '$L(TITLE) Q
|
---|
| 127 | ... S ^TMP("ORWGRPC TEMP",$J,TITLE,DATE)=RESULTS
|
---|
| 128 | S TITLE=""
|
---|
| 129 | F S TITLE=$O(^TMP("ORWGRPC TEMP",$J,TITLE)) Q:TITLE="" D
|
---|
| 130 | . S CNT=CNT+1
|
---|
| 131 | . I FMT=6 S RESULT=8925_U_TITLE
|
---|
| 132 | . I FMT=3 D
|
---|
| 133 | .. S DATE=+$O(^TMP("ORWGRPC TEMP",$J,TITLE,""),-1)
|
---|
| 134 | .. S DOCIEN=+$G(^TMP("ORWGRPC TEMP",$J,TITLE,DATE))
|
---|
| 135 | .. S RESULT=8925_U_TITLE_"^^"_TITLE_"^^"
|
---|
| 136 | .. S RESULT=RESULT_DATE
|
---|
| 137 | .. S RESULT=RESULT_U_$$TITLE^ORWGAPIA(DOCIEN)
|
---|
| 138 | . I FMT=0 S RESULT=8925_U_TITLE_U_TITLE
|
---|
| 139 | . S RESULT=$$UP^ORWGAPIX(RESULT)
|
---|
| 140 | . D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
| 141 | K ^TMP("ORWGRPC TEMP",$J),^TMP("TIUR",$J)
|
---|
| 142 | Q
|
---|
| 143 | ;
|
---|
| 144 | TITLE(ITEMS,DFN,FMT,OLDEST,NEWEST,CNT,TMP) ; from ORWGAPIR
|
---|
| 145 | ; FMT,OLDEST,NEWEST not used
|
---|
| 146 | N ITEM,FILE,NUM,REF,RESULT
|
---|
| 147 | K ^TMP("ORWGRPC DC",$J)
|
---|
| 148 | S ITEM=""
|
---|
| 149 | F S ITEM=$O(^PXRMINDX(63,"PI",DFN,ITEM)) Q:ITEM="" D
|
---|
| 150 | . I $E(ITEM)="A" Q
|
---|
| 151 | . I $E(ITEM)="M" Q
|
---|
| 152 | . S RESULT=$$AALAB^ORWGAPIC(ITEM)
|
---|
| 153 | . I RESULT="" Q
|
---|
| 154 | . S RESULT="68^"_RESULT
|
---|
| 155 | . S ^TMP("ORWGRPC DC",$J,RESULT)=""
|
---|
| 156 | S RESULT=""
|
---|
| 157 | F S RESULT=$O(^TMP("ORWGRPC DC",$J,RESULT)) Q:RESULT="" S CNT=CNT+1 D
|
---|
| 158 | . D SETUP^ORWGAPIW(.ITEMS,RESULT,TMP,.CNT)
|
---|
| 159 | K ^TMP("ORWGRPC DC",$J)
|
---|
| 160 | Q
|
---|
| 161 | ;
|
---|