Routine: DGMSTR2

Package	Total	Call Graph
Registration	4	$$GETSTAT^DGMSTAPI (ADD,DEM,ELIG,KVAR)^VADPT PAUSE^VALM1 FIRST^VAUTOMA
Kernel	3	HOME^%ZIS ($$DT,$$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA Fileman	2	GETS^DIQ ^DIR

Package	Total	Caller Graph
Registration	1	DGMST DETAILED REPORT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point for report ; Variable List ; DGBEG - Beginning of date range (FM date) ; DGEND - End of date range (FM Date) ; DGMST - array of MST status codes ; DGSEX - Patient gender to filter on ; DGPOS - array of period of service values to filter on ; DGDISP - Sort report on ; DGSDAT - start date selection ; DGEDAT - end date selection ; RPTREF - location of report data array ; RPTARRY - temporary location of report array ; DGX - temporary variable ; MSTST - temporary variable holding MST status ; MSTPOS - temporary array of selected POS's ; MSTNAME - temporary variable, patient name ; MSTIEN - temporary variable, IEN in MST HISTORY File (#29.11) ; MSTACT - temporary array, service in country indicated ; MSTDT - temporary variable, MST status change date
RPT	; Main entry point for printing report form KERNEL device utility
GETMST(MST)	; Multiple MST status code seletion, loops until user quites
SERVICE(NDX)	; Convert field number to text value
PRNNAME(DGBEG,DGEND,DGDSP,RPTARRY,DGMST)	; ; Print out report on patient name sort. One level of sort in the ^TMP global
NEXT
ACTION(DFN,MSTRSLT)	; Check for service indicated fields in PATIENT File (#2) for ; patient passed in. Return local array with all entries flaged as yes in the ; respective fields ; .32101 - Vietnam ; .3221 - Lebanon ; .3224 - Grenada ; .3227 - Panama ; .32201 - Persian Gulf ; .322016 - Somalia ; Output ; MSTRSLT(n)="VIETNAM"
HEADER(MSTST,DGDISP,DGBEG,DGEND)	; Print report header
PRNPOS(DGBEG,DGEND,DGDSP,RPTARRY,DGMST)	; ; Print out report on period of service sort, Two levels of sort.
PRNTLN1(DFN,MSTIEN)	; Format and print data for patient passed in
BUILD(DGBEG,DGEND,DGMST,DGSEX,DGPOS,DGDISP,RPTARRY)	;

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+77
$$GETSTAT^DGMSTAPI	BUILD+12
GETS^DIQ	ACTION+14
^DIR	EN+26, EN+34, EN+48, EN+64, NEXT+3
ADD^VADPT	PRNTLN1+2
DEM^VADPT	BUILD+14, PRNTLN1+2
ELIG^VADPT	BUILD+16, PRNTLN1+2
KVAR^VADPT	BUILD+23, PRNTLN1+28
PAUSE^VALM1	HEADER+2
FIRST^VAUTOMA	EN+56
$$DT^XLFDT	EN+24
$$FMTE^XLFDT	HEADER+18, HEADER+21
$$NOW^XLFDT	HEADER+21
EN^XUTMDEVQ	EN+76

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report is formatted for 132 characters, and will not format" Line Location: EN+72
Function Call: WRITE	Prompt: !,"correctly on either an 80 column terminal or printer." Line Location: EN+73
Function Call: WRITE	Prompt: !!,"This report may take a while to build and print. In order to" Line Location: EN+74
Function Call: WRITE	Prompt: !,"free up your workstation, please queue this report to print device." Line Location: EN+75
Function Call: WRITE	Prompt: !!?5,"No data for MST status "_MSTST_" found." Line Location: PRNNAME+8
Function Call: WRITE	Prompt: !!?5,"No data for these parameters found." Line Location: PRNPOS+6
Function Call: WRITE	Prompt: !!?5,"No data for MST status "_MSTST_" found." Line Location: PRNPOS+12
Function Call: WRITE	Prompt: !,VA("BID") Line Location: PRNTLN1+4
Function Call: WRITE	Prompt: ?6,$E(VADM(1),1,25) Line Location: PRNTLN1+5
Function Call: WRITE	Prompt: ?32,$E(VAPA(1),1,25) Line Location: PRNTLN1+6
Function Call: WRITE	Prompt: ?58,$P(VADM(5),U) Line Location: PRNTLN1+7
Function Call: WRITE	Prompt: ?61,$E($P(VAEL(1),U,2),1,15) Line Location: PRNTLN1+8
Function Call: WRITE	Prompt: ?80,$E($P(VAEL(2),U,2),1,15) Line Location: PRNTLN1+9
Function Call: WRITE	Prompt: ?100,$G(MSTACT(1)) Line Location: PRNTLN1+10
Function Call: WRITE	Prompt: ! Line Location: PRNTLN1+11
Function Call: WRITE	Prompt: ?32,$S($G(VAPA(2))]"":$E(VAPA(2),1,25),1:DGX) Line Location: PRNTLN1+13
Function Call: WRITE	Prompt: ?100,$G(MSTACT(2)) Line Location: PRNTLN1+14
Function Call: WRITE	Prompt: ! Line Location: PRNTLN1+15
Function Call: WRITE	Prompt: ?32,$S($G(VAPA(2))]"":DGX,1:VAPA(8)) Line Location: PRNTLN1+16
Function Call: WRITE	Prompt: ?100,$G(MSTACT(3)) Line Location: PRNTLN1+17
Function Call: WRITE	Prompt: ! Line Location: PRNTLN1+18
Function Call: WRITE	Prompt: ?32,$S($G(VAPA(2))]"":VAPA(8),1:"") Line Location: PRNTLN1+19
Function Call: WRITE	Prompt: ?100,$G(MSTACT(4)) Line Location: PRNTLN1+20
Function Call: WRITE	Prompt: !?100,$G(MSTACT(5)) Line Location: PRNTLN1+23
Function Call: WRITE	Prompt: !?100,$G(MSTACT(6)) Line Location: PRNTLN1+25
Function Call: WRITE	Prompt: ! Line Location: PRNTLN1+26
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+5
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+7
Function Call: WRITE	Prompt: !,LINE_STR Line Location: HEADER+11
Function Call: WRITE	Prompt: !,LINE_STR Line Location: HEADER+14
Function Call: WRITE	Prompt: !,LINE_STR Line Location: HEADER+17
Function Call: WRITE	Prompt: !,LINE_STR Line Location: HEADER+20
Function Call: WRITE	Prompt: !,LINE_STR Line Location: HEADER+23
Function Call: WRITE	Prompt: !! Line Location: HEADER+24
Function Call: WRITE	Prompt: !?32,"ADDRESS",?82,"PERIOD" Line Location: HEADER+25
Function Call: WRITE	Prompt: !?6,"PATIENT",?32,"AND",?63,"ELIGIBILITY",?82,"OF" Line Location: HEADER+26
Function Call: WRITE	Prompt: !,"SSN",?6,"NAME",?32,"PHONE",?57,"SEX",?63,"CODE",?82,"SERVICE",?100,"SERVICE IND." Line Location: HEADER+27
Function Call: WRITE	Prompt: ! Line Location: HEADER+28
Function Call: WRITE	Prompt: SDASH,! Line Location: HEADER+30
Routine Call	%ZIS Line Location: EN+77
Routine Call	DIR Line Location: EN+26 EN+34 EN+48 EN+64 NEXT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMS(29.11 - [#29.11]	BUILD+5, BUILD+7, BUILD+8

Label References

Name	Line Occurrences
$$HEADER	PRNNAME+7, PRNNAME+9, PRNNAME+16, PRNPOS+5, PRNPOS+11, PRNPOS+13, PRNPOS+22
$$SERVICE	ACTION+17
ACTION	PRNTLN1+2
BUILD	RPT+4
GETMST	EN+39
NEXT	NEXT+6
PRNNAME	RPT+5
PRNPOS	RPT+6
PRNTLN1	PRNNAME+15, PRNPOS+21

Naked Globals

Name	Field # of Occurrence
^(	PRNNAME+13, PRNPOS+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	BUILD+3~, BUILD+11, BUILD+12, BUILD+20, BUILD+22, PRNNAME+2~, PRNNAME+14, PRNNAME+15, PRNPOS+2~, PRNPOS+20* , PRNPOS+21, PRNTLN1~, PRNTLN1+2, ACTION~, ACTION+13*, ACTION+14, ACTION+16, ACTION+17
DGBEG	EN+20~, BUILD~, BUILD+4, PRNNAME~, PRNNAME+7, PRNNAME+9, PRNNAME+16, PRNPOS~, PRNPOS+5, PRNPOS+11 , PRNPOS+13, PRNPOS+22, HEADER~, HEADER+18
DGDISP	EN+20~, EN+66*, RPT+4, RPT+5, RPT+6, BUILD~, BUILD+19, HEADER~, HEADER+15
DGDSP	PRNNAME~, PRNNAME+7, PRNNAME+9, PRNNAME+16, PRNPOS~, PRNPOS+5, PRNPOS+11, PRNPOS+13, PRNPOS+22
DGEDAT	EN+20~, EN+36*, RPT+4, RPT+5, RPT+6
DGEND	EN+20~, BUILD~, BUILD+5, PRNNAME~, PRNNAME+7, PRNNAME+9, PRNNAME+16, PRNPOS~, PRNPOS+5, PRNPOS+11 , PRNPOS+13, PRNPOS+22, HEADER~, HEADER+18
DGMST	EN+20~, EN+39, RPT+4, RPT+5, RPT+6, BUILD~, PRNNAME~, PRNPOS~
DGMST(	BUILD+10, PRNNAME+5, PRNPOS+9
DGMST(""	EN+40
DGNDX	PRNNAME+2~, PRNNAME+10, PRNNAME+12, PRNNAME+13, PRNPOS+2~, PRNPOS+16, PRNPOS+18, PRNPOS+19
DGPOS	EN+20~, RPT+4, BUILD~, BUILD+17
DGPOS(	BUILD+17
DGQUIT	PRNNAME+2~, PRNNAME+5, PRNNAME+9, PRNNAME+11, PRNNAME+12, PRNNAME+16, PRNPOS+2~, PRNPOS+9, PRNPOS+13, PRNPOS+15 , PRNPOS+17, PRNPOS+18, PRNPOS+22
DGSDAT	EN+20~, EN+28*, EN+32, RPT+4, RPT+5, RPT+6
DGSEX	EN+20~, EN+50*, RPT+4, BUILD~, BUILD+15
DGX	BUILD+3~, BUILD+9, BUILD+10, BUILD+12, BUILD+13, BUILD+17, PRNPOS+2~, PRNTLN1+1~, PRNTLN1+12, PRNTLN1+13 , PRNTLN1+16
DIC	EN+20~, EN+55*
DIR	EN+26!, EN+34!, EN+48!, EN+64!, NEXT+3!
DIR("?"	EN+25, EN+33, EN+46, EN+47, EN+62, EN+63, NEXT+2*
DIR("A"	EN+24, EN+32, EN+45, EN+61, NEXT+1*
DIR("B"	EN+45, EN+61
DIR(0	EN+24, EN+32, EN+44, EN+60, NEXT*
DIRUT	EN+23!, EN+27, EN+31!, EN+35, EN+43!, EN+49, EN+59!, EN+65, NEXT+4
DT	EN+32
FRSTPAS	RPT+1~, HEADER+2, HEADER+3, HEADER+4*
IOF	HEADER+5, HEADER+7
IOM	HEADER+10, HEADER+13, HEADER+16, HEADER+19, HEADER+22, HEADER+29
IOSL	PRNNAME+16, PRNPOS+22
IOST	HEADER+2
LINE	BUILD+3~, BUILD+18, BUILD+20, BUILD+22, HEADER+1~, HEADER+10, HEADER+11, HEADER+13!, HEADER+14, HEADER+16! , HEADER+17, HEADER+19!, HEADER+20, HEADER+22!, HEADER+23, ACTION+12~, ACTION+17*
MST	GETMST~
MST(	NEXT+5*
MSTACT	PRNTLN1+1~, PRNTLN1+2
MSTACT(1	PRNTLN1+10
MSTACT(2	PRNTLN1+14
MSTACT(3	PRNTLN1+17
MSTACT(4	PRNTLN1+20
MSTACT(5	PRNTLN1+22, PRNTLN1+23
MSTACT(6	PRNTLN1+24, PRNTLN1+25
MSTACTN	ACTION+12~
MSTACTN(2	ACTION+16, ACTION+17
MSTDAT	BUILD+3~, BUILD+8, BUILD+9, BUILD+11, BUILD+20, BUILD+22, PRNNAME+2~, PRNNAME+13, PRNNAME+14, PRNPOS+19* , PRNPOS+20
MSTDT	BUILD+3~, BUILD+4, BUILD+5, BUILD+7
MSTIEN	BUILD+3~, BUILD+6, BUILD+7, BUILD+8, BUILD+13, BUILD+20, BUILD+22, PRNNAME+2~, PRNNAME+14, PRNNAME+15 , PRNPOS+2~, PRNPOS+20, PRNPOS+21, PRNTLN1~
MSTNAME	PRNNAME+2~, PRNNAME+10, PRNNAME+11, PRNNAME+12, PRNPOS+2~, PRNPOS+16, PRNPOS+17, PRNPOS+18
MSTPOS	PRNNAME+2~, PRNPOS+2~, PRNPOS+14, PRNPOS+15, PRNPOS+17, PRNPOS+18
MSTRSLT	ACTION~
MSTRSLT(	ACTION+17*
MSTST	PRNNAME+2~, PRNNAME+4, PRNNAME+5, PRNNAME+6, PRNNAME+7, PRNNAME+8, PRNNAME+9, PRNNAME+11, PRNNAME+12, PRNNAME+16 , PRNPOS+2~, PRNPOS+5, PRNPOS+8, PRNPOS+9, PRNPOS+10, PRNPOS+11, PRNPOS+12, PRNPOS+13, PRNPOS+15, PRNPOS+17 , PRNPOS+18, PRNPOS+22, HEADER~, HEADER+12
NDX	ACTION+12~, ACTION+15, ACTION+16, ACTION+17, SERVICE~, SERVICE+1
RPTARRY	BUILD~, BUILD+20, BUILD+22, PRNNAME~, PRNNAME+6, PRNNAME+11, PRNNAME+12, PRNPOS~, PRNPOS+4, PRNPOS+10 , PRNPOS+15, PRNPOS+17, PRNPOS+18
RPTREF	RPT+2*, RPT+3, RPT+4, RPT+5, RPT+6, RPT+7!
SDASH	HEADER+1~, HEADER+29*, HEADER+30
STR	HEADER+1~, HEADER+9, HEADER+10, HEADER+11, HEADER+12, HEADER+13, HEADER+14, HEADER+15, HEADER+16, HEADER+17 , HEADER+18, HEADER+19, HEADER+20, HEADER+21*, HEADER+22, HEADER+23
U	BUILD+9, BUILD+11, BUILD+15, BUILD+17, BUILD+20, BUILD+22, PRNNAME+14, PRNPOS+20, PRNTLN1+7, PRNTLN1+8 , PRNTLN1+9, PRNTLN1+12
VA	BUILD+3~, PRNTLN1+1~
VA("BID"	PRNTLN1+4
VADM	BUILD+3~, PRNTLN1+1~
VADM(1	BUILD+20, BUILD+22, PRNTLN1+5
VADM(5	BUILD+15, PRNTLN1+7
VAEL	BUILD+3~, PRNTLN1+1~
VAEL(1	PRNTLN1+8
VAEL(2	BUILD+17, BUILD+22, PRNTLN1+9
VAPA	BUILD+3~, PRNTLN1+1~
VAPA(1	PRNTLN1+6
VAPA(2	PRNTLN1+13, PRNTLN1+16, PRNTLN1+19
VAPA(4	PRNTLN1+12
VAPA(5	PRNTLN1+12
VAPA(6	PRNTLN1+12
VAPA(8	PRNTLN1+16, PRNTLN1+19
VAUTNI	EN+53~, EN+54*
VAUTSTR	EN+53~, EN+54*
VAUTVB	EN+53~, EN+55*
X	EN+20~, EN+70, EN+71, PRNNAME+7, PRNPOS+5, PRNPOS+11
Y	EN+20~, EN+28, EN+36, EN+50, EN+66, HEADER+2, NEXT+5
ZTSAVE	EN+20~, EN+69~, EN+76
ZTSAVE(	EN+71*

Customize PDF page

Package: Registration

Routine: DGMSTR2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: