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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLHCT1

Package: Patient Care Component Reports

Routine: APCLHCT1


Information

APCLHCT1 ; IHS/CMI/LAB - CONT OF APCLHCT 7/13/89 1:06 PM ;

Source Information

Source file <APCLHCT1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 COMMA^%DTC  ^DIR  
Kernel 1 $$REPEAT^XLFSTR  
Patient Care Component Reports 1 DONE^APCLOSUT  

Entry Points

Name Comments DBIA/ICR reference
HEAD
MAJTOT ;print major sort totals
HEAD1 ;
MINOR1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
START ;
DONE ;
C(X,X2,X3) ;
MAJTOT1
MINOR ;

External References

Name Field # of Occurrence
COMMA^%DTC C+1
DONE^APCLOSUT DONE+1
^DIR HEAD+1
$$REPEAT^XLFSTR HEAD1+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+8
Function Call: WRITE
  • Prompt: ?J,"-------"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !
  • Line Location: START+10
Function Call: WRITE
  • Prompt: ?12,"Total:",?24,$$C(APCL1,0,7),?31,$$C(APCL2,0,7),?38,$$C(APCL3,0,7),?45,$$C(APCL4,0,7),?52,$$C(APCL5,0,7),?59,$$C(APCL6,0,7),?66,$$C(APCL7,0,7),?73,$$C(APCL8,0,7),!
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !,$E(APCLMAJ,1,28)
  • Line Location: MINOR+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: APCLSUB=1
  • Line Location: MINOR+2
Function Call: WRITE
  • Prompt: !?1,$E(APCLMIN,1,20)
  • Line Location: MINOR1+7
Function Call: WRITE
  • Prompt: ?APCLT,$$C((@APCLVAR),0,7)
  • Line Location: MINOR1+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAJTOT+3
Function Call: WRITE
  • Prompt: ?J,"-------"
  • Line Location: MAJTOT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MAJTOT+5
Function Call: WRITE
  • Prompt: ?12,"Subtotal:"
  • Line Location: MAJTOT+7
Function Call: WRITE
  • Prompt: ?APCLI,$$C($P(^XTMP("APCLHCTR",APCLJOB,APCLBT,"SUBTOTAL",APCLMAJ),U,APCLP),0,7)
  • Line Location: MAJTOT1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: MAJTOT1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: $P(^DIC(4,DUZ(2),0),U),?60,APCLDTP,?72,"Page ",APCLPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !,"Inpatient Discharges and Days for ",$S(APCLIND=1:"Indian",1:"all")," Patients."
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,"Discharge Dates between ",APCLSDY," and ",APCLEDY,".",!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: "The report is sorted by ",$S(APCLSORT="C":"Community of Residence",APCLSORT="T":"Tribe of Membership",1:"Service Unit of Residence"),$S(APCLSUB=1:" and by ",1:".")
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,"A '*' after the Community name indicates a Non-Service Unit Community.",!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !,$S(APCLSORT="C":"Current Community of",APCLSORT="T":"Tribe of Membership",1:"Service Unit of Residence")
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: ?24,"# Adult",?32,"# Adult",?40,"# NB",?47,"# NB",?54,"# TX",?61,"# MCR",?68,"# MCD",?74,"# PI"
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !,$S(APCLSORT="C":" residence",1:""),?24,"/Peds",?32,"/Peds",?40,"Dsch",?47,"Days",?54,"IN"
  • Line Location: HEAD1+11
Function Call: WRITE
  • Prompt: !?24,"Dsch",?32,"Days"
  • Line Location: HEAD1+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: HEAD1+14
Routine Call
  • DIR
  • Line Location:
    • HEAD+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HEAD1+2, HEAD1+4
^XTMP("APCLHCT" START+4, DONE+2!, MINOR+3, MINOR1+2, MINOR1+3
^XTMP("APCLHCTR" DONE+2!, MINOR1+1*, MINOR1+2*, MAJTOT1

Label References

Name Line Occurrences
$$C START+11, MINOR1+7, MAJTOT1
$$CTR HEAD1+4
DONE START+5, START+6
HEAD START+2, START+6, MINOR+1, MINOR1+6
HEAD1 HEAD
MAJTOT MINOR+5
MAJTOT1 MAJTOT+2
MINOR START+4
MINOR1 MINOR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> APCL1 START+2*, START+11
>> APCL2 START+2*, START+11
>> APCL3 START+2*, START+11
>> APCL4 START+2*, START+11
>> APCL5 START+2*, START+11
>> APCL6 START+2*, START+11
>> APCL7 START+2*, START+11
>> APCL8 START+2*, START+11
>> APCL80D START+1*
>> APCLBT START+4, DONE+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1
>> APCLDTP HEAD1+2
>> APCLEDY HEAD1+5
>> APCLI MINOR1+2*, MINOR1+3*, MINOR1+4*, MINOR1+7*, MAJTOT1*
>> APCLIND HEAD1+3
>> APCLJOB START+4, DONE+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1
>> APCLLOC HEAD1+4
>> APCLMAJ START+3*, START+4*, MINOR+2, MINOR+3, MINOR1+1, MINOR1+2, MINOR1+3, MAJTOT1
>> APCLMIN MINOR+3*, MINOR1+2, MINOR1+3, MINOR1+7
>> APCLP MINOR1+3*, MAJTOT1*
>> APCLPG START+2*, HEAD, HEAD1+1*, HEAD1+2
APCLQUIT START+3!, START+4, START+5, START+6, MINOR+1, MINOR+3, MINOR+4, MINOR1+6, HEAD+1*
>> APCLSDY HEAD1+5
>> APCLSORT HEAD1+6, HEAD1+7, HEAD1+9, HEAD1+11, HEAD1+13
>> APCLSUB MINOR+1, MINOR+2, MINOR1+5, MAJTOT+2, HEAD1+6, HEAD1+7, HEAD1+13
>> APCLT MINOR1+7*
>> APCLVAR MINOR1+3*, MINOR1+7*
>> APCLVAR1 MINOR1+4*
>> APCLVAR2 MINOR1+4*
DIR HEAD+1!
DIR(0 HEAD+1*
>> DTOUT HEAD+1
DUZ(2 HEAD1+2
>> I START+4*
IO HEAD+1
IO(0 HEAD+1
IOF HEAD1+1
IOM CTR+1
IOSL START+6, MINOR+1, MINOR1+6
IOST HEAD+1
>> J START+9*, MAJTOT+4*
U MINOR1+2, MINOR1+3, MAJTOT1, HEAD1+2, HEAD1+4
X CTR~, CTR+1, C~, C+2, HEAD1+4*
X2 C~
X3 C~
Y CTR~, CTR+1, HEAD+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All