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

Package: Patient Care Component Reports

Routine: APCLDMSP


Information

APCLDMSP ; IHS/CMI/LAB - display dm ;

Source Information

Source file <APCLDMSP.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 $$FMTE^XLFDT  
Patient Care Component 1 EP2^APCHS9B1  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ZIS ;
HEAD1 ;
BROWSE ;
EOJ ;
S1 ;
S(Y,F,C,T) ;set up array
HEADER ;
USR() ;EP - Return name of current user from ^VA(200.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
EXIT ;
W ;write out array
CTR(X,Y) ;EP - Center X in a field Y wide.
PRINT ;
OUTPUT

External References

Name Field # of Occurrence
EP2^APCHS9B1 OUTPUT+3
^DIC EN+3
^DIR ZIS+1, HEADER+1
^XBDBQUE ZIS+6, BROWSE+2
^XBFMK EXIT+2
EN^XBVK EXIT+1
$$FMTE^XLFDT W+3, HEAD1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("*** Print Diabetes Patient Care Supplement ***"),!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+1
Function Call: WRITE
  • Prompt: !,"********** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" **********"
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !,"********** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" **********",!!
  • Line Location: HEAD1+2
Routine Call
  • DIC
  • Line Location:
    • EN+3
Routine Call
  • DIR
  • Line Location:
    • ZIS+1
    • HEADER+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LOC+1
^TMP("APCHS" S1+1*, S1+2*, OUTPUT+1!, W+4, W+6, EOJ+1!
^VA(200 - [#200] W+3, HEAD1+2, USR+1

Label References

Name Line Occurrences
$$CTR EN+2
BROWSE ZIS+4
EOJ W+9
EXIT EN+4, ZIS+2, ZIS+4, ZIS+7
HEADER W+5
S1 S+5, S+7, S+10

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% S+3~, S+8*, S+9*, S1+1*, S1+2, EOJ+3!
>> APCHSCVD OUTPUT*
>> APCHSPAT OUTPUT+2*
>> APCLOPT ZIS+3*
APCLQUIT W+2!, W+4, W+5, W+8, EOJ+2!, HEADER+1*
APCLSBEG EOJ+2!
APCLSDFN EOJ+2!
APCLSED EOJ+2!
>> APCLSQIT W+8*
APCLSTOB EOJ+2!
APCLSUPI EOJ+2!
APCLTOB EOJ+2!
APCLTOBN EOJ+2!
APCLX W+4*, W+6, EOJ+2!
APCLY EOJ+2!
B EOJ+3!
C S~, S+7, EOJ+3!
DA ZIS+1!
>> DFN EN+5*, OUTPUT+2, OUTPUT+3
>> DIC EN+3*
>> DIC(0 EN+3*
DIR ZIS+1!, HEADER+1!
DIR("A" ZIS+1*
DIR("B" ZIS+1*
DIR(0 ZIS+1*, HEADER+1*
>> DIRUT ZIS+2
DT W+3, HEAD1+2
>> DTOUT HEADER+1
DUZ W+3, HEAD1+2, USR+1
DUZ(2 LOC+1
E EOJ+3!
F S~, S+1*, S+5*, EOJ+3!
H EOJ+3!
IO HEADER+1
IO(0 HEADER+1
IOF EN+1, W+1, HEAD1+1
IOM CTR+1
IOSL W+5
IOST HEADER+1
L S+7*, EOJ+3!
N EOJ+3!
P EOJ+3!
T S~, S+2*, S+7*, S+8, S+9, EOJ+3!
U S1+1, W+3, HEAD1+2, USR+1, LOC+1
W EOJ+3!
X S+3~, S+5*, S+6*, S+8*, S+9*, S1+2, EOJ+3!, CTR~, CTR+1
>> XBIOP BROWSE+2*
>> XBNS ZIS+5*
>> XBRC ZIS+5*, BROWSE+2*
>> XBRP ZIS+5*, BROWSE+1*
>> XBRX ZIS+5*, BROWSE+2*
Y EN+4, EN+5, ZIS+3, ZIS+4, S~, S+6, S+7, S+9, EOJ+3!, HEADER+1
, CTR~, CTR+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All