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 |  Local Variables |  All
Print Page as PDF
Routine: APCHPWHT

Package: Patient Care Component

Routine: APCHPWHT


Information

APCHPWHT ; IHS/CMI/LAB -- create/modify health summary type ; 06 Sep 2011 1:08 PM

Source Information

Source file <APCHPWHT.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS VA Utilities 5 ^XBCLS  ENPM^XBDIQ1  ^XBFMK  VIEWR^XBLM  EN^XBVK  
Registration 3 EN^VALM  TERM^VALM0  (CLEAR,FULL)^VALM1  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Patient Care Component 2 EN2^APCHPWHG  (HDR,INIT)^APCHPWHT  
IHS Patient 1 ^AUPNPAT  
Kernel 1 DISP^XQORM1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Patient Care Component 1 APCHPWHT  

Entry Points

Name Comments DBIA/ICR reference
HDR ;EP -- header code
DH ;EP called from protocol to generate PWH
EOJ ;
S1 ;
BACK ;go back to listman
EXPND ; -- expand code
PAUSE ;EP; -- ask user to press ENTER
ALG(P) ;
HELP ; -- help code
CCI(P) ;
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA) ;EP; calls reader, returns response
INIT ;EP -- init variables and list array
PH ;EP called from protocol to generate PWH
C ;
EN ; -- main entry point for APCH CREATE/MODIFY TYPE
TQMP ;EP - called from protocol entry
S(Y,F,C,T) ;EP - set up array
CCIP ;EP - called from protocol entry
AS ;EP
EP ;EP - called from option
COMP(S,C) ;EP
EXIT ; -- EXIT code
MS ;EP - called from protocol entry
TQM(P) ;

External References

Name Field # of Occurrence
EN2^APCHPWHG PH+10
HDR^APCHPWHT BACK+4
INIT^APCHPWHT BACK+3
^AUPNPAT DH+6, PH+6
^DIC EP+3, DH+3, PH+3
^DIE EP+7, AS+3, CCIP+5, TQMP+6, MS+3
^DIR READ+8
EN^VALM EN+1
TERM^VALM0 BACK+1
CLEAR^VALM1 EN+2
FULL^VALM1 EN+3, DH+1, PH+1, AS+1, CCIP+1, TQMP+1, MS+1
^XBCLS PAUSE+2
ENPM^XBDIQ1 INIT+15, INIT+16
^XBFMK EP+3, EP+7, EOJ+2, AS+3, CCIP+5, TQMP+6, MS+3
VIEWR^XBLM DH+9
EN^XBVK EOJ+1
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"This option will allow you to create a new or modify an existing"
  • Line Location: EP+1
Function Call: WRITE
  • Prompt: !,"Patient Wellness Handout type.",!!
  • Line Location: EP+2
Function Call: WRITE
  • Prompt: !!,"Goodbye",!
  • Line Location: EP+4
Function Call: WRITE
  • Prompt: !,"This Patient Wellness handout type is currently locked to prevent alteration.",!
  • Line Location: EP+5
Function Call: WRITE
  • Prompt: S
  • Line Location: INIT+21
Function Call: WRITE
  • Prompt: S
  • Line Location: INIT+27
Function Call: WRITE
  • Prompt: S
  • Line Location: INIT+33
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"No Patient Selected."
  • Line Location: DH+4
Function Call: WRITE
  • Prompt: !,"No Patient Selected."
  • Line Location: PH+4
Function Call: WRITE
  • Prompt: !!,"You have not added Allergies as a component to this Patient Wellness Handout",!,"type. Don't forget to do so.",!
  • Line Location: AS+2
Function Call: WRITE
  • Prompt: !!,"WARNING: CCI MEASURES has not been added to the Handout Structure.",!,"CCI MEASURES will not display until they are part of the handout",!,"structure."
  • Line Location: CCIP+2
Function Call: WRITE
  • Prompt: !!,"You can add a new CCI Measure by entering a new sequence number",!,"and CCI Measure name. To remove a CCI Measure from this handout type select the measure",!
  • Line Location: CCIP+3
Function Call: WRITE
  • Prompt: "by sequence number and type an '@',",!
  • Line Location: CCIP+4
Function Call: WRITE
  • Prompt: !!,"You can add a new Quality of Care Transparency Measure by entering a ",!,"new sequence number and measure name. ",!,"To remove a Measure from this handout type select the measure",!
  • Line Location: TQMP+4
Function Call: WRITE
  • Prompt: "by sequence number and type an '@',",!
  • Line Location: TQMP+5
Function Call: WRITE
  • Prompt: !!,"You can add a new component by entering a new order number and",!,"component name. To remove a component from this PWH type select the",!,"component by name or order and then enter an '@'.",!
  • Line Location: MS+2
Routine Call
  • VALM
  • Line Location:
    • EN+1
Routine Call
  • DIE
  • Line Location:
    • EP+7
    • AS+3
    • CCIP+5
    • TQMP+6
    • MS+3
Routine Call
  • DIC
  • Line Location:
    • EP+3
    • DH+3
    • PH+3
