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

Package: Patient Care Component Reports

Routine: APCLYV32


Information

APCLYV32 ; IHS/CMI/LAB - PRINT CLINIC VISITS ;

Source Information

Source file <APCLYV32.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS VA Utilities 2 $$VAL^XBDIQ1  $$PROVCLSC^XBFUNC1  
VA Fileman 2 EN^DIQ1  ^DIR  
DRG Grouper 1 ($$ICDDX,$$ICDOP)^ICDEX  
Patient Care Component Reports 1 DONE^APCLOSUT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To ADT 1 ADGCALLS  

Entry Points

Name Comments DBIA/ICR reference
POV
HEAD ;
SET ;
END ;
HD1
PRC
SET41 ;
TIME
TOTALS ;print totals
SET4 ;
SET5 ;
INIT ;
PRV
SET2 ;
SET3
PAGE ;form feed to new page
PRNT ;
FINAL ;
PRVJMP ;

External References

Name Field # of Occurrence
DONE^APCLOSUT END+1
EN^DIQ1 SET41+1
^DIR TOTALS+7, PAGE+2
$$ICDDX^ICDEX POV+6
$$ICDOP^ICDEX PRC+6
$$VAL^XBDIQ1 POV+7
$$PROVCLSC^XBFUNC1 PRV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No visits to report."
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !,$E(APCLNAME,1,13),?15,$J(APCLHRCN,6),?23,$J(APCLAGE,2)
  • Line Location: SET41+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRNT+2
Function Call: WRITE
  • Prompt: ?26,$E(APCLVDT,4,5),"/",$E(APCLVDT,6,7),"/",$E(APCLVDT,2,3)_" "_$E($P(APCLVDT,".",2)_"0000",1,4)
  • Line Location: PRNT+4
Function Call: WRITE
  • Prompt: ?41,$E(APCLCLSC,1,3)
  • Line Location: PRV+4
Function Call: WRITE
  • Prompt: ?41,APCLCLS
  • Line Location: PRV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: POV+8
Function Call: WRITE
  • Prompt: !
  • Line Location: POV+8
Function Call: WRITE
  • Prompt: ?45,APCLVPOV,?56,$E(APCLNAR,1,23)
  • Line Location: POV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRC+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRC+8
Function Call: WRITE
  • Prompt: ?45,APCLPRC,?56,$E(APCLNAR,1,23)
  • Line Location: PRC+10
Function Call: WRITE
  • Prompt: !!?39,"TOTAL PATIENTS: ",APCLPGRD
  • Line Location: FINAL+3
Function Call: WRITE
  • Prompt: !!?41,"TOTAL VISITS: ",APCLVGRA
  • Line Location: FINAL+4
Function Call: WRITE
  • Prompt: !!?28,"TOTAL PATIENTS FOR CLINIC: ",APCLPTOT
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !!?30,"TOTAL VISITS FOR CLINIC: ",APCLVTOT
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTALS+7
Function Call: WRITE
  • Prompt: !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?70,"Page ",APCLPAGE
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: ?(80-$L(X)/2),X
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HD1+0
Function Call: WRITE
  • Prompt: ?28,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",$E(APCLBD,2,3)
  • Line Location: HD1+1
Function Call: WRITE
  • Prompt: " to ",$E(APCLED,4,5),"/",$E(APCLED,6,7),"/",$E(APCLED,2,3)
  • Line Location: HD1+2
Function Call: WRITE
  • Prompt: !!,"NAME",?16,"HRCN",?22,"AGE",?27,"VISIT DATE",?41,"PRV",?46,"ICD",?56,"PROV NARRATIVE",!
  • Line Location: HD1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Routine Call
  • DIR
  • Line Location:
    • TOTALS+7
    • PAGE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] SET4+3, SET4+4
