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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCHPRE

Package: Patient Care Component

Routine: APCHPRE


Information

APCHPRE ;IHS/CMI/GRL Patient Health Summary - Pre Visit[ 02/11/2005 11:05 PM ]

Source Information

Source file <APCHPRE.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Patient Care Component 1 EP^APCHPRE1  
Patient Care Component Reports 1 $$START1^APCLDF  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCHPAT  

Entry Points

Name Comments DBIA/ICR reference
SDEP ;entry point from Scheduling Package with DFN defined
EN ;
ZIS ;
HEAD1 ;
BROWSE ;
EOJ ;
S1 ;
V2(P,EDATE) ;
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
EP^APCHPRE1 OUTPUT+3
$$START1^APCLDF V2+5
^DIC EN+4
^DIR ZIS+1, HEADER+1
^XBDBQUE ZIS+6, BROWSE+2, SDEP+8
^XBFMK EXIT+2
EN^XBVK EXIT+1
$$FMADD^XLFDT V2+2
$$FMTE^XLFDT W+3, HEAD1+2, SDEP+3, V2+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("*** Print Patient Medical Handout ***"),!!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+1
Function Call: WRITE
  • Prompt: !,"********** Patient Medical Handout ********** ["_$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
Function Call: WRITE
  • Prompt: !!,"Do you wish to print a Patient Medical Handout to give to the patient?"
  • Line Location: SDEP+5
Function Call: WRITE
  • Prompt: !,"If so, enter the device to print the handout on, otherwise enter a '^'."
  • Line Location: SDEP+6
Routine Call
  • DIC
  • Line Location:
    • EN+4
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)
^APCCCTRL - [#9001000] SDEP+2
^ATXAX - [#9002226] V2+16
^ATXAX("B" V2+13
^AUPNVSIT - [#9000010] V2+8, V2+9, V2+10, V2+11, V2+12, V2+14
^AUPNVSIT("AC" V2+3
^DIC(4 - [#4] LOC+1
^SD(409.66 - [#409.66] SDEP+4
^TMP("APCH" OUTPUT+1!
^TMP("APCHPHS" S1+1*, S1+2*, W+4, W+6, EOJ+1!
^TMP($J V2+4!, V2+6, V2+7
^VA(200 - [#200] W+3, HEAD1+2, USR+1

Label References

Name Line Occurrences
$$CTR EN+3
$$V2 SDEP+3
BROWSE ZIS+4
EOJ W+9
EXIT EN+5, 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+6!
A V2+1~, V2+5*
APCHBDAT V2+1~, V2+2*, V2+5
APCHC EOJ+5!
APCHCOLO EOJ+3!
APCHI EOJ+4!
APCHICTR EOJ+4!
APCHIMDU EOJ+4!
APCHIMM EOJ+4!
APCHIMMN EOJ+4!
APCHIMMT EOJ+4!
APCHLBE EOJ+3!
APCHLCOL EOJ+3!
APCHLDRE EOJ+4!
APCHLFGD EOJ+3!
APCHLFGV EOJ+3!
APCHLFOB EOJ+3!
APCHLGLD EOJ+3!
APCHLGLV EOJ+3!
APCHLSIG EOJ+3!
APCHMND EOJ+4!
APCHMNV EOJ+4!
APCHOPT ZIS+3*, EOJ+5!
APCHPND EOJ+4!
APCHPNV EOJ+4!
APCHQUIT W+2!, W+4, W+5, W+8, EOJ+2!, HEADER+1*
APCHSBEG EOJ+2!
APCHSCRN EOJ+3!
APCHSCVD OUTPUT*, EOJ+5!
APCHSDFN EOJ+2!
APCHSED EOJ+2!
APCHSPAT OUTPUT+2*, EOJ+2!
>> APCHSQIT W+8*
APCHSTOB EOJ+2!
APCHSUPI EOJ+2!
APCHTOB EOJ+2!
APCHTOBN EOJ+2!
APCHX W+4*, W+6, EOJ+2!
APCHY EOJ+2!
B EOJ+6!, V2+1~, V2+5*
C S~, S+7, EOJ+6!, V2+1~, V2+14*, V2+15, V2+16
DA ZIS+1!
>> DFN EN+6*, OUTPUT+2, OUTPUT+3, SDEP+3
DIC EN+4!*
DIC(0 EN+4*
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, SDEP+3, V2+2
>> DTOUT HEADER+1
DUZ W+3, HEAD1+2, USR+1
DUZ(2 LOC+1, SDEP+2, V2+12
E EOJ+6!, V2+5*
EDATE V2~, V2+5
F S~, S+1*, S+5*, EOJ+6!
G V2+1~, V2+7*, V2+17*, V2+19
H EOJ+6!
IO HEADER+1
IO(0 HEADER+1
IOF EN+2, W+1, HEAD1+1
IOM CTR+1
IOSL W+5
IOST HEADER+1
L S+7*, EOJ+6!
N EOJ+6!
P EOJ+6!, V2~, V2+3, V2+5
>> SDAMEVT SDEP+4
T S~, S+2*, S+7*, S+8, S+9, EOJ+6!, V2+13*, V2+16
U S1+1, W+3, HEAD1+2, USR+1, LOC+1, SDEP+2, SDEP+4, V2+7, V2+9, V2+10
, V2+11, V2+12, V2+14
V V2+1~, V2+7*, V2+8, V2+9, V2+10, V2+11, V2+12, V2+14
W EOJ+6!
X S+3~, S+5*, S+6*, S+8*, S+9*, S1+2, EOJ+6!, CTR~, CTR+1, V2+1~
, V2+7*
>> XBIOP BROWSE+2*
>> XBNS ZIS+5*, SDEP+7*
>> XBRC ZIS+5*, BROWSE+2*, SDEP+7*
>> XBRP ZIS+5*, BROWSE+1*, SDEP+7*
>> XBRX ZIS+5*, BROWSE+2*, SDEP+7*
Y EN+5, EN+6, ZIS+3, ZIS+4, S~, S+6, S+7, S+9, EOJ+6!, HEADER+1
, CTR~, CTR+1
Info |  Source |  Call Graph |  Caller 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