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

Package: Patient Care Component

Routine: APCDLES1


Information

APCDLES1 ; IHS/CMI/LAB - SUICIDE FORM PART 2 ;

Source Information

Source file <APCDLES1.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  $$EXTSET^XBFUNC  
VA Fileman 3 ^DIC  ^DIR  ^DIWP  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Patient Care Component 2 APCDLESF  APCDSFR  
iCare 1 BQIBHSFP  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ZIS ;
PRINT ;
HEADER ;
BROWSE ;
EOJ ;
S1 ;
EP(APCDSF) ;EP - when form is known
USR() ;EP - Return name of current user from ^VA(200.
DRUG ;
WPS ;
CTR(X,Y) ;EP - Center X in a field Y wide.
MET ;
HEAD1 ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
EXIT ;
S(Y,F,C,T) ;set up array
W ;write out array
SETARRAY ;set up array containing dm care summary
WP ;
EP2(APCDSF) ;PEP - CALLED BY ICARE

External References

Name Field # of Occurrence
^DIC EN+3
^DIR ZIS+1, HEADER+1
^DIWP WP+4
^XBDBQUE ZIS+6, BROWSE+2
$$VAL^XBDIQ1 SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+12
, SETARRAY+13, SETARRAY+14, MET+15, DRUG+1, DRUG+7, DRUG+8, DRUG+12, DRUG+13
^XBFMK EXIT+3
$$EXTSET^XBFUNC MET+1
$$FMTE^XLFDT SETARRAY+1, W+3, HEAD1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("*** Print Suicide Form ***"),!!
  • 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)
^AMHPSUIC - [#9002011.65] EP2+2, SETARRAY+13, MET+1, MET+2, MET+3, MET+4, DRUG+2, DRUG+4, DRUG+5, DRUG+6
, DRUG+8, DRUG+11, DRUG+13, WP+3, WP+4
^AMHTSCF - [#9002014.9] DRUG+11
^AMHTSDRG - [#9002014.7] MET+4
^AMHTSSU - [#9002014.71] DRUG+5
^DIC(4 - [#4] LOC+1
^TMP("APCDS" EP2+3!, EP2+4*, S1+1*, S1+2*, PRINT+1!, W+4, W+6, EOJ+1!
^UTILITY($J WP+1!, WPS+1, WPS+3!
^VA(200 - [#200] W+3, HEAD1+2, USR+1

Label References

Name Line Occurrences
$$CTR EN+2
BROWSE ZIS+4
EOJ W+9
EP EN+7
EP2 PRINT+2
EXIT EN+4, EN+8, ZIS+2, ZIS+4, ZIS+7
HEADER W+5
S SETARRAY+1, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10
, SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+6, MET+9, MET+14, MET+15, DRUG+1, DRUG+5, DRUG+6
, DRUG+7, DRUG+8, DRUG+10, DRUG+11, DRUG+12, DRUG+13, DRUG+16, WPS+1
S1 S+5, S+7, S+10
SETARRAY EP2+5

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+8*, S+9*, S1+1*, S1+2, EOJ+3!
A EP2+1~, MET+3*, MET+4, MET+8*, MET+13*, DRUG+5*
APCDO EXIT+1!, EP2+1~, MET+1!, MET+7, EOJ+2!
APCDO( MET+2*, MET+8
APCDOD EXIT+1!, EP2+1~, MET+1!, MET+10, EOJ+2!
APCDOD( MET+4*, MET+12, MET+13
APCDOPT ZIS+3*, EXIT+1!, EOJ+2!
APCDQUIT EXIT+1!, W+2!, W+4, W+5, W+8, EOJ+2!, HEADER+1*
APCDSBEG EOJ+2!
APCDSED EOJ+2!
APCDSF EP~, EXIT+1!, EP2~, EP2+2, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7
, SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14, MET+1, MET+2, MET+3, MET+4
, MET+15, DRUG+1, DRUG+2, DRUG+4, DRUG+5, DRUG+6, DRUG+7, DRUG+8, DRUG+11, DRUG+12
, DRUG+13, WP+3, WP+4, PRINT+2, EOJ+2!
APCDSQIT EXIT+1!, W+8*, EOJ+2!
APCDSTOB EOJ+2!
APCDSUPI EOJ+2!
APCDTOB EOJ+2!
APCDTOBN EOJ+2!
APCDX EXIT+1!, EP2+1~, WP+2*, WP+3*, WP+4, WPS+3!, W+4*, W+6, EOJ+2!
APCDY EOJ+2!
B EOJ+3!
C S~, S+7, EOJ+3!
DA ZIS+1!
DFN EN+5*, EN+7, EP2+1~, EP2+2*
>> 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
DIWF EP2+1~, WPS+2!
DIWL EP2+1~, WP+3*, WPS+1, WPS+2!
DIWR EP2+1~, WP+3*, WPS+2!
DT SETARRAY+1, W+3, HEAD1+2
>> DTOUT HEADER+1
DUZ W+3, HEAD1+2, USR+1
DUZ(2 LOC+1
E EOJ+3!
F S~, S+2*, 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+1~, S+7*, EOJ+3!
N EOJ+3!
P EOJ+3!
T S~, S+3*, S+7*, S+8, S+9, EOJ+3!
U EP2+2, SETARRAY+13, MET+1, MET+2, MET+4, DRUG+2, DRUG+5, DRUG+6, DRUG+8, DRUG+11
, DRUG+13, S1+1, W+3, HEAD1+2, USR+1, LOC+1
W EOJ+3!
X EP2+1~, SETARRAY+1*, SETARRAY+2*, SETARRAY+3*, SETARRAY+4*, SETARRAY+5*, SETARRAY+6*, SETARRAY+7*, SETARRAY+8*, SETARRAY+9*
, SETARRAY+10*, SETARRAY+12*, SETARRAY+13*, SETARRAY+14*, MET+6*, MET+7*, MET+8*, MET+9, MET+11*, MET+13*
, MET+14, MET+15*, DRUG+1*, DRUG+3*, DRUG+5*, DRUG+6*, DRUG+7*, DRUG+8*, DRUG+10*, DRUG+11*
, DRUG+12*, DRUG+13*, DRUG+16*, WP+4*, WPS+1*, S+1~, S+5*, S+6*, S+8*, S+9*
, S1+2, EOJ+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, EP2+1~, MET+1*, MET+6, MET+12*, MET+13, DRUG+4*
, DRUG+5, DRUG+6, S~, S+6, S+7, S+9, EOJ+2!, EOJ+3!, HEADER+1, CTR~
, CTR+1
Z EP2+1~, MET+1*, MET+2, MET+3, MET+4, DRUG+11*, WPS+1*, WPS+2!, EOJ+2!
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