^AUPNVPOV - [#9000010.07] POV+2
^AUPNVPOV("AD" POV
^AUPNVPRC - [#9000010.08] PRC+2
^AUPNVPRC("AD" PRC
^AUPNVPRV - [#9000010.06] PRV+2, PRV+3
^AUPNVPRV("AD" PRV
^AUTNPOV - [#9999999.27] PRC+7
^DD("DD" HD1
^DD(9000010.06 PRV+4
^DIC(4 - [#4] HEAD+2
^DIC(40.7 - [#40.7] HEAD+7
^DIC(6 - [#6] PRV+5
^DIC(7 - [#7] PRV+6
^UTILITY("DIQ1" SET41+1!, SET41+2!
^VA(200 - [#200] HEAD+3
^XTMP("APCLYV3" INIT+2, SET+2, END+2!, SET2+2, SET3, SET41+6, SET5+1

Label References

Name Line Occurrences
END INIT+2, SET+3
FINAL SET+4
HD1 HEAD+5, HEAD+6
HEAD INIT+2, SET2+1, FINAL+2, PAGE+1, PAGE+3
PAGE SET41+3, PRNT+2, POV+8, PRC+8, TOTALS+1
POV PRV+1, POV+2, POV+11
PRC POV+1, PRC+2, PRC+11
PRNT SET5+1
PRV PRV+2
PRVJMP PRV+4
SET2 SET+2
SET3 SET2+2
SET4 SET3
SET41 SET4+3
SET5 SET41+6
TIME HEAD+4
TOTALS SET2+4

Naked Globals

Name Field # of Occurrence
^(0 SET4+4, PRV+2, POV+2, PRC+2, PRC+7, HEAD+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%A TIME~, TIME+1*, TIME+2, TIME+3!
%B TIME~, TIME+1*, TIME+3!
%C TIME~, TIME+2*, TIME+3!
>> APCLAGE SET41+2*, SET41+4
>> APCLBD HD1+1
>> APCLBT INIT+2, SET+2, END+2, SET2+2, SET3, SET41+6, SET5+1
>> APCLCL FINAL+1
>> APCLCLS PRV+6*, PRV+7
>> APCLCLSC PRV+4*
>> APCLCLX SET+1*, SET+2*, SET2+2, SET3, SET41+6, SET5+1, HEAD+5, HEAD+6, HEAD+7
>> APCLDFN SET2+2*, SET3*, SET4+3, SET4+4, SET41+1, SET41+2, SET41+6, SET5+1
>> APCLED HD1+2
>> APCLFPV PRNT+3*, POV+8, POV+9*, PRC+8, PRC+9*
>> APCLFVS SET4+1*, PRNT+2, PRNT+3*
>> APCLHRCN SET4+3*, SET4+4*, SET41+4
>> APCLJOB INIT+2, SET+2, END+2, SET2+2, SET3, SET41+6, SET5+1
>> APCLLOC SET4+3
>> APCLNAME SET2+1*, SET2+2*, SET3, SET41+4, SET41+6, SET5+1
>> APCLNAR POV+4*, POV+7*, POV+10, PRC+4*, PRC+7*, PRC+10
>> APCLPAGE INIT+1*, HEAD+2*, HEAD+3
>> APCLPGRD INIT+3*, FINAL+3, TOTALS+4*
>> APCLPRC PRC+4*, PRC+6*, PRC+10
>> APCLPRV PRNT+6*, PRV*, PRV+1, PRV+2, PRV+3
>> APCLPS POV+3*, PRC+3*
>> APCLPTOT SET2+1*, SET4+2*, TOTALS+2, TOTALS+4
>> APCLPV PRV+1*, PRVJMP+1*, POV*, POV+1, POV+2, POV+7
>> APCLSTOP INIT+1*, SET+2, SET+3, SET2+2, SET2+3, SET3, SET41+3, SET5+1, PRNT+2, POV+8
, PRC+8, TOTALS+7*, PAGE+2*, PAGE+3
>> APCLSTR POV+2*, POV+3, POV+4, PRC+2*, PRC+3, PRC+4
>> APCLVDFN SET41+6*, SET5+1*, PRV, POV, PRC
>> APCLVDT SET4+1*, SET41+6*, SET5+1, PRNT+4
>> APCLVGRA INIT+3*, FINAL+4, TOTALS+4*
>> APCLVPOV POV+4*, POV+6*, POV+10
>> APCLVPRC POV+1*, PRC*, PRC+1, PRC+2
>> APCLVRV POV+3*, PRC+3*
>> APCLVTOT SET2+1*, PRNT+1*, TOTALS+3, TOTALS+4
>> DA SET41+1*
>> DIC SET41+1*
DIR TOTALS+7!, PAGE+2!
DIR(0 TOTALS+7*, PAGE+2*
>> DIRUT TOTALS+7
>> DR SET41+1*
DT HD1
>> DTOUT PAGE+2
DUZ HEAD+3
DUZ(2 SET4+4, HEAD+2
IO TOTALS+7, PAGE+2
IO(0 TOTALS+7, PAGE+2
IOF HEAD+1
IOSL SET41+3, PRNT+2, POV+8, PRC+8, TOTALS+1
IOST TOTALS+5, TOTALS+7, PAGE+1, PAGE+2
U SET4+3, SET4+4, PRV+4
>> X PRV+3*, PRV+4, PRV+5*, PRV+6, HEAD+2*, HEAD+3, HEAD+4*, HEAD+5*, HEAD+6*, HEAD+7*
, TIME, TIME+1
>> Y HEAD+4, HD1*, PAGE+2, TIME*, TIME+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All