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 |  Local Variables |  All
Print Page as PDF
Routine: DGPTFRU1

Package: Registration

Routine: DGPTFRU1


Information

DGPTFRU1 ; ALB/SCK - PTF RECORDS CLOSEOUT RPT FOR MT INDICATOR = U ; 21 JULY 2003

Source Information

Source file <DGPTFRU1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ENDR^%ZISS  ^%ZTLOAD  ($$FMADD,$$FMTE,$$HDIFF,$$HTE,$$NOW)^XLFDT  
VA Fileman 3 NOW^%DTC  $$GET1^DIQ  ^DIR  
Registration 2 DEM^VADPT  PID^VADPT6  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DG PTF TRANS MT EQUAL U RPT  

Entry Points

Name Comments DBIA/ICR reference
BLD(DGBEG,DGEND) ; Build list of PTF records for discharge date range
EN ; Main entry point for report
RUN ; Run report
HDR ; Report Header
CHKMT ; Clean out all PTF records except those meeting the MT=U conditions
LAST4(DFN) ; Print last four of SSN
GETDT(DGBEG,DGEND) ; Get beginning and ending date for search
; Output DGBEG Beginning for date range, passed in by reference
; DGEND End of date range, passed in by reference
; result 1 - If function successful
; 0 - If function NOT successful (User quit)
PASTYR(DGBEG,DGEND) ; Set dates for previous fiscal year
SRTNAME ; Sort remaining PTF records by patient name and discharge date
EXIT
CURYR(DGBEG,DGEND) ; Set dates for current fiscal year
DOFD(DFN) ; Print Date of Death, if there is one
PRINT ; Print Report
MAIL ; send message with report statistics

External References

Name Field # of Occurrence
NOW^%DTC PASTYR+5, CURYR+5
^%ZIS EN+28
HOME^%ZIS EN+33
^%ZISC EN+35
ENDR^%ZISS EN+21
^%ZTLOAD EN+33
$$GET1^DIQ BLD+14, SRTNAME+5, PRINT+16, PRINT+17, PRINT+18
^DIR EN+6, GETDT+15, GETDT+22
DEM^VADPT DOFD+3
PID^VADPT6 LAST4+3
$$FMADD^XLFDT PASTYR+10, PASTYR+11, BLD+5, BLD+6
$$FMTE^XLFDT EN+17, MAIL+3, HDR+9, HDR+12
$$HDIFF^XLFDT MAIL+7
$$HTE^XLFDT MAIL+5, MAIL+6
$$NOW^XLFDT CURYR+10, HDR+12
^XMD MAIL+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Date Range: "_$$FMTE^XLFDT(DGBEG)_" to "_$$FMTE^XLFDT(DGEND)
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !,"A 132-Column printer is required for this report."
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !,"This report will NOT print correctly to the screen!"
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: !!?3,"You have selected to specify your own date range. Please note that by"
  • Line Location: GETDT+8
Function Call: WRITE
  • Prompt: !?3,"doing so you may not generate an accurate picture of the transmitted PTF"
  • Line Location: GETDT+9
Function Call: WRITE
  • Prompt: !?3,"closeouts where the means test indicator equals 'U'.",!
  • Line Location: GETDT+10
Function Call: WRITE
  • Prompt: !,$E(DGNAME,1,30),LAST4
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?35,DGPIEN
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?48,$$GET1^DIQ(45,DGPIEN,11)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?57,$$GET1^DIQ(45,DGPIEN,6)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: ?80,$$GET1^DIQ(45,DGPIEN,7.4)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !?TAB,PRNTLN
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!?TAB,PRNTLN
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?TAB,PRNTLN
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !?TAB,PRNTLN
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!?35,"Record",?80,"Transmission",?97,"Date of"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !,"Patient Name",?35,"Number",?48,"Type",?57,"Status",?80,"Date",?97,"Death"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HDR+20
Routine Call
  • %ZIS
  • Line Location:
    • EN+33
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • GETDT+15
    • GETDT+22
