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

Package: Patient Care Component

Routine: APCHMT2


Information

APCHMT2 ; IHS/CMI/LAB -- health summary create/modify ;

Source Information

Source file <APCHMT2.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Registration 3 EN^VALM  TERM^VALM0  FULL^VALM1  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
IHS VA Utilities 2 ^XBCLS  $$VAL^XBDIQ1  
Kernel 1 DISP^XQORM1  

Entry Points

Name Comments DBIA/ICR reference
HELP ; -- help code
COMP(S,C) ;EP
HDR ; -- header code
S1 ;
MR ;EP - called from protocol entry
BACK ;go back to listman
S(Y,F,C,T) ;EP - set up array
PAUSE ;EP; -- ask user to press ENTER
ADDG ;add reminders by group
ADD ;add individual reminders or remove
EN ; -- main entry point for E
EXIT ; -- EXIT code
REM ;
REMOVEG ;
INIT ; -- init variables and list array
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA) ;EP; calls reader, returns response
EXPND ; -- expand code
REMG ;ep

External References

Name Field # of Occurrence
^DIC ADDG+3, REMG+3
^DIE ADD+3
^DIR EN+6, READ+8
EN^VALM EN+1
TERM^VALM0 BACK+1
FULL^VALM1 MR+1, ADD+1, REM+1, ADDG+1, REMG+1
^XBCLS PAUSE+2
$$VAL^XBDIQ1 INIT+12, INIT+20
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"WARNING: Health Maintenance Reminders has not been added to the Health Summary",!
  • Line Location: MR+2
Function Call: WRITE
  • Prompt: !!,"Currently, only HEALTH REMINDERS flagged as ACTIVE will display",!,"on the health summary. If you want to activate a reminder ",!,"use the option 'AI Activate/Inactivate a Health Maintenance Reminder'",!,"to do so.",!
  • Line Location: MR+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Enter the sequence number to put this reminder and then enter",!,"reminder by name.",!
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !!,"Invalid Sequence number."
  • Line Location: REM+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADDG+2
Function Call: WRITE
  • Prompt: !!,"Removing all reminders in the ",$P(^APCHHMC(APCHCAT,0),U)," group."
  • Line Location: REMOVEG+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: REMG+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Routine Call
  • VALM
  • Line Location:
    • EN+1
Routine Call
  • DIE
  • Line Location:
    • ADD+3
Routine Call
  • DIC
  • Line Location:
    • ADDG+3
    • REMG+3
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • READ+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCHSCTL - [#9001015] Classic Fileman Calls
^APCHHMC - [#9001016.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCHHMC - [#9001016.1] REMOVEG+1
^APCHSCMP("B" MR+2
^APCHSCTL - [#9001015] COMP+1, REM+6, REM+7!*, ADDG+13, ADDG+14!*, ADDG+15*, ADDG+17*, ADDG+19*, REMOVEG+2, REMOVEG+3
, REMOVEG+4!, HDR+1, INIT+6, INIT+9, INIT+10
^APCHSURV - [#9001018] ADDG+17, REMOVEG+4, INIT+10, INIT+11, INIT+16, INIT+18, INIT+19, INIT+20
^TMP($J INIT+1!, INIT+21, S1+2*

Label References

Name Line Occurrences
$$COMP MR+2
$$READ REM+2, ADDG+7, PAUSE+2
@( EN+10
BACK EN+2, EN+7, EN+8, ADD+4, REM+8, ADDG+20, REMG+7
HDR BACK+4
INIT BACK+3
MR EN+11
REM REM+6
REMOVEG ADDG+12, REMG+6
S INIT+2, INIT+3, INIT+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+12, INIT+15, INIT+20
S1 S+4, S+6, S+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S+7*, S+8*
>> APCHA EN+5*, EN+9*, EN+10
APCHC ADDG+13!, INIT+1*, S1+1*, S1+2
APCHC( ADDG+13*, ADDG+15!, ADDG+19
>> APCHCAT ADDG+5*, ADDG+17, REMOVEG+1, REMOVEG+4, REMG+5*
>> APCHDA MR+2, ADD+3, REM+6, REM+7, ADDG+13, ADDG+14, ADDG+15, ADDG+17, ADDG+19, REMOVEG+2
, REMOVEG+3, REMOVEG+4, HDR+1, INIT+6, INIT+9, INIT+10
>> APCHSEQ REM+2*, REM+3, REM+4, REM+6, REM+7, ADDG+7*, ADDG+8, ADDG+9, ADDG+15
APCHT INIT+1!
APCHT( INIT+13*, INIT+17
>> B ADDG+15*, ADDG+17
C COMP~, COMP+1, ADDG+15*, ADDG+17*, ADDG+19*, INIT+10*, INIT+11, INIT+12, INIT+13, S~
, S+6
DA EN+6!, ADD+3*
DEFAULT READ~, READ+5
DIC ADDG+3*!, REMG+3*!
DIC("A" ADDG+3*, REMG+3*
DIC(0 ADDG+3*, REMG+3*
DIE ADD+3!*
DIR BACK+5!, EN+6!, READ+1~
DIR("?" READ+6*
DIR("A" EN+6*, READ+4*, READ+7*
DIR("B" EN+6*, READ+5*
DIR("S" READ+3*
DIR(0 EN+6*, READ+2*
DIRA READ~
DIRA( READ+7
DIRA(1 READ+7
DIRUT EN+6!, EN+7, REM+5!
DIV ADD+3!
DIW ADD+3!
>> DR ADD+3*
F S~, S+1*, S+4*
HELP READ~, READ+6
I BACK+6!
IOST PAUSE+1
>> L S+6*
>> N INIT+10*, INIT+11
>> O INIT+10*, INIT+11
PROMPT READ~, READ+4
S COMP~, COMP+1
SCREEN READ~, READ+3
T INIT+9*, INIT+10*, INIT+16*, INIT+17, INIT+18, INIT+19, INIT+20, S~, S+2*, S+6*
, S+7, S+8
TYPE READ~, READ+2
U COMP+1, REM+7, ADDG+13, ADDG+15, ADDG+17, ADDG+19, REMOVEG+1, REMOVEG+3, REMOVEG+4, HDR+1
, INIT+6, INIT+10, INIT+11, INIT+18, INIT+19, INIT+20
>> VALMBCK BACK+2*
>> VALMCNT INIT+21*
>> VALMHDR(1 HDR+1*
X BACK+6!, COMP+1~*, ADDG+13*, ADDG+15*, ADDG+19*, REMOVEG+2*, REMOVEG+3, REMOVEG+4, INIT+2*, INIT+3*
, INIT+4*, INIT+5*, INIT+6*, INIT+7*, INIT+8*, INIT+11*, INIT+12*, INIT+15*, INIT+20*, S+4*
, S+5*, S+7*, S+8*, S1+2, HELP+1*, READ+1~
Y BACK+6!, COMP+1~*, COMP+2, EN+8, EN+9, ADDG+4, ADDG+5, ADDG+17*, REMOVEG+3*, REMOVEG+4
, REMG+4, REMG+5, INIT+9*, INIT+10, S~, S+5, S+6, S+8, PAUSE+2~*, READ+1~
, READ+7*, READ+9
Z BACK+6!, ADDG+17*, ADDG+19*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All