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

Package: Patient Care Component

Routine: APCHHMRQ


Information

APCHHMRQ ; IHS/CMI/LAB - DISPLAY HEALTH MAINTENANCE REMINDER ;

Source Information

Source file <APCHHMRQ.m>

Call Graph

Call Graph Total: 6

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

Entry Points

Name Comments DBIA/ICR reference
SORT ;
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 ;
ACT ;
PRINT ;EP - called from xbdbque
PROCESS1 ;
EP ;EP - called from option to select and display a hmr

External References

Name Field # of Occurrence
^DIR ACT+4, SORT+2, ZIS+1, HEAD+1, EOP+5
^XBDBQUE ZIS+5, BROWSE+2
$$VAL^XBDIQ1 PROCESS1+8, PRINT+7
$$EXTSET^XBFUNC PROCESS1+11, PROCESS1+12, PROCESS1+13
EN^XBVK XIT+2
$$FMADD^XLFDT PROCESS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will list the Health Maintenance Reminders available for display",!,"on a health summary.",!!
  • Line Location: EP+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: APCHSC>0
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?59,$E($P(^APCHSCTL(APCHZ,0),U),1,20)
  • Line Location: PRINT+10
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 REMINDERS",80),!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: $$CTR($S(APCHACT="A":"ACTIVE",APCHACT="I":"INACTIVE",1:"BOTH ACTIVE AND INACTIVE REMINDERS"),80),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-"),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !,"REMINDER",?27,"CATEGORY",?44,"STATUS",?59,"HEALTH SUMMARY TYPES",!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: $TR($J("",80)," ","-")
  • Line Location: HEAD1+8
Routine Call
  • DIR
  • Line Location:
    • ACT+4
    • SORT+2
    • ZIS+1
    • HEAD+1
    • EOP+5

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CTR HEAD1+4, HEAD1+5
ACT SORT+3
BROWSE ZIS+3
HEAD PRINT+1, PRINT+6
HEAD1 HEAD
PROCESS1 PROCESS+4
S1 S+4, S+6, S+9
XIT ACT+5, 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
>> APCHACT ACT+1*, ACT+6*, PROCESS1+4, PROCESS1+5, HEAD1+5
>> APCHC PRINT+3*, PRINT+4, PRINT+5
>> APCHH PROCESS+1*, PROCESS+3, PROCESS1+11, PROCESS1+12, PROCESS1+13, PRINT+2, PRINT+3, PRINT+4, PRINT+5, S1+1
, S1+2
>> APCHHMR PROCESS+4*, PROCESS1+1, PROCESS1+2, PROCESS1+3, PROCESS1+8, PROCESS1+10, PROCESS1+11, PROCESS1+12, PROCESS1+13, PRINT+5*
, PRINT+7, PRINT+10
>> APCHJ PROCESS+1*, PROCESS+3, PROCESS1+11, PROCESS1+12, PROCESS1+13, PRINT+2, PRINT+3, PRINT+4, PRINT+5, S1+1
, S1+2
>> APCHK PRINT+10*
>> APCHN PROCESS+4*, PRINT+4*, PRINT+5
>> APCHPG PRINT+1*, HEAD, HEAD1+1*, HEAD1+2
>> APCHQ PRINT+1*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+10, HEAD+1*
>> APCHS PRINT+2*, PRINT+3, PRINT+4, PRINT+5
>> APCHSC PRINT+8*, PRINT+10*
>> APCHSORT SORT+1*, SORT+4*, PROCESS1+11, PROCESS1+12, PROCESS1+13
>> APCHZ PRINT+8*, PRINT+9*, PRINT+10
C PROCESS1+8*, PROCESS1+9*, PROCESS1+11, PROCESS1+12, PROCESS1+13, S~, S+6
DA ACT+4!, SORT+2!, ZIS+1!
DFOUT EOP+4!
DIR ACT+2!, ACT+4!, SORT+2!, ZIS+1!, HEAD+1!, EOP+3~
DIR("A" ACT+4*, SORT+2*, ZIS+1*
DIR("B" ACT+4*, SORT+2*, ZIS+1*
DIR(0 ACT+3*, SORT+2*, ZIS+1*, HEAD+1*, EOP+5*
DIRUT ACT+5, SORT+3, 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+6
IOST HEAD+1, EOP+1
>> IOT EOP+2
J XIT+1!
K XIT+1!
>> L S+6*
>> N PROCESS1+10*, PROCESS1+11, PROCESS1+12, PROCESS1+13
>> S PROCESS1+3*, PROCESS1+4, PROCESS1+5, PROCESS1+7*, PROCESS1+11, PROCESS1+12, PROCESS1+13
T S~, S+2*, S+6*, S+7, S+8
U PROCESS1+1, PROCESS1+2, PROCESS1+3, PROCESS1+10, PRINT+10, S1+1, HEAD1+2, HEAD1+3, USR+1, LOC+1
X XIT+1!, 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 ACT+6, SORT+4, ZIS+3, XIT+1!, S~, S+5, S+6, S+8, HEAD+1, CTR~
, CTR+1
Z XIT+1!
>> ZTQUEUED EOP+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All