Routine Call
  • DIR
  • Line Location:
    • READ+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^APCHPWHT - [#9001026] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCHPWHC - [#9001025] INIT+8, ALG+3, CCI+3, TQM+3
^APCHPWHC("B" CCIP+2, TQMP+2
^APCHPWHE - [#9001025.05] INIT+21
^APCHPWHF - [#9001025.06] INIT+27, INIT+33
^APCHPWHT - [#9001026] EP+5, HDR+1, INIT+7, INIT+8, INIT+19, INIT+20, INIT+25, INIT+26, INIT+31, INIT+32
, COMP+1, DH+8, PH+8, ALG+3, CCI+3, TQM+3
^DPT - [#2] DH+8, PH+8
^TMP($J INIT+1!, C+1, S1+2*
^XUSEC( EP+5

Label References

Name Line Occurrences
$$ALG AS+2
$$COMP CCIP+2, TQMP+2
$$READ PAUSE+2
BACK DH+4, DH+10, PH+4, PH+12, AS+4, CCIP+6, TQMP+7, MS+4
EN EP+8
EOJ EP+4, EN+5
EP EP+5
S INIT+5, INIT+6, INIT+14, INIT+15, INIT+16, INIT+18, INIT+22, INIT+24, INIT+28, INIT+30
, INIT+34
S1 S+4, S+6, S+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EP+5*, S+7*, S+8*, DH+8*, DH+9, PH+8*
A INIT+3~, INIT+4*, INIT+8*, INIT+9*, INIT+15, ALG+1~, ALG+3*, CCI+1~, CCI+3*, TQM+1~
, TQM+3*
>> APCHC INIT+2*, S1+1*, S1+2
APCHITST PH+9*, PH+11!
>> APCHPWHT EP+6*, EP+7, HDR+1, INIT+7, INIT+8, INIT+15, INIT+16, INIT+19, INIT+20, INIT+25
, INIT+26, INIT+31, INIT+32, DH+8, PH+8, PH+10, AS+2, AS+3, CCIP+2, CCIP+5
, TQMP+2, TQMP+6, MS+3
>> APCHSDFN DH+7*, DH+8, PH+7*, PH+8
B INIT+3~, INIT+4*, INIT+8*, INIT+11*, INIT+16, ALG+1~, ALG+3*, CCI+1~, CCI+3*, TQM+1~
, TQM+3*
C INIT+3~, INIT+8*, INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, S~, S+6
, COMP~, COMP+1
DA EP+3!, EP+7*, DH+3!, PH+3!, AS+3*, CCIP+5*, TQMP+6*, MS+3*
DD EP+3!
DEFAULT READ~, READ+5
>> DFN DH+2*, DH+5*, DH+6, DH+7, PH+2*, PH+5*, PH+6, PH+7, PH+10
DIADD DH+3!, PH+3!
DIC EP+3*!, DH+3*!, PH+3*!
DIC(0 EP+3*, DH+3*, PH+3*
>> DIE EP+7*, AS+3*, CCIP+5*, TQMP+6*, MS+3*
DIR BACK+5!, READ+1~
DIR("?" READ+6*
DIR("A" READ+4*, READ+7*
DIR("B" READ+5*
DIR("S" READ+3*
DIR(0 READ+2*
DIRA READ~
DIRA( READ+7
DIRA(1 READ+7
DLAYGO DH+3!, PH+3!
DO EP+3!
DR EP+3!, EP+7*, DH+3!, PH+3!, AS+3*, CCIP+5*, TQMP+6*, MS+3*
DUZ EP+5
E INIT+3~, INIT+4*, INIT+8*, INIT+13*, INIT+29, INIT+31, INIT+32
F S~, S+1*, S+4*
G ALG+1~, ALG+2*, ALG+3*, ALG+4, CCI+1~, CCI+2*, CCI+3*, CCI+4, TQM+1~, TQM+2*
, TQM+3*, TQM+4
HELP READ~, READ+6
I INIT+3~, INIT+4*, INIT+8*, INIT+12*, INIT+23, INIT+25, INIT+26, BACK+6!
IOF EN+4
IOST PAUSE+1
>> L S+6*
M INIT+3~
O INIT+3~, INIT+8*, INIT+14
P ALG~, ALG+3, CCI~, CCI+3, TQM~, TQM+3
PROMPT READ~, READ+4
S COMP~, COMP+1
SCREEN READ~, READ+3
T INIT+3~, INIT+4*, INIT+8*, INIT+10*, INIT+17, INIT+19, INIT+20, S~, S+2*, S+6*
, S+7, S+8
TYPE READ~, READ+2
U EP+5, HDR+1, INIT+8, INIT+20, INIT+21, INIT+26, INIT+27, INIT+32, INIT+33, COMP+1
, DH+8, PH+8, ALG+3, CCI+3, TQM+3
V INIT+3~, INIT+19*, INIT+20, INIT+22, INIT+25*, INIT+26, INIT+28, INIT+31*, INIT+32, INIT+34
>> VALMBCK BACK+2*
>> VALMCNT C+1*
>> VALMHDR(1 HDR+1*
W INIT+3~, INIT+20*, INIT+21*, INIT+22, INIT+26*, INIT+27*, INIT+28, INIT+32*, INIT+33*, INIT+34
X INIT+3~, INIT+5*, INIT+6*, INIT+14*, INIT+15*, INIT+16*, INIT+22*, INIT+28*, INIT+34*, S+4*
, S+5*, S+7*, S+8*, S1+2, HELP+1*, BACK+6!, COMP+1~*, READ+1~
Y EP+4, EP+5, EP+6, INIT+3~, INIT+7*, INIT+8, INIT+9, INIT+10, INIT+11, INIT+12
, INIT+13, S~, S+5, S+6, S+8, BACK+6!, COMP+1~*, COMP+2, DH+4, DH+5
, DH+6*, PH+4, PH+5, PH+6*, PAUSE+2~*, READ+1~, READ+7*, READ+9
Z INIT+15!, INIT+16!, BACK+6!
Z( INIT+15, INIT+16
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 |  Local Variables |  All