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~ |