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

Package: Patient Care Component

Routine: APCDPG1


Information

APCDPG1 ; IHS/CMI/LAB - GOAL list update from list manager ;

Source Information

Source file <APCDPG1.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA Fileman 6 EN^DDIOL  ^DIC  FILE^DICN  ^DIE  (EN,GETS)^DIQ  ^DIR  
Patient Care Component 3 STP^APCDAGOL  ($$DATE,GATHER,HDR)^APCDPG  (MN1,NO1,RNO1)^APCDPG2  
IHS VA Utilities 2 ^XBFMK  (DIQ,VIEWR)^XBLM  
Kernel 2 $$FMTE^XLFDT  $$REPEAT^XLFSTR  
Registration 2 TERM^VALM0  ($$SETSTR,CLEAR,FULL)^VALM1  
IHS Patient 1 ^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
FS ;EP -called from protcol to display face sheet
DIE ;
DD ;EP - called from protocol to display (DIQ) a GOAL in detail
REV ;
DEL ;EP - called from protocol to delete a GOAL on GOAL list
SET ;set array
IG1 ;
REVE ;
FM12 ;
KDIE ;kill all vars used by DIE
FM13 ;
HS ;EP - called from protocol to display health summary
PAUSE ;EP
BUILD1 ;
GETGOAL ;get record
REVE1
AN ;EP - add a step, called from protocol
ADD ;EP - called from protocol to add a GOAL to GOAL list
BUILD ; build array
GETNUM(P) ;EP - get GOAL number given ien of GOAL entry
FMD ;
FME ;
IG ;EP - called from protocol to display health summary
FMA ;
RNO ;EP - called from protocol to remove a step
GOAL ;
EDIT ;EP - called from protocol to modify a GOAL on GOAL list
MN ;EP - called from protocol to modify a step
EXIT ;

External References

Name Field # of Occurrence
STP^APCDAGOL ADD+20
$$DATE^APCDPG REV+7
GATHER^APCDPG EXIT+3
HDR^APCDPG EXIT+5
MN1^APCDPG2 MN+4
NO1^APCDPG2 AN+4
RNO1^APCDPG2 RNO+12
^AUPNPAT HS+10
EN^DDIOL REV+4, FM12+1, FME+1, FMD+1
^DIC HS+5
FILE^DICN ADD+13
^DIE DIE+1, ADD+17, EDIT+11, DEL+20, REVE+7, REVE+16, FME+9, FMD+9, FMA+14
EN^DIQ DEL+14
GETS^DIQ GOAL+1
^DIR GETGOAL+2, ADD+8, DEL+6, DEL+16, RNO+6, PAUSE+1, REVE+10, FM12+4, FME+3, FMD+3
, FMA+5, FMA+9
TERM^VALM0 EXIT+1
$$SETSTR^VALM1 BUILD1+1
CLEAR^VALM1 IG+5
FULL^VALM1 GETGOAL+7, ADD+1, DEL+1, RNO+1, HS+1, FS+1, IG+1
^XBFMK DEL+21
DIQ^XBLM DD+4
VIEWR^XBLM HS+9, FS+3, IG+4
$$FMTE^XLFDT FMA+5, FMA+14
$$REPEAT^XLFSTR REV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No GOAL Seleted"
  • Line Location: GETGOAL+3
Function Call: WRITE
  • Prompt: !,"Not a valid GOAL."
  • Line Location: GETGOAL+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !,"Adding a new GOAL for ",$P(^DPT(APCDPGPT,0),U),".",!!
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Goal record not created.",!
  • Line Location: ADD+14
Function Call: WRITE
  • Prompt: !!,"error creating goal.."
  • Line Location: ADD+18
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !,"Editing GOAL ... "
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTE: Goals should only be deleted if they were entered in error."
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,"If you want to mark the goal as completed or if you want to change this goal,"
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !,"use the RV action to mark the goal as Met if it is complete or Stopped if"
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !,"this goal is being replaced with another goal.",!!
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !!,"Deleting the following GOAL from ",$P($P(^DPT(APCDPGPT,0),U),",",2)," ",$P($P(^(0),U),","),"'s GOAL List.",!
  • Line Location: DEL+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+16
Function Call: WRITE
  • Prompt: !,"okay, not deleted."
  • Line Location: DEL+17
Function Call: WRITE
  • Prompt: !,"Okay, not deleted."
  • Line Location: DEL+18
Function Call: WRITE
  • Prompt: !!,"PLEASE NOTE: Steps should only be deleted if they were entered in error."
  • Line Location: RNO+2
Function Call: WRITE
  • Prompt: !,"If you want to mark the step as completed or if you want to change this step,"
  • Line Location: RNO+3
