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 |  Marked Items |  All
Print Page as PDF
Routine: APCHPWHG

Package: Patient Care Component

Routine: APCHPWHG


Information

APCHPWHG ; IHS/CMI/LAB - PCC HEALTH SUMMARY ;

Source Information

Source file <APCHPWHG.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  ^XBFMK  EN^XBNEW  EN^XBVK  
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Kernel 1 ($$FMTE,$$NOW)^XLFDT  
Patient Care Component 1 EP^APCHPWH1  
Registration 1 (CLEAR,FULL)^VALM1  
iCare 1 LOG^BQINOTR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Patient Care Component 2 APCHPMH  APCHPWHT  
IHS Changes To Pharmacy 1 APSPNE4  
IHS Changes To Scheduling 1 BSDROUT  
IHS RPMS CHR System 1 BCHRPWH  

Entry Points

Name Comments DBIA/ICR reference
EN ;
EXIT1 ;
ZIS ;EP
HEAD1 ;
HEADER ;
BROWSE ;
EOJ ;
EHR(DFN,APCHPWHT)
W ;write out array
SELTYP ;
USR() ;EP - Return name of current user from ^VA(200.
LOC() ;EP - Return location name from file 4 based on DUZ(2).
EXIT ;
EN1(APCHPWHT) ;EP
ENCOMP ;EP
CTR(X,Y) ;EP - Center X in a field Y wide.
PRINT ;EP
SELPT ;
UPDDEF ;EP - called from option to update default PWH for the site
EN2(APCHPWHT,P) ;EP
UPDLOG(P,T,D) ;EP - update pwh log

External References

Name Field # of Occurrence
EP^APCHPWH1 PRINT+4
LOG^BQINOTR UPDLOG+3
^DIC SELTYP+8, SELPT+3, UPDDEF+4
FILE^DICN UPDLOG+8
^DIE UPDDEF+6
^DIR ZIS+1, W+14, HEADER+2
CLEAR^VALM1 EXIT1+1
FULL^VALM1 EXIT1+2
^XBDBQUE ZIS+6, BROWSE+2
^XBFMK SELTYP+2, EXIT+3, EXIT1+4, EOJ+5, UPDLOG+9, UPDDEF+7
EN^XBNEW EHR+3
EN^XBVK EXIT+1, EOJ+3, EOJ+4
$$FMTE^XLFDT HEAD1+3, HEAD1+4
$$NOW^XLFDT UPDLOG+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("*** Patient Wellness Handout ***"),!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPT+1
Function Call: WRITE
  • Prompt: !,"Warning: This handout is designed for patients 18 and older. This",!,"patient is under 18. Please select a different patient."
  • Line Location: SELPT+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: W+14
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,"My Wellness Handout",?45,"Report Date: ",$$FMTE^XLFDT(DT),?72,"Page: ",APCHPG,!,$TR($J("",(IOM-2))," ","-"),!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: "********** CONFIDENTIAL PATIENT INFORMATION ["_$P(^VA(200,DUZ,0),U,2)_"] "_$$FMTE^XLFDT(DT)_" **********",!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !!,"This option is used to set the default Patient Wellness Handout"
  • Line Location: UPDDEF+1
Function Call: WRITE
  • Prompt: !,"for a site."
  • Line Location: UPDDEF+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: UPDDEF+3
Routine Call
  • DIE
  • Line Location:
    • UPDDEF+6
Routine Call
  • DIC
  • Line Location:
    • SELTYP+8
    • SELPT+3
    • UPDDEF+4
Routine Call
  • DIR
  • Line Location:
    • ZIS+1
    • W+14
    • HEADER+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCCCTRL - [#9001000] Classic Fileman Calls
^APCHPWHT - [#9001026] Classic Fileman Calls
^APCHPWHL - [#9001027] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] SELTYP+4, EHR+1, ENCOMP+2
^APCHPWHT - [#9001026] SELTYP+5
^APCHPWHT("B" EHR+2, ENCOMP+3
^AUPNPAT - [#9000001] SELPT+5
^DIC(4 - [#4] LOC+1, UPDDEF+4
^DISV( SELTYP+5
^TMP($J PRINT+2!, W+5, W+7, W+10, EOJ+2!
^VA(200 - [#200] HEAD1+4, USR+1

Label References

Name Line Occurrences
$$CTR EN+1
BROWSE ZIS+4
EHR ENCOMP+6
EOJ W+15
EXIT SELTYP+9, SELPT+12, ZIS+2, ZIS+4, ZIS+7
HEAD1 HEADER+1
HEADER W+3, W+8
PRINT EN1+2
SELTYP SELPT+4
UPDLOG PRINT+3
ZIS SELPT+11, EN2+3

Naked Globals

Name Field # of Occurrence
^("^APCHPWHT(" SELTYP+5
^(0 SELTYP+4, SELTYP+5, SELPT+5, USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EOJ+8!
>> A W+7*
>> APCHITST PRINT+3
APCHOLD EN1+1~
>> APCHOPT ZIS+3*
>> APCHPG W+3*, HEADER+1, HEAD1+2*, HEAD1+3, HEAD1+4
APCHPWHT SELTYP+10*, EN2~, EHR~, EHR+1*, EHR+2*, ENCOMP+1~, ENCOMP+2*, ENCOMP+3*, ENCOMP+4, ENCOMP+6
, EN1~, PRINT+3, PRINT+4
APCHQUIT W+2!, W+4, W+5, W+8, W+12, HEADER+2*
>> APCHSCVD PRINT+1*
>> APCHSPAT ENCOMP+6
>> APCHSQIT W+12*
>> APCHX W+5*, W+7, W+10
AUPNDAYS EOJ+7!
AUPNDOB EOJ+7!
AUPNDOD EOJ+7!
AUPNPAT EOJ+7!
AUPNSEX EOJ+7!
B EOJ+8!
BIDLLID EOJ+6!
BIDLLPRO EOJ+6!
BIDLLRUN EOJ+6!
BIRESULT EOJ+6!
BISITE EOJ+6!
C W+7*, W+8, EOJ+8!
D UPDLOG~, UPDLOG+6
D0 UPDLOG+4~, UPDLOG+7!
DA ZIS+1!, UPDDEF+6*
DD UPDLOG+4~, UPDLOG+7!
DFN SELPT+2*, SELPT+5*, EN2+1~, EN2+2*, EHR~, EXIT+2!, EXIT1+3!, PRINT+3, PRINT+4
DIADD SELTYP+1!, UPDLOG+5*, UPDLOG+10!
DIC SELTYP+3!*, SELTYP+8!, SELPT+3!*, UPDLOG+4~, UPDLOG+5*, UPDDEF+4!*
DIC("A" SELTYP+3*, SELPT+3*
DIC("B" SELTYP+7*, UPDDEF+4*
DIC("DR" UPDLOG+6*
DIC(0 SELTYP+3*, SELPT+3*, UPDLOG+5*, UPDDEF+4*
>> DIE UPDDEF+6*
DIR ZIS+1!, W+14!, HEADER+2!
DIR("A" ZIS+1*, W+14*
DIR("B" ZIS+1*
DIR(0 ZIS+1*, W+14*, HEADER+2*
>> DIRUT ZIS+2
DLAYGO SELTYP+1!, UPDLOG+5*, UPDLOG+10!
DO UPDLOG+4~
>> DR UPDDEF+6*
DT HEAD1+3, HEAD1+4, UPDLOG+6
>> DTOUT HEADER+2
DUZ SELTYP+5, PRINT+3, HEAD1+4, USR+1
DUZ(2 SELTYP+4, SELPT+5, EHR+1, ENCOMP+2, LOC+1, UPDLOG+6, UPDDEF+4
E EOJ+8!
F EOJ+8!
H EOJ+8!
IO W+14, HEADER+2
IO(0 W+14, HEADER+2
IOF ENCOMP+5, HEAD1+1
IOM HEAD1+3, CTR+1
IOSL W+8
IOST W+14, HEADER+2
J EOJ+8!
L EOJ+8!
N EOJ+8!
P EN2~, EN2+2, EOJ+8!, UPDLOG~, UPDLOG+1, UPDLOG+3, UPDLOG+5
ST EOJ+8!
ST0 EOJ+8!
T ENCOMP+1~, EOJ+8!, UPDLOG~, UPDLOG+2, UPDLOG+3, UPDLOG+6
U SELTYP+4, SELTYP+5, SELPT+5, EHR+1, ENCOMP+2, HEAD1+4, USR+1, LOC+1, UPDDEF+4
W EOJ+8!
X SELTYP+4*, SELTYP+5*, SELTYP+6*, SELTYP+7, EOJ+8!, CTR~, CTR+1, UPDLOG+4~, UPDLOG+5*
>> XBIOP BROWSE+2*
>> XBNS ZIS+5*
>> XBRC ZIS+5*, BROWSE+2*
>> XBRP ZIS+5*, BROWSE+1*
>> XBRX ZIS+5*, BROWSE+2*
Y SELTYP+5*, SELTYP+9, SELTYP+10, SELPT+4, SELPT+5, ZIS+3, ZIS+4, EOJ+8!, HEADER+2, CTR~
, CTR+1, UPDDEF+5, UPDDEF+6

Marked Items

Name Field # of Occurrence
$T(LOG^BQINOTR UPDLOG+3
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 |  Marked Items |  All