Routine Call
  • %ZIS
  • Line Location:
    • EN+28

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGPT - [#45] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPT - [#45] BLD+12, BLD+14
^DGPT("ADS" BLD+9, BLD+11
^TMP("DGPTFRU" RUN+2!, RUN+9!, BLD+8*, BLD+14*, BLD+15*, BLD+16*, CHKMT+4, CHKMT+6, CHKMT+7, CHKMT+10!
, CHKMT+11*, SRTNAME+4, SRTNAME+7*, SRTNAME+9, SRTNAME+10, SRTNAME+11*, SRTNAME+12*, MAIL+5, MAIL+6, MAIL+7
, MAIL+9, MAIL+10, MAIL+11, PRINT+22*
^TMP("DGPTFRUS" RUN+2!, RUN+9!, SRTNAME+10*, PRINT+6, PRINT+8, PRINT+9

Label References

Name Line Occurrences
$$DOFD PRINT+11
$$LAST4 PRINT+10
BLD RUN+4
CHKMT RUN+5
CURYR EN+13
EXIT EN+28
GETDT EN+15
HDR PRINT+4, PRINT+21
MAIL RUN+8
PASTYR EN+11
PRINT RUN+7
RUN EN+34
SRTNAME RUN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%I PASTYR+1~, CURYR+1~
%I(1 PASTYR+6, CURYR+6
%I(3 PASTYR+6, CURYR+6
%ZIS EN+27~, EN+28*
CNT BLD+1~
CURMN PASTYR+1~, PASTYR+6*, PASTYR+7, CURYR+1~, CURYR+6*, CURYR+7
CURYR PASTYR+1~, PASTYR+6*, PASTYR+8*, PASTYR+9, CURYR+1~, CURYR+6*, CURYR+8*, CURYR+9
DFN BLD+1~, BLD+12*, BLD+13, BLD+14, CHKMT+1~, CHKMT+3*, CHKMT+4*, CHKMT+6, CHKMT+7, CHKMT+10
, SRTNAME+1~, SRTNAME+3*, SRTNAME+4*, SRTNAME+5, SRTNAME+9, SRTNAME+10, PRINT+1~, PRINT+9*, PRINT+10, PRINT+11
, LAST4~, DOFD~
DGBEG EN+1~, EN+11, EN+13, EN+15, EN+16, EN+17, RUN+4, PASTYR~, PASTYR+11*, CURYR~
, CURYR+9*, GETDT~, GETDT+17*, GETDT+18*, BLD~, BLD+5, MAIL+3, HDR+9
DGDOD PRINT+1~, PRINT+11*, PRINT+19
DGEND EN+1~, EN+11, EN+13, EN+15, EN+16, EN+17, RUN+4, PASTYR~, PASTYR+10*, CURYR~
, CURYR+10*, GETDT~, GETDT+24*, GETDT+25*, BLD~, BLD+6, MAIL+3, HDR+9
DGIND CHKMT+1~, CHKMT+7*, CHKMT+9
DGMAX BLD+1~, BLD+6*, BLD+9
DGNAME SRTNAME+1~, SRTNAME+5*, SRTNAME+6, SRTNAME+10, PRINT+1~, PRINT+5*, PRINT+6*, PRINT+8, PRINT+9, PRINT+13
DGPDT SRTNAME+1~
DGPIEN BLD+1~, BLD+10*, BLD+11*, BLD+12, BLD+14, CHKMT+1~, CHKMT+5*, CHKMT+6*, CHKMT+7, SRTNAME+1~
, SRTNAME+8*, SRTNAME+9*, SRTNAME+10, PRINT+1~, PRINT+7*, PRINT+8*, PRINT+9, PRINT+15, PRINT+16, PRINT+17
, PRINT+18
DGX BLD+1~, BLD+5*, BLD+9*, BLD+11, BLD+14
DIR EN+1~, EN+6!, GETDT+6~
DIR("?" EN+5*, GETDT+14*
DIR("A" EN+3*, GETDT+13*, GETDT+21*
DIR("B" EN+4*
DIR(0 EN+3*, GETDT+12*, GETDT+20*
DIRUT EN+1~, EN+7, GETDT+6~, GETDT+16, GETDT+23
DUZ MAIL+15
IO RUN+1
IO("Q" EN+29, EN+33!
IOF HDR+3
IOM HDR+7, HDR+10, HDR+13, HDR+16, HDR+20
IORVOFF EN+19~, EN+25
IORVON EN+19~, EN+22
IOSL PRINT+21
LAST4 PRINT+1~, PRINT+10*, PRINT+13
LINE HDR+1~, HDR+20*
MSG MAIL+1~
MSG(1 MAIL+3*
MSG(2 MAIL+4*
MSG(3 MAIL+5*
MSG(4 MAIL+6*
MSG(5 MAIL+7*
MSG(6 MAIL+8*
MSG(7 MAIL+9*
MSG(8 MAIL+10*
MSG(9 MAIL+11*
NEWNAME PRINT+1~, PRINT+7*, PRINT+12, PRINT+19, PRINT+20*
PAGE PRINT+1~, PRINT+3*, HDR+3, HDR+4*, HDR+15
POP EN+27~, EN+28
PRNTLN HDR+1~, HDR+6*, HDR+7, HDR+8, HDR+9*, HDR+10, HDR+11, HDR+12*, HDR+13, HDR+14
, HDR+15*, HDR+16, HDR+17
PRVYR PASTYR+1~, PASTYR+9*, PASTYR+10, PASTYR+11
RSLT EN+1~, EN+8*, EN+10, EN+12
SPACE HDR+1~
TAB HDR+1~, HDR+7*, HDR+8, HDR+10*, HDR+11, HDR+13*, HDR+14, HDR+16*, HDR+17
U BLD+12, BLD+14, CHKMT+7, SRTNAME+10, PRINT+9, DOFD+4
VA PRINT+1~, LAST4+1~
VA("BID" LAST4+4
VADM DOFD+1~
VADM(6 DOFD+4
X EN+1~, EN+19~, EN+20*
XMDUZ MAIL+1~, MAIL+16*
XMSUB MAIL+1~, MAIL+13*
XMTEXT MAIL+1~, MAIL+14*
XMY MAIL+1~
XMY( MAIL+15*
Y EN+1~, EN+8, EN+19~, GETDT+6~, GETDT+18, GETDT+25
ZTDESC EN+27~, EN+32*
ZTQUEUED EN+27~, EXIT
>> ZTREQ EXIT*
ZTRTN EN+27~, EN+31*
ZTSAVE EN+27~
ZTSAVE("DGBEG" EN+30*
ZTSAVE("DGEND" EN+30*
ZTSAVE("DUZ" EN+30*
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 |  Local Variables |  All