Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGMSTR2

Package: Registration

Routine: DGMSTR2


Information

DGMSTR2 ;ALB/SCK - MST DETAILED DEMOGRAPHIC REPORT ; 11/19/03 10:56am

Source Information

Source file <DGMSTR2.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 1

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All