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

Package: Patient Care Component

Routine: APCHMT3


Information

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

Source Information

Source file <APCHMT3.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 ;
PAUSE ;EP; -- ask user to press ENTER
BACK ;go back to listman
TP ;EP - called from protocol entry
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA) ;EP; calls reader, returns response
ADDG ;add reminders by group
ADD ;add individual reminders or remove
EN ; -- main entry point for E
EXIT ; -- EXIT code
S(Y,F,C,T) ;EP - set up array
REM ;
REMOVEG ;
INIT ; -- init variables and list array
EXPND ; -- expand code
REMG ;ep

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"WARNING: Best Practice Prompts has not been added to the Health Summary",!
  • Line Location: TP+2
Function Call: WRITE
  • Prompt: !!,"Enter the sequence number to put this Best Practice Prompt and then enter",!,"the prompt 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: !!,"Adding all Best Practice Prompts in the ",$P(^APCHHMC(APCHCAT,0),U)," group."
  • Line Location: ADDG+13
Function Call: WRITE
  • Prompt: !!,"Removing all Best Practice Prompts 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:
    • TP+4
    • 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] ADDG+13, REMOVEG+1
^APCHSCMP("B" TP+2
^APCHSCTL - [#9001015] COMP+1, REM+6, REM+7!*, ADDG+14, ADDG+15!*, ADDG+16*, ADDG+18*, ADDG+20*, REMOVEG+2, REMOVEG+3
, REMOVEG+4!, HDR+1, INIT+6, INIT+9, INIT+10
^APCHSURV - [#9001018] ADDG+18, REMOVEG+4, INIT+10, INIT+11, INIT+17, INIT+19, INIT+20, INIT+21
^TMP($J INIT+1!, INIT+22, S1+2*

Label References

Name Line Occurrences
$$COMP TP+2
$$READ REM+2, ADDG+7, PAUSE+2
BACK EN+2, ADD+4, REM+8, ADDG+21, REMG+7
HDR BACK+4
INIT BACK+3
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+16
, INIT+21
S1 S+4, S+6, S+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % S+7*, S+8*
APCHC ADDG+14!, INIT+1*, S1+1*, S1+2
APCHC( ADDG+14*, ADDG+16!, ADDG+20
>> APCHCAT ADDG+5*, ADDG+13, ADDG+18, REMOVEG+1, REMOVEG+4, REMG+5*
>> APCHDA TP+2, ADD+3, REM+6, REM+7, ADDG+14, ADDG+15, ADDG+16, ADDG+18, ADDG+20, 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+16
APCHT INIT+1!
APCHT( INIT+13*, INIT+18
APCHTALK REMOVEG+1, REMG+6*!
>> B ADDG+16*, ADDG+18
C COMP~, COMP+1, ADDG+16*, ADDG+18*, ADDG+20*, INIT+10*, INIT+11, INIT+12, INIT+13, S~
, S+6
DA TP+4!, 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!, TP+4!, READ+1~
DIR("?" READ+6*
DIR("A" TP+4*, READ+4*, READ+7*
DIR("B" READ+5*
DIR("S" READ+3*
DIR(0 TP+4*, READ+2*
DIRA READ~
DIRA( READ+7
DIRA(1 READ+7
DIRUT 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+17*, INIT+18, INIT+19, INIT+20, INIT+21, S~, S+2*, S+6*
, S+7, S+8
TYPE READ~, READ+2
U COMP+1, REM+7, ADDG+13, ADDG+14, ADDG+16, ADDG+18, ADDG+20, REMOVEG+1, REMOVEG+3, REMOVEG+4
, HDR+1, INIT+6, INIT+10, INIT+11, INIT+19, INIT+20, INIT+21
>> VALMBCK BACK+2*
>> VALMCNT INIT+22*
>> VALMHDR(1 HDR+1*
X BACK+6!, COMP+1~*, ADDG+14*, ADDG+16*, ADDG+20*, 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+16*, INIT+21*
, S+4*, S+5*, S+7*, S+8*, S1+2, HELP+1*, READ+1~
Y BACK+6!, COMP+1~*, COMP+2, ADDG+4, ADDG+5, ADDG+18*, 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+18*, ADDG+20*
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