DGOTHFS2 ;SLC/RM - FORMER OTH PATIENT DETAIL REPORT 2 ; July 30,2020@09:44am
Source file <DGOTHFS2.m>
Package | Total | Call Graph |
---|---|---|
Registration | 11 | $$FINDCUR^DGENA (CHECKIB,CHECKPTF,CHKTREAT)^DGFSMOUT DISP^DGIBDSP ($$MTS,DIS)^DGMTU ($$SORTENC,$$SORTRX,ENCTRIB,RX1,RXNOSTAT)^DGOTHFS3 (FLTRENC,PRINTRX,TOTRX)^DGOTHFS4 ($$ANSWER,ASKCONT,EXIT)^DGOTHFSM ($$CROSS,$$OTHTYP)^DGOTHINQ $$RDIS^DGRPDB (2,KVAR)^VADPT $$SITE^VASITE |
VA FileMan | 5 | ^DIC WAIT^DICD RECALL^DILFD ($$GET1,GETS)^DIQ ^DIR |
Kernel | 4 | HOME^%ZIS ($$FMADD,$$FMTE)^XLFDT $$CJ^XLFSTR EN^XUTMDEVQ |
Integrated Billing | 2 | $$INSUR^IBBAPI EN^IBEFSMUT |
Outpatient Pharmacy | 1 | RX^PSO52API |
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 |
Package | Total | Caller Graph |
---|---|---|
Registration | 4 | DG OTH FSM DETAIL REPORT DGOTHFS3 DGOTHFS4 DGPPDRX |
Name | Comments | DBIA/ICR reference |
---|---|---|
MAIN | ; Initial Interactive Processing
|
|
START | ;starting point to generate report
|
|
PROMPTPT | ;prompt user to enter patient
|
|
RUNOPT | ;display message to run FORMER OTH PATIENT ELIGIBILITY CHANGE REPORT option
|
|
ACTIVE(DGSORT) | ;determine the current status of OTH patient
|
|
SELPAT(DGSORT) | ;prompt for veteran's name
|
|
RPTTYPE() | ;prompt for type of data user wish to see
|
|
CURRENT(DFN,PTNAME) | ;display patient current and verified PE eligibility
|
|
MTS(DFN) | ;display patient's Means Test Status information
|
|
RTDDIS(DFN) | ;display patient's rated disabilities information
|
|
INS(DFN) | ;display patient's health insurance information
|
|
HISTORY(IEN33) | ;extract all eligibility history
|
|
OTHREGDT(DGIEN33) | ;determine the original date the former OTH service member become EXPANDED MH CARE NON-ENROLLEE
|
|
ENCTR(DFN,DGSORT) | ;display patient's episodes of care
|
|
ENCTRCOL | ;display encounter column name
|
|
ENCHDR(FLAG) | ;Encounter Header
|
|
DTRANGE | ;display date range
|
|
RX(DFN,DGSORT) | ;extract patient's released prescription
|
|
LINE(FLAG) | ;prints double dash line
|
|
PTHDR(TITLE) | ;patient name and DOB header
|
|
HDR(FLAG) | ;Primary Eligibility History header
|
|
PAUSE(DGQ) | ; pause screen display
|
|
E(MSG) | ; ----- ask user to press enter to continue
; Return: -2:Time-out; -1:'^'-out 1:anything else |
|
HELP | ;provide extended DIR("?") help text.
|
|
CHKDATE(DATE,DGSORT) | ;check if dates fall within the Begin and End dates
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | MAIN+78 |
$$FINDCUR^DGENA | CURRENT+10 |
CHECKIB^DGFSMOUT | MAIN+43 |
CHECKPTF^DGFSMOUT | MAIN+42 |
CHKTREAT^DGFSMOUT | MAIN+41 |
DISP^DGIBDSP | INS+7 |
$$MTS^DGMTU | MTS+1 |
DIS^DGMTU | MTS+3 |
$$SORTENC^DGOTHFS3 | MAIN+53, MAIN+59 |
$$SORTRX^DGOTHFS3 | MAIN+55, MAIN+63 |
ENCTRIB^DGOTHFS3 | ENCTR+17, ENCTR+19 |
RX1^DGOTHFS3 | RX+22 |
RXNOSTAT^DGOTHFS3 | RX+26 |
FLTRENC^DGOTHFS4 | MAIN+46 |
PRINTRX^DGOTHFS4 | RX+27 |
TOTRX^DGOTHFS4 | MAIN+47 |
$$ANSWER^DGOTHFSM | RPTTYPE+6 |
ASKCONT^DGOTHFSM | MAIN+7, HISTORY+19, RX+31 |
EXIT^DGOTHFSM | START+31 |
$$CROSS^DGOTHINQ | HISTORY+7 |
$$OTHTYP^DGOTHINQ | HISTORY+13 |
$$RDIS^DGRPDB | RTDDIS+5 |
^DIC | SELPAT+8 |
WAIT^DICD | START+1 |
RECALL^DILFD | MAIN+20 |
$$GET1^DIQ | MAIN+39, START+7, PROMPTPT+11, ACTIVE+5, CURRENT+7, CURRENT+11 |
GETS^DIQ | OTHREGDT+9 |
^DIR | E+6 |
$$INSUR^IBBAPI | INS+5 |
EN^IBEFSMUT | MAIN+49 |
RX^PSO52API | MAIN+44 |
2^VADPT | CURRENT+3 |
KVAR^VADPT | START+29 |
$$SITE^VASITE | START+2 |
$$FMADD^XLFDT | MAIN+44 |
$$FMTE^XLFDT | CURRENT+7, HISTORY+16, ENCTR+7, DTRANGE+2 |
$$CJ^XLFSTR | MAIN+7 |
EN^XUTMDEVQ | MAIN+77 |
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 |
|
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 |
|
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DGEN(27.11 - [#27.11] | GET1^DIQ |
^DGOTH(33 - [#33] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ, RECALL^DILFD |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(391 - [#391] | RTDDIS+4 |
^DGOTH(33 - [#33] | MAIN+7, OTHREGDT+4 |
^DIC(31 - [#31] | RTDDIS+11, RTDDIS+12, RTDDIS+13 |
^TMP($J | MAIN+24, MAIN+25, MAIN+26, MAIN+29!, MAIN+30!, MAIN+47, START+30!, RX+9, RX+10, RX+11 , RX+15, RX+17, RX+18, RX+25!, RX+28! |
Name | Line Occurrences |
---|---|
$$ACTIVE | PROMPTPT+6 |
$$CHKDATE | RX+13 |
$$E | PAUSE+4 |
$$OTHREGDT | MAIN+38 |
$$RPTTYPE | MAIN+23 |
$$SELPAT | PROMPTPT+4 |
CURRENT | START+9 |
DTRANGE | ENCHDR+4 |
ENCHDR | ENCTR+4 |
ENCTR | START+25 |
ENCTRCOL | ENCTR+4 |
HDR | HISTORY+4, HISTORY+11 |
HISTORY | START+20 |
INS | START+17 |
LINE | CURRENT+5, CURRENT+13, RTDDIS+15, INS+3, HISTORY+3, HISTORY+11, ENCTR+3, ENCTR+4, ENCTR+8, ENCHDR+7 , RX+3, HDR+4, HDR+6 |
MTS | START+12 |
PAUSE | RTDDIS+15, INS+3, HISTORY+3, HISTORY+11, ENCTR+3, RX+3 |
PROMPTPT | MAIN+18 |
PTHDR | CURRENT+4, RTDDIS+15, INS+3, HISTORY+3, HISTORY+11, ENCTR+3, RX+3 |
RTDDIS | START+14 |
RUNOPT | PROMPTPT+8, PROMPTPT+13 |
RX | START+28 |
Name | Field # of Occurrence |
---|---|
^(0 | RTDDIS+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | MAIN+2~, MAIN+69*, MAIN+77 |
%ZIS("B" | MAIN+70* |
ACCTYP | RX+1~, RX+14, RX+15*, RX+16, RX+17*, RX+21 |
ACRTYP | ENCTR+1~ |
BILLNO | ENCTR+1~ |
CHRGCNT | ENCTR+1~ |
CNTR | RX+1~, RX+7* |
DATE | CHKDATE~, CHKDATE+1 |
DFN | MAIN+3~, START+6*, START+7, CURRENT~, CURRENT+10, MTS~, MTS+1, MTS+3, RTDDIS~, RTDDIS+5 , INS~, INS+5, ENCTR~, RX~, RX+9, RX+11, RX+15, RX+17, RX+18 |
DGARR | RTDDIS+1~, RTDDIS+5 |
DGARR( | RTDDIS+6, RTDDIS+9, RTDDIS+10, RTDDIS+14 |
DGASK | RPTTYPE+1~, RPTTYPE+6*, RPTTYPE+7*, RPTTYPE+8*, RPTTYPE+9 |
DGC | RTDDIS+1~, RTDDIS+6*, RTDDIS+9, RTDDIS+10, RTDDIS+14 |
DGDFN | MAIN+3~, MAIN+39, MAIN+41, MAIN+42, MAIN+44, MAIN+47, MAIN+49, START+6, START+9, START+12 , START+14, START+17, START+25, START+28, PROMPTPT+10*, PROMPTPT+11, CURRENT+7 |
DGDIRA | RPTTYPE+1~, RPTTYPE+2*, RPTTYPE+6 |
DGDIRB | RPTTYPE+1~, RPTTYPE+3*, RPTTYPE+6 |
DGDIRH | RPTTYPE+1~, RPTTYPE+4*, RPTTYPE+6 |
DGDIRO | RPTTYPE+1~, RPTTYPE+5*, RPTTYPE+6 |
DGDIV | ENCTR+1~ |
DGELHIST | HISTORY+1~, HISTORY+7* |
DGENCNT | MAIN+2~, MAIN+37*, MAIN+50, MAIN+57, MAIN+61 |
DGENCTRDT | ENCTR+1~ |
DGENCTRIB | ENCTR+1~ |
DGENR | CURRENT+1~ |
DGENRGRP | CURRENT+1~, CURRENT+2*, CURRENT+11*, CURRENT+12 |
DGENRIEN | CURRENT+1~, CURRENT+2*, CURRENT+10*, CURRENT+11, CURRENT+12 |
DGENRPRI | CURRENT+1~, CURRENT+2*, CURRENT+11*, CURRENT+12 |
DGERR | OTHREGDT+2~, OTHREGDT+8!, OTHREGDT+10 |
DGFOUND | OTHREGDT+2~, OTHREGDT+3*, OTHREGDT+7, OTHREGDT+15* |
DGIEN33 | MAIN+37*, MAIN+38, START+5*, START+20, ACTIVE+3~, ACTIVE+4*, ACTIVE+5, OTHREGDT~, OTHREGDT+4, OTHREGDT+9 , OTHREGDT+12, OTHREGDT+14 |
DGLINE | HISTORY+1~, HISTORY+12*, HISTORY+13, HISTORY+14, HISTORY+15, HISTORY+16 |
DGMTS | MAIN+2~, MTS+1*, MTS+2, INS+9 |
DGOTHARR | OTHREGDT+2~, OTHREGDT+8! |
DGOTHARR( | OTHREGDT+12, OTHREGDT+14 |
DGOTHIST | HISTORY+1~, HISTORY+6!, HISTORY+7 |
DGOTHIST( | HISTORY+10, HISTORY+12 |
DGOTHREGDT | OTHREGDT+2~, OTHREGDT+3*, OTHREGDT+14*, OTHREGDT+16 |
DGOTHSTAT | ACTIVE+3~, ACTIVE+5*, ACTIVE+6 |
DGOTHTYP | HISTORY+1~, HISTORY+13*, HISTORY+14 |
DGP1 | RTDDIS+8~, RTDDIS+12*, RTDDIS+17 |
DGP2 | RTDDIS+8~, RTDDIS+13*, RTDDIS+17 |
DGP3 | RTDDIS+8~, RTDDIS+14*, RTDDIS+17 |
DGPAGE | MAIN+3~, START+4*, PTHDR+2, PTHDR+4*, PAUSE+4 |
DGPID | MAIN+3~, START+7*, PTHDR+5 |
DGPRTLRXFL | MAIN+2~, MAIN+9*, MAIN+37* |
DGPTNM | MAIN+2~, START+9, PROMPTPT+4*, PTHDR+5 |
DGPTYPE | RTDDIS+1~ |
DGQ | START+4*, START+15, START+18, START+21, START+26, RTDDIS+6, RTDDIS+15, INS+3, HISTORY+3, HISTORY+10 , HISTORY+11, ENCTR+3, ENCTR+9, RX+3, RX+8, RX+10, RX+11, RX+23, RX+24, RX+25 , RX+30, PAUSE~, PAUSE+4* |
DGRECNUM | HISTORY+1~, HISTORY+10*, HISTORY+12, OTHREGDT+2~, OTHREGDT+7*, OTHREGDT+12, OTHREGDT+14 |
DGREGDT | OTHREGDT+2~ |
DGREGDT( | OTHREGDT+6*, OTHREGDT+7 |
DGRPTSRT | MAIN+3~, MAIN+9*, MAIN+34, MAIN+56*, MAIN+60*, MAIN+64*, MAIN+67* |
DGRTNSTCK | MAIN+2~, MAIN+9*, MAIN+37* |
DGSORT | MAIN+1~, MAIN+19, MAIN+20, MAIN+37, START+5, START+25, START+28, PROMPTPT+4, PROMPTPT+5, PROMPTPT+6 , ACTIVE~, ACTIVE+4, SELPAT~, SELPAT+10*, SELPAT+12, SELPAT+13*, ENCTR~, RX~, RX+13, CHKDATE~ |
DGSORT("DGBEG" | MAIN+38*, MAIN+41, MAIN+42, MAIN+43, MAIN+44, MAIN+49, ENCTR+7, DTRANGE+2, CHKDATE+1 |
DGSORT("DGEND" | MAIN+39*, MAIN+41, MAIN+42, MAIN+43, MAIN+44, MAIN+49, ENCTR+7, DTRANGE+2, CHKDATE+1 |
DGSORT("RTYPE" | MAIN+34, START+23, RPTTYPE+7*, HISTORY+19 |
DGSORT("SORTENCBY" | MAIN+65*, MAIN+66*, ENCTR+13, ENCHDR+5, ENCHDR+6 |
DGSORT("SORTRXBY" | MAIN+60*, MAIN+66* |
DGSORT(0 | PROMPTPT+10, SELPAT+14* |
DGTOTALRX | MAIN+3~, MAIN+37*, MAIN+47, MAIN+48*, MAIN+50, MAIN+57, MAIN+61 |
DGTOTENC | ENCTR+1~, ENCTR+5*, ENCTR+10 |
DGTOTREC | OTHREGDT+2~, OTHREGDT+3*, OTHREGDT+4*, OTHREGDT+5, OTHREGDT+6 |
DGTOTRX52 | MAIN+3~, MAIN+37*, MAIN+47*, MAIN+48 |
DGZERO | RTDDIS+8~, RTDDIS+10*, RTDDIS+11, RTDDIS+12, RTDDIS+13 |
DIC | SELPAT+2~, SELPAT+3*, SELPAT+8! |
DIC("?N" | SELPAT+6* |
DIC("?PARAM" | SELPAT+5* |
DIC("A" | SELPAT+4* |
DIC(0 | SELPAT+3* |
DIR | E+3~ |
DIR("A" | E+5* |
DIR(0 | E+4* |
DIROUT | E+3~ |
DIRUT | E+3~ |
DT | INS+5 |
DTOUT | SELPAT+2~, E+3~, E+7 |
DTRANGE | DTRANGE+1~, DTRANGE+2*, DTRANGE+3 |
DUOUT | SELPAT+2~, E+3~, E+7 |
DUZ | MAIN+20 |
FILENO | ENCTR+1~, RX+1~, RX+8*, RX+9, RX+10, RX+11, RX+14, RX+15, RX+16, RX+17 , RX+18 |
FLAG | ENCHDR~, ENCHDR+2, LINE~, LINE+2, HDR~, HDR+2 |
HERE | START+2~* |
I | CURRENT+8*, INS+1~, INS+8! |
I1 | CURRENT+1~, CURRENT+8*, INS+1~, INS+8! |
I3 | MAIN+3~, START+4*, RTDDIS+7*, RTDDIS+16, RTDDIS+18, INS+3 |
IBOTHSTAT | MAIN+1~, MAIN+3~, MAIN+26*, MAIN+31, MAIN+49, START+30 |
IEN33 | HISTORY~, HISTORY+7, HISTORY+10, HISTORY+12 |
II | OTHREGDT+2~, OTHREGDT+6* |
INACTIVE | MAIN+3~, MAIN+9*, MAIN+19, PROMPTPT+2, PROMPTPT+5*, PROMPTPT+14* |
IOF | MAIN+8, HISTORY+19, RX+31, PTHDR+2 |
IOSL | RTDDIS+15, HISTORY+11, PAUSE+2 |
IOST | START+1, START+3 |
J | PAUSE+1~, PAUSE+3* |
JJ | ENCTR+1~ |
LINE | LINE+1~, LINE+2*, LINE+3* |
MSG | E~, E+2*, E+5 |
OTHIBDT | RX+1~, RX+10*, RX+11, RX+13, RX+15, RX+17, RX+18 |
OTHIBREC | RX+1~, RX+11*, RX+15, RX+17, RX+18 |
OTHIBRX | RX+1~, RX+19*, RX+20*, RX+21* |
PRINTRPT | ENCTR+1~, ENCTR+5*, ENCTR+12, ENCTR+18* |
PTNAME | CURRENT~ |
RECORD | MAIN+4~, MAIN+24*, MAIN+27, MAIN+46, START+30, ENCTR+6, ENCTR+14, ENCTR+15 |
RECORD1 | MAIN+5~, MAIN+25*, MAIN+28, START+30, ENCTR+15, ENCTR+16 |
RESULT | RX+1~, RX+18*, RX+19, RX+20, RX+21 |
SORTENCBY | MAIN+2~, MAIN+9* |
STAT350 | ENCTR+1~ |
STAT399 | ENCTR+1~ |
SUB1 | ENCTR+1~ |
SUB2 | ENCTR+1~ |
TITLE | ENCHDR+1~, ENCHDR+2*, ENCHDR+3, ENCHDR+5*, ENCHDR+6, PTHDR~, PTHDR+1*, PTHDR+3, HDR+1~, HDR+2* , HDR+3 |
TRM | START+3~*, PTHDR+2, PAUSE+4 |
U | MAIN+47, PROMPTPT+10, RTDDIS+12, RTDDIS+13, RTDDIS+14, HISTORY+13, HISTORY+14, HISTORY+15, HISTORY+16, OTHREGDT+4 , ENCTR+13, ENCHDR+5, ENCHDR+6, RX+9, RX+15, RX+16, RX+17, RX+18, PTHDR+5 |
VA | MAIN+3~ |
VADM | MAIN+3~ |
VADM(3 | PTHDR+5 |
VAEL | MAIN+3~ |
VAEL(1 | CURRENT+6, CURRENT+8 |
VAEL(3 | RTDDIS+2, RTDDIS+3 |
VAEL(4 | RTDDIS+4 |
VAEL(6 | RTDDIS+4 |
VAEL(8 | CURRENT+6 |
VAUTD | MAIN+2~, MAIN+40*, MAIN+41 |
X | MAIN+76*, MAIN+77, SELPAT+2~, E+3~, E+7*, E+8, HELP+1 |
Y | SELPAT+2~, SELPAT+10, SELPAT+13, E+3~ |
Y(0 | SELPAT+12, SELPAT+14 |
Z | INS+1~, INS+5*, INS+6, INS+8!, E+3~ |
ZTDESC | MAIN+2~ |
ZTQUEUED | MAIN+2~ |
ZTREQ | MAIN+2~ |
ZTSAVE | MAIN+2~, MAIN+77 |
ZTSAVE("DGDFN" | MAIN+73* |
ZTSAVE("DGPTNM" | MAIN+74* |
ZTSAVE("DGSORT" | MAIN+72* |
ZTSAVE("DGSORT(" | MAIN+71* |
ZTSAVE("DGTOTALRX" | MAIN+75* |
ZTSTOP | MAIN+2~ |