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: APCLYV52

Package: Patient Care Component Reports

Routine: APCLYV52


Information

APCLYV52 ; IHS/CMI/LAB - PRINT INPATIENT VISITS ;

Source Information

Source file <APCLYV52.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  

Entry Points

Name Comments DBIA/ICR reference
SET21
SET ;
END ;
PRV1
PRC
POV
TIME
HEAD ;
PAGE ;
INIT ;initialize variables
PRV
SET1
SET2
SET3
FINAL ;

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Hospitaliations to report."
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: !,$E(APCLNAME,1,15),?16,$J(APCLHRCN,6),?24,$J(APCLAGE,2)
  • Line Location: SET21+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SET3+2
Function Call: WRITE
  • Prompt: ?27,$E(APCLVDT,4,5),"/",$E(APCLVDT,6,7),"/",$E(APCLVDT,2,3)
  • Line Location: SET3+4
Function Call: WRITE
  • Prompt: "-",$E(APCLDDT,4,5),"/",$E(APCLDDT,6,7),"/",$E(APCLDDT,2,3)
  • Line Location: SET3+5
Function Call: WRITE
  • Prompt: ?46,APCLCLS
  • Line Location: PRV1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: POV+7
Function Call: WRITE
  • Prompt: !
  • Line Location: POV+7
Function Call: WRITE
  • Prompt: ?51,APCLVPOV,?61,$E(APCLNAR,1,18)
  • Line Location: POV+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRC+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRC+8
Function Call: WRITE
  • Prompt: ?51,APCLPRC,?61,$E(APCLNAR,1,18)
  • Line Location: PRC+10
Function Call: WRITE
  • Prompt: !!?39,"TOTAL PATIENTS: ",APCLPTOT
  • Line Location: FINAL+2
Function Call: WRITE
  • Prompt: !!?41,"TOTAL VISITS: ",APCLVTOT
  • Line Location: FINAL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FINAL+4
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,?27,"HOSPITALIZATION ",APCLTITL
  • Line Location: HEAD+4
Function Call: WRITE
  • Prompt: !,Y
  • Line Location: HEAD+5
Function Call: WRITE
  • Prompt: ?26,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",(1700+$E(APCLBD,1,3))
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: " to ",$E(APCLED,4,5),"/",$E(APCLED,6,7),"/",(1700+$E(APCLED,1,3))
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !?(80-(22+APCLLENG)/2),$S(APCLSV=0:"ALL",1:$P(^DIC(45.7,APCLSV,0),U))," TREATING SPECIALT"_$S(APCLSV=0:"IES",1:"Y")
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !!,"NAME",?17,"HRCN",?23,"AGE",?28,"VISIT DATES",?46,"PRV",?51,"ICD",?61,"PROV NARRATIVE",!
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Routine Call
  • DIR
  • Line Location:
    • FINAL+4
    • PAGE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] SET2+4, SET2+5