Function Call: WRITE
  • Prompt: !,"use the ES (Edit Step) action to mark the step as Met if it is complete or "
  • Line Location: RNO+4
Function Call: WRITE
  • Prompt: !,"Stopped if this step is being replaced with another step.",!!
  • Line Location: RNO+5
Function Call: WRITE
  • Prompt: !!?3,"Review/Progress Notes currently on file for this goal:"
  • Line Location: REV+1
Function Call: WRITE
  • Prompt: " None recorded"
  • Line Location: REV+3
Function Call: WRITE
  • Prompt: APCDSTR,!
  • Line Location: SET+1
Routine Call
  • DIE
  • Line Location:
    • DIE+1
    • ADD+17
    • EDIT+11
    • DEL+20
    • REVE+7
    • REVE+16
    • FME+9
    • FMD+9
    • FMA+14
Routine Call
  • DIC
  • Line Location:
    • HS+5
Routine Call
  • DIR
  • Line Location:
    • GETGOAL+2
    • ADD+8
    • DEL+6
    • DEL+16
    • RNO+6
    • PAUSE+1
    • REVE+10
    • FM12+4
    • FME+3
    • FMD+3
    • FMA+5
    • FMA+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNGOAL - [#9000093] Classic Fileman Calls,  GETS^DIQ
^APCHSCTL - [#9001015] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^APCCCTRL - [#9001000] HS+2
^APCHSCTL - [#9001015] HS+2, HS+3
^AUPNGOAL - [#9000093] GETGOAL+6, ADD+20, EDIT+7, GETNUM+4, GETNUM+5, GETNUM+6, REVE+8, REVE+9, REV+3, REV+5
, REV+7, IG1+5, GOAL+22, GOAL+31
^AUPNGOAL("AA" IG1+3, IG1+4, IG1+5
^AUTTLOC - [#9999999.06] GETNUM+6
^DD( GOAL+5, GOAL+17, GOAL+27, GOAL+36
^DD(9000093 FME+7, FMD+7
^DD(9000093.01 GOAL+13
^DISV( HS+3
^DPT - [#2] ADD+6, DEL+13, HS+8, FS+2, IG+3, BUILD+5

Label References

Name Line Occurrences
@( FM12+8
BUILD IG1+11
BUILD1 BUILD+5, GOAL+7, GOAL+15, GOAL+19, GOAL+29, GOAL+38
DIE EDIT+10
EXIT ADD+9, ADD+14, ADD+21, EDIT+3, EDIT+13, DEL+7, DEL+8, DEL+11, DEL+17, DEL+18
, DEL+21, AN+3, AN+5, MN+3, MN+5, RNO+7, RNO+8, RNO+11, RNO+13, HS+6
, HS+12, DD+3, DD+5, FS+5, REVE+3, REVE+11, REVE1+1, IG+6
FM12 REV+3
FM13 FM12+5, FM12+6
GETGOAL EDIT+2, DEL+10, AN+2, MN+2, RNO+10, DD+2, REVE+2
KDIE ADD+17, ADD+18, ADD+19, EXIT+7, FME+10, FMD+10
PAUSE ADD+14, EDIT+3, DEL+11, DEL+17, DEL+18, DEL+21, AN+3, MN+3, MN+5, RNO+11
, RNO+13, HS+6, DD+3, REVE+3
REV EDIT+12, REVE1, FM12+9
REVE1 REVE+9, REVE+13
SET IG1+10, BUILD+6, GOAL+22, GOAL+25, GOAL+31, GOAL+34, GOAL+39, BUILD1+2

Naked Globals

Name Field # of Occurrence
^("^APCHSCTL(" HS+3
^(0 DEL+13, HS+2, HS+3, GETNUM+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KDIE+1!
AGDENT FS+4!
AGMVDF FS+4!
AGOPT FS+4!
AMCHDAYS HS+11!
AMCHDOB HS+11!
APCDAF EXIT+6!
APCDAR BUILD+1~, BUILD+3!
APCDAR( GOAL+3, GOAL+6, GOAL+11, GOAL+12, GOAL+14, GOAL+16, GOAL+18, GOAL+24, GOAL+26, GOAL+28
, GOAL+33, GOAL+35, GOAL+37
APCDC REV+2*, REV+6*, REV+7, FM12+3, FM13+1!, FME+3, FMD+3
APCDCM REV+2!, FM13+1!
APCDCM( REV+6*, FME+6, FMD+6
APCDCTR BUILD+1~, BUILD+4*
>> APCDDATE ADD+5*, EDIT+6*, REVE+6*
>> APCDDONE FM12+6*
APCDF EXIT+6!, IG1+2~, IG1+3*, IG1+4, IG1+5, BUILD+1~, GOAL+3*, GOAL+4, GOAL+5, GOAL+6
, GOAL+11*, GOAL+12*, GOAL+13, GOAL+14, GOAL+16*, GOAL+17, GOAL+18, GOAL+24*, GOAL+26*, GOAL+27
, GOAL+28, GOAL+33*, GOAL+35*, GOAL+36, GOAL+37
APCDF1 BUILD+1~
>> APCDGOAL ADD+20*
APCDH BUILD+1~, BUILD+5*, GOAL+5*, GOAL+13*, GOAL+17*, GOAL+27*, GOAL+36*, BUILD1+1
APCDHDR HS+8*, HS+9, HS+11!, FS+2*, FS+3, FS+4!, IG+3*, IG+4
APCDI BUILD+1~, GOAL+2*, GOAL+3, GOAL+6, GOAL+16, GOAL+18
>> APCDIGS ADD+7*, ADD+10*, ADD+12, ADD+17
APCDII BUILD+1~, GOAL+10*, GOAL+11*, GOAL+12, GOAL+14, GOAL+23*, GOAL+24*, GOAL+26, GOAL+28, GOAL+32*
, GOAL+33*, GOAL+35, GOAL+37
APCDJ BUILD+1~
>> APCDLINE EXIT+4
>> APCDLOC ADD+4*, EDIT+5*, REVE+5*
APCDNARR BUILD+1~
>> APCDNDT ADD+5, EDIT+6, REVE+6
APCDP GETGOAL+4*, GETGOAL+5, GETGOAL+6!, EXIT+6!
APCDP0 EXIT+6!, IG1+5*, IG1+6, IG1+7, IG1+8, IG1+9, BUILD+5
APCDPAT ADD+3*, EDIT+1~, EDIT+4*, DEL+9~, REVE+1~, REVE+4*
>> APCDPG("IDX" GETGOAL+5
>> APCDPGI IG1+4*, IG1+5
>> APCDPGPT ADD+2, ADD+3, ADD+6, EDIT+4, DEL+13, HS+7, HS+8, HS+10, FS+2, REVE+4
, IG+3, IG1+3, IG1+4, IG1+5
APCDPIEN DIE+1, GETGOAL+1*, GETGOAL+5*, GETGOAL+6*, ADD+16*, ADD+17, ADD+20, EDIT+1~, EDIT+3, EDIT+7
, EDIT+11, DEL+9~, DEL+11, DEL+14, DEL+20, AN+1~, AN+3, MN+1~, MN+3, RNO+9~
, RNO+11, DD+1~, DD+3, DD+4, EXIT+6!, REVE+1~, REVE+3, REVE+7, REVE+8, REVE+9
, REVE+15, REV+3, REV+5, REV+7, FME+6, FME+7, FMD+6, FMD+7, FMA+14, IG1+5*
, GOAL+1, GOAL+2, GOAL+22, GOAL+31
APCDPRB EXIT+6!
APCDPRMT EXIT+6!
>> APCDRCNT GETGOAL+2
>> APCDREVD FMA+4*, FMA+7*, FMA+14
>> APCDREVT FMA+8*, FMA+12*
>> APCDSS REVE+8*, REVE+10, REVE+12*, REVE+13, REVE+14
APCDSTR IG1+10*, SET+1, BUILD+1~, BUILD+4*, BUILD+6*, GOAL+22*, GOAL+25*, GOAL+31*, GOAL+34*, GOAL+39*
, BUILD1+1*
APCDTEMP DIE+1, EDIT+8*, EXIT+6!
APCDV BUILD+1~, BUILD+5*, GOAL+6*, GOAL+14*, GOAL+18*, GOAL+28*, GOAL+37*, BUILD1+1
APCDVDG BUILD+1~
APCDVFC BUILD+1~
APCDVFLE BUILD+1~
APCDVI BUILD+1~
APCDVIGR BUILD+1~
APCDVNM BUILD+1~
APCDVREC BUILD+1~
APCDX IG1+2~
APCDY IG1+2~
APCHSMTY HS+11!
APCHSPAT HS+7*, HS+11!
APCHSTAT HS+11!
APCHSTYP HS+7*, HS+11!
D0 KDIE+1!, ADD+13!, HS+5!
D1 HS+5!
DA DIE+1*, KDIE+1!, GETGOAL+2!, ADD+8!, ADD+17*, EDIT+11*, DEL+6!, DEL+14*, DEL+20*!, RNO+6!
, HS+5!, REVE+7*, REVE+10!, REVE+15*, REVE+17!, FM12+4!, FME+3!, FME+5!, FME+6*, FMD+3!
, FMD+5!, FMD+6*, FMA+5!, FMA+9!, FMA+14*!, FMA+15!
DA(1 FME+6*, FMD+6*
DD ADD+13!, HS+5!
>> DFN HS+10*
DI KDIE+1!
DIADD KDIE+1!, ADD+12*, ADD+13!
DIC ADD+12!*, ADD+13!, DEL+14*, HS+5!*, FME+5!, FMD+5!, FMA+15!
DIC("B" HS+5*
DIC("P" FME+7*, FMD+7*
DIC(0 ADD+12*, HS+5*
DIE DIE+1*, KDIE+1!, ADD+13!, ADD+17*, EDIT+11*, DEL+20*!, REVE+7*, REVE+15*, REVE+17!, FME+7*
, FMD+7*, FMA+14*!
DIE("NO^" ADD+17*, DEL+20*
DIR GETGOAL+2!, ADD+8!, DEL+6!, DEL+16!, RNO+6!, PAUSE+1!, REVE+10!, FM12+2!, FM12+4!, FME+2!
, FME+3!, FMD+2!, FMD+3!, FMA+5!, FMA+9!
DIR("A" GETGOAL+2*, ADD+8*, DEL+6*, DEL+16*, RNO+6*, PAUSE+1*, REVE+10*, FM12+4*, FME+3*, FMD+3*
, FMA+5*, FMA+9*
DIR("B" DEL+6*, DEL+16*, RNO+6*, REVE+10*, FM12+4*, FMA+5*
DIR(0 GETGOAL+2*, ADD+8*, DEL+6*, DEL+16*, RNO+6*, PAUSE+1*, REVE+10*, FM12+3*, FME+3*, FMD+3*
, FMA+5*, FMA+9*
>> DIRUT GETGOAL+3, ADD+9, DEL+7, DEL+16*, DEL+17, RNO+7, PAUSE+1*, REVE+11, FM12+5, FME+4
, FMD+4, FMA+6, FMA+10
DIU KDIE+1!
DIV KDIE+1!
DIW KDIE+1!
DIY KDIE+1!
DLAYGO KDIE+1!, ADD+12*, ADD+13!, ADD+21!
DO KDIE+1!, ADD+13!
DQ KDIE+1!, HS+5!
DR DIE+1*, KDIE+1!, ADD+13!, ADD+17*, EDIT+11*, DEL+20*!, HS+5!, REVE+7*, REVE+14*, REVE+17!
, FME+5!, FME+8*, FMD+5!, FMD+8*, FMA+14*!, FMA+15!
DR(2 FMA+14*
DT FMA+5
>> DUOUT DEL+16, PAUSE+1
DUZ HS+3
DUZ(2 ADD+4, EDIT+5, HS+2, REVE+5
F GETNUM+1~, GETNUM+5*, GETNUM+6, BUILD+2~, GOAL+3*, GOAL+5, GOAL+6, GOAL+10*, GOAL+11, GOAL+12
, GOAL+14, GOAL+16*, GOAL+17, GOAL+18, GOAL+23*, GOAL+24, GOAL+26, GOAL+27, GOAL+28, GOAL+32*
, GOAL+33, GOAL+35, GOAL+36, GOAL+37
F1 BUILD+2~
H BUILD+2~
IOF ADD+6, EDIT+9, DEL+12
N GETNUM+1~, GETNUM+2*, GETNUM+3, GETNUM+4, GETNUM+6*, GETNUM+7
P GETNUM~, GETNUM+3, GETNUM+4, GETNUM+5, GETNUM+6
U ADD+6, ADD+20, EDIT+7, DEL+13, HS+2, HS+3, HS+8, FS+2, GETNUM+5, GETNUM+6
, REVE+8, REVE+9, REV+7, FME+7, FMD+7, IG+3, IG1+6, IG1+7, IG1+8, IG1+9
, BUILD+5, GOAL+5, GOAL+13, GOAL+17, GOAL+27, GOAL+36
>> VALMBCK EXIT+2*
>> VALMCNT EXIT+4*
X GETGOAL+5*, ADD+12*, ADD+13!, EDIT+7*, EDIT+8, HS+2*, HS+3*, HS+4*, HS+5, REV+5*
, REV+6, REV+7, FMA+15!, BUILD+2~
Y GETGOAL+4, GETGOAL+5*, ADD+10, ADD+14, ADD+16, ADD+18, DEL+8, DEL+18, RNO+8, HS+3*
, HS+6, HS+7, HS+10*, REVE+12, FM12+6, FM12+7*, FM12+8, FM13+1!, FME+6, FMD+6
, FMA+7, FMA+11, FMA+12, FMA+15!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All