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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCL1H

Package: Patient Care Component Reports

Routine: APCL1H


Information

APCL1H ; IHS/CMI/LAB - print hospital discharges by ;

Source Information

Source file <APCL1H.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^%DT  C^%DTC  ^DIC  
IHS VA Utilities 1 ^XBDBQUE  
Patient Care Component Reports 1 DEMOCHK^APCLUTL  

Entry Points

Name Comments DBIA/ICR reference
A ;
ZIS ;
ERR
INFORM ;
DEMO ;
EOJ
START ;
XIT ;
FY

External References

Name Field # of Occurrence
^%DT FY
C^%DTC FY+4
DEMOCHK^APCLUTL DEMO+1
^DIC A+1
^XBDBQUE ZIS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"THIS REPORT MUST BE PRINTED ON 132 COLUMN PAPER OR ON A PRINTER THAT IS",!,"SET UP FOR CONDENSED PRINT!!!",!,"IF YOU DO NOT HAVE SUCH A PRINTER AVAILABLE - SEE YOUR SITE MANAGER.",!
  • Line Location: A+3
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Must be a valid Year. Enter a year only!!"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !,"********** PCC HOSPITAL DISCHARGE REPORT **********",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report will print Fiscal Year to Date Hospital Discharge Counts for",!,"all Facilities in the Area that select. The counts by month are for",!,"month of discharge.",!
  • Line Location: INFORM+3
Routine Call
  • DIC
  • Line Location:
    • A+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTAREA - [#9999999.21] Classic Fileman Calls

Label References

Name Line Occurrences
ERR FY+2, FY+3
FY FY+2, FY+3, A+1, DEMO+2
INFORM START+1
XIT FY, FY+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+1!
%DT FY*, EOJ+1!
%DT("A" FY*
%DT("B" FY*
%H EOJ+1!
%T EOJ+1!
%W EOJ+1!
%Y EOJ+1!
APCL132 EOJ!
APCLAREA A+2*, EOJ!
APCLAREC EOJ!
APCLBT EOJ!
>> APCLDEMO DEMO+1, DEMO+2
APCLDT EOJ!
APCLFY FY+4*, EOJ!
APCLFYD EOJ!
APCLFYE EOJ!
APCLGRAN EOJ!
APCLJ EOJ!
APCLJOB EOJ!
APCLLOC EOJ!
APCLLOCN EOJ!
APCLMOL EOJ!
APCLMON EOJ!
APCLMOS EOJ!
APCLODAT EOJ!
APCLPG EOJ!
APCLQUIT EOJ!
APCLSD EOJ!
APCLT EOJ!
APCLTAB EOJ!
APCLVDFN EOJ!
APCLVINP EOJ!
APCLX EOJ!
C EOJ+1!
DA A+1!
DIC A+1*!
DIC("A" A+1*
DIC(0 A+1*
DIRUT EOJ+1!
DT FY
DTOUT START+2!, FY, EOJ+1!
DUOUT START+2!, EOJ+1!
H EOJ+1!
IO("Q" EOJ+1!
IOF INFORM+1
J EOJ+1!
K EOJ+1!
M EOJ+1!
POP EOJ+1!
S EOJ+1!
TS EOJ+1!
X FY+1, FY+4, EOJ+1!
X1 FY+4*, EOJ+1!
X2 FY+4*, EOJ+1!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y FY+2, FY+3, FY+4, A+1, A+2, EOJ+1!
ZTSK EOJ+1!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All