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

Package: Patient Care Component Reports

Routine: APCLYV12


Information

APCLYV12 ; IHS/CMI/LAB - CO VISITS REPORT (PRINT) ;

Source Information

Source file <APCLYV12.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^%DTC  ^DIR  
Patient Care Component Reports 1 DONE^APCLOSUT  

Entry Points

Name Comments DBIA/ICR reference
P2
P3
HEAD ;print page heading
P1
END ;
P4
P5
PRV9
TOTALS ;print visit totals
WRITE ;print line
INIT ;
PRVTINS ;does patient have co dep info in prvt ins file?
PRINT ;
MAIN
PAGE ;form feed to new page

External References

Name Field # of Occurrence
^%DTC WRITE+8
DONE^APCLOSUT END+1
^DIR PAGE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No visits to report"
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: ?97,X
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: ?110,X
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: ?123,X
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !?132-$L(APCLFAC)/2,APCLFAC
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !?45,"COMMISSIONED OFFICERS & DEPENDENTS VISITS"
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !?55,APCLBD," to ",APCLED
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !?132-$L(X)/2,X,!
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,"Patient Name",?23,"Chart #",?36,"SSN",?45,"CO or Dep"
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: ?58,"Sponsor",?80,"SSN"
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: ?97,$S(APCLII="I":"Admit Date",1:"Visit Date")
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: ?110,$S(APCLII="I":"Dsch Date",1:"No. of Visits")
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: ?122,"# of Days"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: ?58,$P(APCLSTR1,"^",4)
  • Line Location: PRVTINS+4
Function Call: WRITE
  • Prompt: ?80,$E(X,1,3),"-",$E(X,4,5),"-",$E(X,6,9)
  • Line Location: PRVTINS+5
Function Call: WRITE
  • Prompt: !!?80,"TOTAL OUTPATIENT VISITS:",?112,$J(APCLTOT,3)
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !!?95,"TOTAL INPATIENT DAYS:",?121,$J(APCLTOT,3)
  • Line Location: TOTALS+4
Function Call: WRITE
  • Prompt: !!?80,"TOTAL DENTAL VISITS:",?112,$J(APCLTOT,3)
  • Line Location: TOTALS+5
Function Call: READ
  • Prompt: "Enter <return> to continue or '^' to stop"
  • Formatting: !!
  • Timeout: DTIME
  • Variable: APCLSTOP
  • Line Location: TOTALS+7
Routine Call
  • DIR
  • Line Location:
    • PAGE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" INIT+4
^AUPNPRVT - [#9000006] PRVTINS+4
^AUPNPRVT("I" PRVTINS+3
^AUTNINS("B" INIT+7, INIT+8
^AUTTBEN - [#9999999.25] P5+2
^DIC(4 - [#4] INIT+1
^DPT - [#2] P5+5
^XTMP("APCLYV1" INIT+2, END+4!, P1, P2, P3, P4, P5

Label References

Name Line Occurrences
END INIT+2, MAIN, MAIN+1
HEAD INIT+2, PRINT+1, P5+3, PAGE+1, PAGE+3
P1 P2
P2 P3
P3 P4
P4 P5
P5 WRITE+6, WRITE+9
PAGE WRITE+1, TOTALS+2
PRINT MAIN, MAIN+1, MAIN+2
PRV9 PRVTINS+1, PRVTINS+2, PRVTINS+3
PRVTINS WRITE+4
TOTALS MAIN, MAIN+1, MAIN+2, P5+3

Naked Globals

Name Field # of Occurrence
^( P5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCLBD INIT+5*, END+2!, HEAD+4
APCLBEN END+2!, PRINT+1*, P1*, P2, P3, P4, P5, P5+2
APCLBENP END+3!, P5+2*, P5+3, P5+4*, WRITE+2, PRVTINS+2
>> APCLBT INIT+2, END+4, P1, P2, P3, P4, P5
APCLCFLG END+3!, P5+2*, P5+3!
APCLCHMP INIT+7*, INIT+8*, END+2!, PRVTINS+1, PRVTINS+3
APCLDEN MAIN+2, END+4!
APCLDSCH END+3!, P5+1*, WRITE+7, WRITE+8
APCLED INIT+6*, END+2!, HEAD+4
APCLFAC INIT+1*, END+3!, HEAD+2
APCLHRCN END+2!, P5+1*, WRITE+2
APCLIDFN END+3!
APCLII MAIN*, MAIN+1*, MAIN+2*, END+2!, P1, P2, P3, P4, P5, P5+1
, WRITE+3, WRITE+6, HEAD+5, HEAD+10, HEAD+11, HEAD+12, TOTALS+3, TOTALS+4, TOTALS+5
APCLIP MAIN+1, END+3!
>> APCLJOB INIT+2, END+4, P1, P2, P3, P4, P5
APCLNAME END+2!, P1*, P2*, P3, P4, P5, WRITE+2
APCLOP MAIN, END+3!
APCLPAT END+2!, P2*, P3*, P4, P5, P5+5, PRVTINS+3, PRVTINS+4
APCLRET END+2!
APCLRETD END+2!
APCLSSN END+3!, P5+5*, P5+6*, WRITE+2
APCLSTOP INIT+3*, MAIN, MAIN+1, END+2!, WRITE+1, PAGE+2*, TOTALS+1, TOTALS+7*
APCLSTR END+3!, P5*, P5+1
>> APCLSTR1 PRVTINS+4*, PRVTINS+5
APCLSUB END+2!, P2*, P3, WRITE+2, WRITE+3, WRITE+6*
APCLTOT INIT+3*, END+2!, WRITE+6*, WRITE+9*, TOTALS+3, TOTALS+4, TOTALS+5, TOTALS+6*
APCLVDFN END+3!, P4*, P5*
APCLVDT END+3!, P3+2*, P4*, P5, WRITE+5, WRITE+8
DIR PAGE+2!
DIR(0 PAGE+2*
DTIME TOTALS+7
>> DTOUT PAGE+2
DUZ(2 INIT+1
>> INS PRVTINS+3*, PRVTINS+4
IO PAGE+2
IO(0 PAGE+2
IOF HEAD+1
IOSL WRITE+1, TOTALS+2
IOST PAGE+1, PAGE+2, TOTALS+7
J END+3!, HEAD+7*, HEAD+13*
X INIT+4*, END+3!, WRITE+5*, WRITE+7*, WRITE+8*, WRITE+9, HEAD+5*, HEAD+6, PRVTINS+5*
>> X1 WRITE+8*
>> X2 WRITE+8*
Y END+2!, PAGE+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All