Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point for report
EXIT
RUN ; Run report
PASTYR(DGBEG,DGEND) ; Set dates for previous fiscal year
CURYR(DGBEG,DGEND) ; Set dates for current fiscal year
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)
BLD(DGBEG,DGEND) ; Build list of PTF records for discharge date range
CHKMT ; Clean out all PTF records except those meeting the MT=U conditions
SRTNAME ; Sort remaining PTF records by patient name and discharge date
MAIL ; send message with report statistics
PRINT ; Print Report
LAST4(DFN) ; Print last four of SSN
DOFD(DFN) ; Print Date of Death, if there is one
HDR ; Report Header

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGPT - [#45] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call