DGOTHFS3 ;SLC/RM - FORMER OTH PATIENT DETAIL REPORT 2 - CONTINUATION ; Sep 29, 2020@3:51 pm
Source file <DGOTHFS3.m>
Package | Total | Call Graph |
---|---|---|
Registration | 3 | IBSTATUS^DGFSMOUT ($$CHKDATE,ENCHDR,ENCTRCOL,LINE,PAUSE,PTHDR)^DGOTHFS2 PARTIAL^DGPPOHUT |
Kernel | 2 | ($$FMADD,$$FMTE)^XLFDT $$STA^XUAF4 |
Outpatient Pharmacy | 2 | RX^PSO52API PSS^PSO59 |
VA FileMan | 2 | $$GET1^DIQ ^DIR |
National Drug File | 1 | $$CPTIER^PSNAPIS |
Pharmacy Data Management | 1 | NDF^PSS50 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
SORTENC() | ;prompt user how ENCOUNTER report will be sorted
|
|
ANSWER(X,Y) | ;
|
|
SORTRX() | ;prompt user how Rx report will be sorted
|
|
ENCTRIB | ;get the IB STATUS for the Outpatient and Inpatient episode of care
|
|
PRNTENC(TMPDATA,ENCDT) | ;continuation of ENCTR tag found in DGOTHFS2
|
|
DSPLAY | ;display episode of care data
|
|
DSPLAY1 | ;
|
|
CPTIER | ;extract Rx Copay Tier
|
|
SITE(FLAG) | ;site where Rx's released
|
|
RX1 | ;continuation of RX line tag from above
|
|
RXBSTAT(OTHIBRX) | ;Rx B Cross Reference in ^TMP($J,"OTHFSMR2"
|
|
SORTORRX | ;Sort Original RX
|
|
IBSTAT | ;Extract the IB Status in File #350 and File #399
|
|
SORTRFRX | ;Sort Refill RX
|
|
SETRF | ;set Refill RX
|
|
RXNOSTAT | ;Extract those RX's that has not been charge
|
|
RXNOSTA1 | ;
|
|
RXNOSTA2 | ;
|
Name | Field # of Occurrence |
---|---|
IBSTATUS^DGFSMOUT | ENCTRIB+19 |
$$CHKDATE^DGOTHFS2 | SORTORRX+5, SORTRFRX+15, RXNOSTA1+3, RXNOSTA2+11 |
ENCHDR^DGOTHFS2 | PRNTENC+3 |
ENCTRCOL^DGOTHFS2 | PRNTENC+3 |
LINE^DGOTHFS2 | ENCTRIB+29, PRNTENC+3 |
PAUSE^DGOTHFS2 | PRNTENC+3 |
PTHDR^DGOTHFS2 | PRNTENC+3 |
PARTIAL^DGPPOHUT | RX1+13, RX1+41, RXNOSTAT+11 |
$$GET1^DIQ | RX1+28 |
^DIR | SORTENC+9, SORTRX+9 |
$$CPTIER^PSNAPIS | CPTIER+9 |
RX^PSO52API | RX1+35 |
PSS^PSO59 | SITE+4 |
NDF^PSS50 | CPTIER+4 |
$$FMADD^XLFDT | RX1+35 |
$$FMTE^XLFDT | DSPLAY1+7 |
$$STA^XUAF4 | RX1+28 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DG(40.8 - [#40.8] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP($J | CPTIER+2!, CPTIER+3, CPTIER+8, CPTIER+10!, SITE+1!, SITE+2, SITE+3, SITE+5, SITE+6!, RX1+3 , RX1+6, RX1+19, RX1+22*, RX1+23*, RX1+27, RX1+31*, RX1+32*, RX1+35!, RX1+36*!, RX1+37 , RXBSTAT+3, RXBSTAT+4, RXBSTAT+5, SORTORRX+2, SORTORRX+3, SORTORRX+4, SORTORRX+7, SORTORRX+8, SORTORRX+12*, SORTORRX+13* , SORTORRX+14*, IBSTAT+2, IBSTAT+4, IBSTAT+5, SORTRFRX+3, SORTRFRX+9, SORTRFRX+10, SETRF+1, SETRF+3, SETRF+5 , SETRF+8*, SETRF+9*, SETRF+10*, RXNOSTAT+4, RXNOSTAT+5, RXNOSTAT+7, RXNOSTAT+10, RXNOSTA1+1, RXNOSTA1+2, RXNOSTA2+2 , RXNOSTA2+5, RXNOSTA2+8, RXNOSTA2+9, RXNOSTA2+12 |
Name | Line Occurrences |
---|---|
$$ANSWER | SORTENC+10, SORTRX+10 |
$$RXBSTAT | RX1+4, RX1+33 |
CPTIER | SORTORRX+6, SETRF+2 |
DSPLAY | PRNTENC+6, PRNTENC+7, PRNTENC+18 |
DSPLAY1 | DSPLAY+4, DSPLAY+8 |
IBSTAT | RX1+21, RX1+30, SORTORRX+11, SETRF+7 |
PRNTENC | ENCTRIB+23 |
RXNOSTA1 | RXNOSTAT+8 |
RXNOSTA2 | RXNOSTAT+9 |
SETRF | SORTRFRX+16, RXNOSTA2+12 |
SITE | SORTORRX+9, SETRF+4 |
SORTORRX | RX1+9, RX1+12, RX1+39, RXNOSTA1+5 |
SORTRFRX | RX1+10, RX1+14, RX1+40 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ACCTYP | IBSTAT+6 |
BILLNO | IBSTAT+1~, IBSTAT+2*, IBSTAT+3*, IBSTAT+6 |
CHRGCNT | ENCTRIB+1~, ENCTRIB+2*, ENCTRIB+8* |
>> CNTR | RX1+22*, RX1+23*, RX1+31*, RX1+32*, SORTORRX+12*, SORTORRX+13*, SETRF+8*, SETRF+9* |
DATA1 | RX1+1~, RX1+18!, RX1+20*, RX1+22, RX1+23, RX1+26!, RX1+29*, RX1+31, RX1+32, SORTORRX+1~ , SORTORRX+10*, SORTORRX+12, SORTORRX+13, SORTRFRX+1~, SETRF+6*, SETRF+8, SETRF+9, RXNOSTAT+1~, RXNOSTA2+6! |
DATA2 | RX1+1~, RX1+18!, RX1+22, RX1+23, RX1+26!, RX1+31, RX1+32, SORTORRX+1~, SORTORRX+12, SORTORRX+13 , IBSTAT+6*, SORTRFRX+1~, SETRF+8, SETRF+9, RXNOSTAT+1~, RXNOSTA2+6! |
>> DFN | CPTIER+3, SITE+2, SITE+3, RX1+3, RX1+6, RX1+19, RX1+22, RX1+23, RX1+27, RX1+31 , RX1+32, RX1+37, SORTORRX+2, SORTORRX+3, SORTORRX+4, SORTORRX+7, SORTORRX+8, SORTORRX+12, SORTORRX+13, IBSTAT+2 , IBSTAT+4, IBSTAT+5, SORTRFRX+3, SORTRFRX+9, SORTRFRX+10, SETRF+1, SETRF+3, SETRF+5, SETRF+8, SETRF+9 , RXNOSTAT+10, RXNOSTA1+1, RXNOSTA1+2, RXNOSTA2+2, RXNOSTA2+8, RXNOSTA2+9, RXNOSTA2+12 |
DFN405 | ENCTRIB+1~, ENCTRIB+15*, ENCTRIB+16*, ENCTRIB+17*, ENCTRIB+18* |
DFN409 | ENCTRIB+1~, ENCTRIB+15*, ENCTRIB+16* |
DGASK | SORTENC+1~, SORTENC+10*, SORTENC+11*, SORTENC+12*, SORTENC+13, SORTRX+1~, SORTRX+10*, SORTRX+11*, SORTRX+12*, SORTRX+13 |
DGCPTIER | CPTIER+2!, CPTIER+8*, CPTIER+9*, SORTORRX+1~, SORTORRX+10, SETRF+6 |
DGDAYSUP | SORTORRX+1~, SORTORRX+8*, SORTORRX+10 |
>> DGDFN | RX1+35 |
DGDRUGIEN | CPTIER+1~, CPTIER+3*, CPTIER+4, CPTIER+8, CPTIER+9 |
DGDSRF | SORTRFRX+1~, SETRF+3*, SETRF+6, RXNOSTA2+6! |
DGFILLDT | SORTORRX+1~, SORTORRX+4*, SORTORRX+10 |
DGFLDTRF | SORTRFRX+1~, SETRF+5*, SETRF+6, RXNOSTA2+6! |
DGNUMOFREF | SORTORRX+1~, SORTORRX+7*, SORTORRX+10, SORTRFRX+1~, SETRF+1*, SETRF+6 |
DGOTHFLGPRTL | RX1+1~, RX1+2*, RX1+13*, RX1+38*, RX1+41*, RXNOSTAT+1~, RXNOSTAT+3*, RXNOSTAT+11* |
DGPRTLTOT | RX1+1~, RX1+2*, RX1+3*, RX1+13, RX1+41, RXNOSTAT+1~, RXNOSTAT+3*, RXNOSTAT+6!, RXNOSTAT+10*, RXNOSTAT+11 |
>> DGQ | ENCTRIB+4, ENCTRIB+5, ENCTRIB+6, ENCTRIB+7, ENCTRIB+24, ENCTRIB+25, ENCTRIB+26, ENCTRIB+27, ENCTRIB+30, PRNTENC+3 , RXNOSTAT+4, RXNOSTAT+5 |
DGRELDATE | SORTORRX+1~, SORTORRX+2*, SORTORRX+3*, SORTORRX+5, SORTORRX+10, RXNOSTAT+1~, RXNOSTA1+1*, RXNOSTA1+2*, RXNOSTA1+3, RXNOSTA1+4 |
DGRFRELDT | SORTRFRX+1~, SORTRFRX+9*, SORTRFRX+10*, SORTRFRX+13*, SORTRFRX+15, SETRF+6, SETRF+8, SETRF+9, RXNOSTAT+1~, RXNOSTA2+6! , RXNOSTA2+8*, RXNOSTA2+9*, RXNOSTA2+10, RXNOSTA2+11 |
>> DGRTNSTCK | SORTORRX+3*, SORTRFRX+10* |
DGRXDIV | SITE+1!, SITE+2*, SITE+3*, SITE+4, SITE+5*, SORTORRX+1~, SORTORRX+10, SORTORRX+12, SORTORRX+13, SORTRFRX+1~ , SETRF+6, SETRF+8, SETRF+9, RXNOSTA2+6! |
DGRXIEN | CPTIER+3, SITE+2, SITE+3, RX1+1~, RX1+7*, RX1+38*, RXBSTAT+1~, RXBSTAT+4*, SORTORRX+2, SORTORRX+3 , SORTORRX+4, SORTORRX+7, SORTORRX+8, SORTORRX+14, SORTRFRX+3, SORTRFRX+9, SORTRFRX+10, SETRF+1, SETRF+3, SETRF+5 , SETRF+10, RXNOSTAT+1~, RXNOSTAT+5*, RXNOSTAT+7, RXNOSTAT+10, RXNOSTA1+1, RXNOSTA1+2, RXNOSTA2+2, RXNOSTA2+5, RXNOSTA2+8 , RXNOSTA2+9, RXNOSTA2+12 |
DGRXNUM | RX1+1~, RX1+6*, RX1+37*, RXBSTAT+1~, RXBSTAT+3*, RXBSTAT+4, RXBSTAT+5, SORTORRX+10, SORTORRX+12, SORTORRX+13 , SORTORRX+14, SETRF+6, SETRF+8, SETRF+9, SETRF+10, RXNOSTAT+1~, RXNOSTAT+4*, RXNOSTAT+5, RXNOSTAT+7, RXNOSTA2+5 |
>> DGSORT | SORTORRX+5, SORTRFRX+15, RXNOSTA1+3, RXNOSTA2+11 |
>> DGSORT("DGBEG" | RX1+35 |
>> DGSORT("DGEND" | RX1+35 |
>> DGSORT("SORTENCBY" | SORTENC+11*, ENCTRIB+10, ENCTRIB+11 |
>> DGSORT("SORTRXBY" | SORTRX+11*, RX1+22, RX1+31, SORTORRX+12, SETRF+8 |
>> DGTOTENC | ENCTRIB+31, DSPLAY+9* |
DGTOTRF | SORTRFRX+3*, SORTRFRX+5, RXNOSTAT+1~, RXNOSTA2+2*, RXNOSTA2+3, RXNOSTA2+4 |
DIR | SORTENC+1~, SORTENC+9!, SORTRX+1~, SORTRX+9! |
DIR("?" | SORTENC+8*, SORTRX+8* |
DIR("A" | SORTENC+7*, SORTRX+7* |
DIR("B" | SORTENC+6*, SORTRX+6* |
DIR("L" | SORTENC+3*, SORTENC+4*, SORTENC+5*, SORTRX+3*, SORTRX+4*, SORTRX+5* |
DIR(0 | SORTENC+2*, SORTRX+2* |
DIROUT | SORTENC+1~, ANSWER+1, ANSWER+3, SORTRX+1~ |
DIRUT | SORTENC+1~, SORTRX+1~ |
DT | CPTIER+9 |
DTOUT | SORTENC+1~, ANSWER+1, ANSWER+3, SORTRX+1~ |
DUOUT | SORTENC+1~, ANSWER+1, ANSWER+3, SORTRX+1~ |
ENCDT | ENCTRIB+1~, ENCTRIB+10*, ENCTRIB+11*, ENCTRIB+19, ENCTRIB+23, PRNTENC~, PRNTENC+7, DSPLAY+3, DSPLAY1+7, DSPLAY1+9 |
FILENO | ENCTRIB+1~, ENCTRIB+6*, ENCTRIB+7, ENCTRIB+9, ENCTRIB+12, ENCTRIB+16, ENCTRIB+17, ENCTRIB+18, ENCTRIB+21, ENCTRIB+22 , PRNTENC+5, PRNTENC+9, PRNTENC+13, PRNTENC+20, PRNTENC+21, PRNTENC+23, PRNTENC+24, PRNTENC+25, PRNTENC+26, PRNTENC+27 , PRNTENC+28, PRNTENC+29, DSPLAY+1, DSPLAY+6, DSPLAY+7, DSPLAY1+3, DSPLAY1+4, DSPLAY1+5, RX1+8, RX1+11 , RX1+16, RX1+19, RX1+24, RX1+27, IBSTAT+2, IBSTAT+3, IBSTAT+4, IBSTAT+5, IBSTAT+6, SORTRFRX+7 , SORTRFRX+11, RXNOSTAT+1~ |
FLAG | SITE~, SITE+2 |
FND | RXBSTAT+1~, RXBSTAT+2*, RXBSTAT+3, RXBSTAT+5*, RXBSTAT+6 |
IB350DIV | RX1+1~, RX1+18!, RX1+19*, RX1+20, RX1+22, RX1+23 |
IB362FLNUM | RX1+1~, RX1+2*, RX1+28*, RX1+29 |
IB399DIV | RX1+1~, RX1+26!, RX1+27*, RX1+28*, RX1+29, RX1+31, RX1+32 |
IBFILENO | ENCTRIB+1~, ENCTRIB+14*, ENCTRIB+18, ENCTRIB+19 |
IOSL | PRNTENC+3 |
JJ | SITE+3, SORTRFRX+1~, SORTRFRX+8*, SORTRFRX+9, SORTRFRX+10, SORTRFRX+12*, SORTRFRX+16, SETRF+3, SETRF+5, SETRF+6 , SETRF+10, RXNOSTAT+1~, RXNOSTAT+3*, RXNOSTA2+4*, RXNOSTA2+5, RXNOSTA2+8, RXNOSTA2+9 |
NWBILL | ENCTRIB+1~, ENCTRIB+22*, ENCTRIB+23, PRNTENC+6, PRNTENC+7, PRNTENC+10, PRNTENC+14 |
OLDBILL | ENCTRIB+1~, ENCTRIB+3*, ENCTRIB+23*, PRNTENC+6, PRNTENC+7 |
OLDOEDT | ENCTRIB+1~, ENCTRIB+3*, ENCTRIB+23*, PRNTENC+7 |
ORGRXSTAT | RXNOSTAT+1~, RXNOSTAT+6!, RXNOSTAT+7*, RXNOSTAT+8 |
OTHIBDT | RX1+19, RX1+22, RX1+23, RX1+27, RX1+29, RX1+31, RX1+32, SORTORRX+12, SORTORRX+13, IBSTAT+2 , IBSTAT+4, IBSTAT+5, SORTRFRX+13, RXNOSTAT+1~, RXNOSTA1+4*, RXNOSTA2+10* |
>> OTHIBREC | RX1+19, RX1+27, IBSTAT+2, IBSTAT+4, IBSTAT+5 |
OTHIBRX | RX1+3, RX1+4, RX1+6, RX1+7, RX1+15, RX1+31, RX1+32, RX1+33, RX1+35, RX1+37 , RX1+38, RXBSTAT~, RXBSTAT+5, SORTORRX+11, SORTORRX+12, SORTORRX+13, SETRF+7, SETRF+8, SETRF+9, RXNOSTAT+2! |
OUTPATARY | ENCTRIB+1~ |
OUTPATARY( | DSPLAY+3, DSPLAY1+9* |
>> PRINTRPT | ENCTRIB+3, ENCTRIB+12, ENCTRIB+20, ENCTRIB+28 |
PRNTSEC | ENCTRIB+1~, ENCTRIB+2*, PRNTENC+28, PRNTENC+30*, DSPLAY+2, DSPLAY+5* |
QUIT | RX1+1~ |
RATETYP | RX1+1~, RX1+2*, IBSTAT+4*, IBSTAT+6 |
RECNT | ENCTRIB+1~, ENCTRIB+7*, ENCTRIB+9, ENCTRIB+16, ENCTRIB+17, ENCTRIB+18, ENCTRIB+21, PRNTENC+20, PRNTENC+21, PRNTENC+23 , PRNTENC+24, PRNTENC+25, PRNTENC+26, PRNTENC+27, PRNTENC+28, PRNTENC+29, DSPLAY+7 |
RECNUM | PRNTENC+1~, PRNTENC+21*, PRNTENC+22, PRNTENC+23, PRNTENC+24, PRNTENC+25, PRNTENC+26, PRNTENC+27 |
>> RECORD | ENCTRIB+4, ENCTRIB+5, ENCTRIB+6, ENCTRIB+7, ENCTRIB+9, ENCTRIB+16, ENCTRIB+17, ENCTRIB+18, ENCTRIB+21, PRNTENC+20 , PRNTENC+21, PRNTENC+23, PRNTENC+24, PRNTENC+25, PRNTENC+26, PRNTENC+27, PRNTENC+28, PRNTENC+29, DSPLAY+7 |
>> RESULT | RX1+9, RX1+10, RX1+12, RX1+13, RX1+14, RX1+20, RX1+28, RX1+29, RX1+39, RX1+40 , SORTRFRX+8, SORTRFRX+12 |
RSLTFRMOE | PRNTENC+1~, PRNTENC+24*, PRNTENC+25 |
RXIBSTAT | IBSTAT+1~, IBSTAT+5*, IBSTAT+6 |
STATNUM | ENCTRIB+1~, ENCTRIB+10*, ENCTRIB+11* |
SUB1 | ENCTRIB+1~, ENCTRIB+4*, ENCTRIB+5, ENCTRIB+6, ENCTRIB+7, ENCTRIB+9, ENCTRIB+10, ENCTRIB+11, ENCTRIB+16, ENCTRIB+17 , ENCTRIB+18, ENCTRIB+21, PRNTENC+20, PRNTENC+21, PRNTENC+23, PRNTENC+24, PRNTENC+25, PRNTENC+26, PRNTENC+27, PRNTENC+28 , PRNTENC+29, DSPLAY+7 |
SUB2 | ENCTRIB+1~, ENCTRIB+5*, ENCTRIB+6, ENCTRIB+7, ENCTRIB+9, ENCTRIB+10, ENCTRIB+11, ENCTRIB+16, ENCTRIB+17, ENCTRIB+18 , ENCTRIB+21, PRNTENC+20, PRNTENC+21, PRNTENC+23, PRNTENC+24, PRNTENC+25, PRNTENC+26, PRNTENC+27, PRNTENC+28, PRNTENC+29 , DSPLAY+7 |
TMPDATA | ENCTRIB+1~, ENCTRIB+21*, ENCTRIB+22, ENCTRIB+23!, PRNTENC~, PRNTENC+11, PRNTENC+12, PRNTENC+15, PRNTENC+16, PRNTENC+29* , PRNTENC+30, DSPLAY+1, DSPLAY+3, DSPLAY+6, DSPLAY+7, DSPLAY1+1, DSPLAY1+2, DSPLAY1+4, DSPLAY1+5, DSPLAY1+6 , DSPLAY1+8, DSPLAY1+9 |
TRUE | PRNTENC+1~, PRNTENC+2*, PRNTENC+6*, PRNTENC+7*, PRNTENC+8, PRNTENC+19*, PRNTENC+30*, PRNTENC+31* |
U | SORTENC+11, ANSWER+2, ANSWER+4, SORTRX+11, ENCTRIB+10, ENCTRIB+11, ENCTRIB+16, ENCTRIB+17, ENCTRIB+18, ENCTRIB+22 , PRNTENC+11, PRNTENC+12, PRNTENC+15, PRNTENC+16, PRNTENC+23, PRNTENC+24, PRNTENC+25, PRNTENC+26, PRNTENC+27, PRNTENC+30 , DSPLAY+1, DSPLAY+3, DSPLAY+6, DSPLAY+7, DSPLAY1+1, DSPLAY1+2, DSPLAY1+4, DSPLAY1+5, DSPLAY1+6, DSPLAY1+8 , DSPLAY1+9, CPTIER+3, CPTIER+8, CPTIER+9, SITE+2, SITE+3, RX1+3, RX1+19, RX1+20, RX1+22 , RX1+23, RX1+27, RX1+29, RX1+31, RX1+32, SORTORRX+2, SORTORRX+3, SORTORRX+4, SORTORRX+7, SORTORRX+8 , SORTORRX+10, SORTORRX+12, SORTORRX+13, SORTORRX+14, IBSTAT+2, IBSTAT+4, IBSTAT+5, IBSTAT+6, SORTRFRX+3, SORTRFRX+9 , SORTRFRX+10, SETRF+1, SETRF+3, SETRF+5, SETRF+6, SETRF+8, SETRF+9, RXNOSTAT+7, RXNOSTAT+10, RXNOSTA1+1 , RXNOSTA1+2, RXNOSTA2+2, RXNOSTA2+8, RXNOSTA2+9 |
X | SORTENC+1~, SORTENC+10, ANSWER~, ANSWER+2, ANSWER+4, SORTRX+1~, SORTRX+10 |
Y | SORTENC+1~, SORTENC+10, ANSWER~, ANSWER+2, ANSWER+4, SORTRX+1~, SORTRX+10 |
Z | SORTENC+1~, ANSWER+1*, ANSWER+2*, SORTRX+1~ |