^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" HEAD+5
^DIC(4 - [#4] HEAD+2
^DIC(45.7 - [#45.7] HEAD+8, HEAD+9
^DPT - [#2] SET21+1
^UTILITY("DIQ1" SET21!, SET21+2!
^VA(200 - [#200] HEAD+3
^XTMP("APCLYV5" INIT+1, SET1, SET2, SET3, END+6!

Label References

Name Line Occurrences
END INIT+1, SET21+3, SET3+2, POV+7, PRC+8, FINAL+4
FINAL SET1
HEAD INIT+1, SET+1, PAGE+1, PAGE+3
PAGE SET21+3, SET3+2, POV+7, PRC+8, FINAL+1
POV PRV+1, POV+2, POV+10
PRC POV+1, PRC+2, PRC+11
PRV PRV+2
SET1 SET2
SET2 SET3
SET21 SET2+4
SET3 PRC+1
TIME HEAD+4

Naked Globals

Name Field # of Occurrence
^( SET3
^(0 SET2+5, PRV+2, POV+2, PRC+2, PRC+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!
%DT END+2!
%T END+2!
%Y END+2!
A END+3!
APCL65 END+2!
APCLAGE SET21+2*, SET21+4, END+2!
APCLBD END+2!, HEAD+6
APCLBICD END+5!
>> APCLBTH INIT+1, SET1, SET2, SET3, END+6
APCLCLS PRV+4*, PRV1, END+2!
APCLDDT SET2+1*, SET3*, SET3+5, END+2!
APCLDFN SET1*, SET2*, SET2+4, SET2+5, SET21, SET21+1, SET21+2, SET3, END+2!
APCLED END+2!, HEAD+7
APCLEICD END+5!
APCLFLG END+5!
APCLFPV SET3+3*, POV+7, POV+8*, PRC+8, PRC+9*, END+2!
APCLFVS SET2+1*, SET3+2, SET3+3*, END+2!
>> APCLHRCN SET2+4*, SET2+5*, SET21+4
APCLICD END+5!
APCLIDFN END+2!
APCLIOM END+2!
>> APCLJOB INIT+1, SET1, SET2, SET3, END+6
>> APCLLENG HEAD+8*, HEAD+9
APCLLOC SET2+4, END+5!, HEAD+2
APCLMCR END+2!
APCLNAME SET21+1*, SET21+4, END+2!
APCLNAR POV+4*, POV+6*, POV+9, PRC+4*, PRC+7*, PRC+10, END+3!
APCLPAGE INIT+1*, INIT+2*, END+5!, HEAD+2*, HEAD+3
APCLPRC PRC+4*, PRC+6*, PRC+10, END+3!, END+5!
APCLPRV SET3+8*, PRV*, PRV+1, PRV+2, PRV+3, END+3!
APCLPS POV+3*, PRC+3*, END+3!
APCLPTOT INIT+3*, SET2+3*, FINAL+2, END+3!
APCLPV PRV+1*, PRV1+2*, POV*, POV+1, POV+2, POV+6, END+3!, END+5!
APCLSORT SET+1*, SET1*, SET2, SET3, END+3!
APCLSTOP INIT+2*, SET21+3, SET3+2, POV+7, PRC+8, FINAL+4*, END+4!, PAGE+2*, PAGE+3
APCLSTR POV+2*, POV+3, POV+4, PRC+2*, PRC+3, PRC+4, END+3!
>> APCLSV HEAD+8, HEAD+9
>> APCLTITL HEAD+4
APCLVDFN SET3*, PRV, POV, PRC, END+4!
APCLVDT SET3*, SET3+4, END+4!
APCLVPOV POV+4*, POV+5*, POV+9, END+4!
APCLVPRC POV+1*, PRC*, PRC+1, PRC+2, END+4!
APCLVRV POV+3*, PRC+3*, END+4!
APCLVTOT INIT+3*, SET3+1*, FINAL+3, END+4!, END+5!
DA SET21*, END+2!
>> DIC SET21*
DIR FINAL+4!, PAGE+2!
DIR(0 FINAL+4*, PAGE+2*
>> DR SET21*
DT HEAD+5
>> DTOUT FINAL+4, PAGE+2
DUZ HEAD+3
DUZ(2 SET2+5
G END+2!
IO FINAL+4, PAGE+2
IO(0 FINAL+4, PAGE+2
IOF HEAD+1
IOSL SET21+3, SET3+2, POV+7, PRC+8, FINAL+1
IOST FINAL+4, PAGE+1, PAGE+2
POP END+2!
U SET2+4, SET2+5, SET21+1, HEAD+8, HEAD+9
>> X PRV+3*, PRV+4, HEAD+2*, HEAD+3, HEAD+4*, TIME, TIME+1
Y FINAL+4, END+4!, HEAD+4, HEAD+5*, PAGE+2, TIME*, TIME+3*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All