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

Package: Patient Care Component

Routine: APCHTPP


Information

APCHTPP ; IHS/CMI/LAB - DISPLAY HEALTH MAINTENANCE Best Practice Prompt ;

Source Information

Source file <APCHTPP.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 3 ^XBDBQUE  $$VAL^XBDIQ1  EN^XBVK  
Kernel 1 $$FMADD^XLFDT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
LOC() ;EP - Return location name from file 4 based on DUZ(2).
HEAD
ZIS ;
HEAD1 ;
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
S1 ;
S(Y,F,C,T) ;set up array
PROCESS ; -- init variables and list array
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
XIT ;
PRINT ;EP - called from xbdbque
PROCESS1 ;
EP ;EP - called from option to select and display a TP

External References

Name Field # of Occurrence
^DIR ZIS+1, HEAD+1, EOP+5
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 PROCESS1+5
EN^XBVK XIT+2
$$FMADD^XLFDT PROCESS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will display or print the description/logic of all Health",!,"Summary Best Practice Prompts.",!!
  • Line Location: EP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",APCHPG,!
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),!
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: $$CTR("HEALTH SUMMARY HEALTH MAINTENANCE BEST PRACTICE PROMPTS",80),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEAD1+5
Routine Call
  • DIR
  • Line Location:
    • ZIS+1
    • HEAD+1
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCHSCTL - [#9001015] PROCESS1+17, PROCESS1+18
^APCHSURV - [#9001018] PROCESS1+1, PROCESS1+2, PROCESS1+4, PROCESS1+7, PROCESS1+9, PROCESS1+11, PROCESS1+12, PROCESS1+13, PROCESS1+14
^APCHSURV("B" PROCESS+5
^DIC(4 - [#4] HEAD1+3, LOC+1
^VA(200 - [#200] HEAD1+2, USR+1
^XTMP("APCHTPP" PROCESS+2*, PROCESS+3!, PROCESS+4*, PROCESS+6!, PRINT+2, PRINT+4, PRINT+6!, S1+1*, S1+2*

Label References

Name Line Occurrences
$$CTR HEAD1+4
BROWSE ZIS+3
HEAD PRINT+1, PRINT+3
HEAD1 HEAD
PROCESS1 PROCESS+5
S PROCESS1+4, PROCESS1+5, PROCESS1+6, PROCESS1+7, PROCESS1+8, PROCESS1+9, PROCESS1+10, PROCESS1+14, PROCESS1+16, PROCESS1+18
, PROCESS1+20
S1 S+4, S+6, S+9
XIT ZIS+2, ZIS+3, ZIS+6

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+7*, S+8*, S1+1*, S1+2
APCHH PROCESS+1*, PROCESS+3, PROCESS+4, PROCESS+6, PRINT+2, PRINT+4, PRINT+6!, S1+1, S1+2
APCHJ PROCESS+1*, PROCESS+3, PROCESS+4, PROCESS+6, PRINT+2, PRINT+4, PRINT+6!, S1+1, S1+2
>> APCHN PROCESS+5*
>> APCHPG PRINT+1*, HEAD, HEAD1+1*, HEAD1+2
>> APCHQ PRINT+1*, PRINT+2, PRINT+3, HEAD+1*
>> APCHTP PROCESS+5*, PROCESS1+1, PROCESS1+2, PROCESS1+4, PROCESS1+5, PROCESS1+7, PROCESS1+9, PROCESS1+11, PROCESS1+12, PROCESS1+13
, PROCESS1+14, PROCESS1+18
>> APCHX PRINT+2*, PRINT+4
C S~, S+6
DA ZIS+1!
DFOUT EOP+4!
DIR ZIS+1!, HEAD+1!, EOP+3~
DIR("A" ZIS+1*
DIR("B" ZIS+1*
DIR(0 ZIS+1*, HEAD+1*, EOP+5*
DIRUT ZIS+2, EOP+4!
DLOUT EOP+4!
DT PROCESS+2
DTOUT HEAD+1, EOP+4!
DUOUT EOP+4!
DUZ HEAD1+2, USR+1
DUZ(2 HEAD1+3, LOC+1
F S~, S+1*, S+4*
IO HEAD+1
IO("S" EOP+2
IO(0 HEAD+1
IOF HEAD1+1
IOM CTR+1
IOSL PRINT+3
IOST HEAD+1, EOP+1
>> IOT EOP+2
J XIT+1!, PROCESS1+13*, PROCESS1+14, PROCESS1+17*, PROCESS1+18
K XIT+1!, PROCESS1+18*
>> L S+6*
T S~, S+2*, S+6*, S+7, S+8
U PROCESS1+1, PROCESS1+2, PROCESS1+4, PROCESS1+12, PROCESS1+14, PROCESS1+18, S1+1, HEAD1+2, HEAD1+3, USR+1
, LOC+1
X XIT+1!, PROCESS1+4*, PROCESS1+5*, PROCESS1+6*, PROCESS1+7*, PROCESS1+8*, PROCESS1+9*, PROCESS1+10*, PROCESS1+14*, PROCESS1+16*
, PROCESS1+18*, PROCESS1+20*, S+4*, S+5*, S+7*, S+8*, S1+2, CTR~, CTR+1
>> XBIOP BROWSE+2*
>> XBNS ZIS+4*, BROWSE+2*
>> XBRC ZIS+4*, BROWSE+2*
>> XBRP ZIS+4*, BROWSE+1*
>> XBRX ZIS+4*, BROWSE+2*
Y ZIS+3, XIT+1!, PROCESS1+7*, PROCESS1+9*, PROCESS1+11*, PROCESS1+12, PROCESS1+13, PROCESS1+14, S~, S+5
, S+6, S+8, HEAD+1, CTR~, CTR+1
Z XIT+1!, PROCESS1+12*, PROCESS1+14
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All