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 |  Marked Items |  All
Print Page as PDF
Routine: AMHPL1

Package: Mental Health Social Services

Routine: AMHPL1


Information

AMHPL1 ; IHS/CMI/LAB - problem list update from list manager ;

Source Information

Source file <AMHPL1.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Mental Health Social Services 4 (NAPPCC,PLRPCC,PLUPCC)^AMHAPRB  (MN1,NO1,RNO1)^AMHPL2  $$PRIMPROV^AMHUTIL  $$IMP^AMHUTIL2  
VA Fileman 3 ^DIC  ^DIE  ^DIR  
DRG Grouper 2 $$CODEN^ICDCODE  ($$CODEN,ICDDX)^ICDEX  
IHS VA Utilities 2 ^XBFMK  (DIQ,VIEWR)^XBLM  
Registration 2 TERM^VALM0  FULL^VALM1  
IHS Patient 1 ^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
ANYACTP(P,EDATE) ;EP - does this patient have any active problems IN PCC?
PLRDE1 ;EP - called from xbnew
FS ;EP -called from protcol to display face sheet
HS ;EP - called from protocol to display health summary
DD ;EP - called from protocol to display (DIQ) a problem in detail
NAP ;EP - called from protocol to DOCUMENT NO ACTIVE PROBLEMS IN PCC
DEL ;EP - called from protocol to delete a problem on problem list
ANYACTBP(P,EDATE) ;EP - does this patient have any active problems IN BH?
ACT ;EP - called from protocol to activate an inactive problem
KDIE ;kill all vars used by DIE
DIE ;
INACT ;EP - called from protocol to inactivate an active problem
PAUSE ;EP
AN ;EP - add a note, called from protocol
ADD ;EP - called from protocol to add a problem to problem list
NAPDE1 ;EP - called from xbnew
GETNUM(P) ;EP - get problem number given ien of problem entry
NAPDE1P ;GET PROVIDER
PLRDE1P ;GET PROVIDER
RNO ;EP - called from protocol to remove a note
PLR ;EP - called from protocol to DOCUMENT NO ACTIVE PROBLEMS IN PCC
EDIT ;EP - called from protocol to modify a problem on problem list
MN ;EP - called from protocol to modify a note
GETPROB ;get record
EXIT ;

External References

Name Field # of Occurrence
NAPPCC^AMHAPRB NAPDE1P+5
PLRPCC^AMHAPRB PLRDE1P+5
PLUPCC^AMHAPRB ADD+19, EDIT+9, DEL+13, ACT+9, INACT+8
MN1^AMHPL2 MN+4
NO1^AMHPL2 AN+4
RNO1^AMHPL2 RNO+4
$$PRIMPROV^AMHUTIL ADD+19, EDIT+9, DEL+13, ACT+9, INACT+8, NAPDE1P+2, PLRDE1P+2
$$IMP^AMHUTIL2 ADD+10
^AUPNPAT HS+10
^DIC ADD+7, HS+5
^DIE DIE+1, ADD+17, DEL+11
^DIR GETPROB+3, DEL+8, PAUSE+1, NAP+11, NAPDE1+1, NAPDE1+6, NAPDE1P+2, PLRDE1+1, PLRDE1+6, PLRDE1P+2
$$CODEN^ICDCODE ADD+11
$$CODEN^ICDEX ADD+12
ICDDX^ICDEX ADD+11, ADD+12
TERM^VALM0 EXIT+4
FULL^VALM1 GETPROB+8, ADD+1, DEL+1, HS+1, FS+1, NAP+1, PLR+1
^XBFMK DEL+14
DIQ^XBLM DD+4
VIEWR^XBLM HS+9, FS+3
$$FMTE^XLFDT NAPDE1+5, PLRDE1+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No problems to select."
  • Line Location: GETPROB+2
Function Call: WRITE
  • Prompt: !!,"No Problem Selected"
  • Line Location: GETPROB+4
Function Call: WRITE
  • Prompt: !,"Not a valid PCC PROBLEM."
  • Line Location: GETPROB+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !,"Adding a new problem for ",$P(^DPT(AMHPLPT,0),U),".",!!
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !!,"No diagnosis code selected."
  • Line Location: ADD+8
Function Call: WRITE
  • Prompt: !!,"no icd code mapped to that code."
  • Line Location: ADD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ADD+18
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !,"Editing Problem ... "
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: !!,"Please Note: You are NOT permitted to delete a PCC problem without",!,"entering a reason for the deletion."
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !,"okay, not deleted."
  • Line Location: DEL+9
Function Call: WRITE
  • Prompt: !,"Okay, not deleted."
  • Line Location: DEL+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+12
Function Call: WRITE
  • Prompt: !!,"That problem is already ACTIVE!!"
  • Line Location: ACT+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: ACT+7
Function Call: WRITE
  • Prompt: !,"Activating Problem ... "
  • Line Location: ACT+7
Function Call: WRITE
  • Prompt: !!,"That problem is already INACTIVE!!",!
  • Line Location: INACT+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: INACT+6
Function Call: WRITE
  • Prompt: !,"Inactivating Problem ... "
  • Line Location: INACT+6
Function Call: WRITE
  • Prompt: !,"No action taken."
  • Line Location: NAPDE1+2
Function Call: WRITE
  • Prompt: !,"No action taken."
  • Line Location: NAPDE1+3
Function Call: WRITE
  • Prompt: !!,"This is required."
  • Line Location: NAPDE1+7
Function Call: WRITE
  • Prompt: !!,"Future Dates not allowed.",!
  • Line Location: NAPDE1+8
Function Call: WRITE
  • Prompt: !!,"This is required."
  • Line Location: NAPDE1P+3
Function Call: WRITE
  • Prompt: !!,"error: ",$P(AMHRET,U,2)
  • Line Location: NAPDE1P+7
Function Call: WRITE
  • Prompt: !,"No action taken."
  • Line Location: PLRDE1+2
Function Call: WRITE
  • Prompt: !,"No action taken."
  • Line Location: PLRDE1+3
Function Call: WRITE
  • Prompt: !!,"This is required."
  • Line Location: PLRDE1+7
Function Call: WRITE
  • Prompt: !!,"Future Dates not allowed.",!
  • Line Location: PLRDE1+8
Function Call: WRITE
  • Prompt: !!,"This is required."
  • Line Location: PLRDE1P+3
Function Call: WRITE
  • Prompt: !!,"error: ",$P(AMHRET,U,2)
  • Line Location: PLRDE1P+7
Routine Call
  • DIE
  • Line Location:
    • DIE+1
    • ADD+17
    • DEL+11
Routine Call
  • DIC
  • Line Location:
    • ADD+7
    • HS+5
Routine Call
  • DIR
  • Line Location:
    • GETPROB+3
    • DEL+8
    • PAUSE+1
    • NAP+11
    • NAPDE1+1
    • NAPDE1+6
    • NAPDE1P+2
    • PLRDE1+1
    • PLRDE1+6
    • PLRDE1P+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUPNPROB - [#9000011] Classic Fileman Calls
^APCHSCTL - [#9001015] Classic Fileman Calls
^AMHPROB - [#9002012.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPPROB - [#9002011.51] ANYACTBP+6, ANYACTBP+7, ANYACTBP+8
^AMHPPROB("AC" ANYACTBP+5
^AMHPROB - [#9002012.2] ADD+10
^APCCCTRL - [#9001000] HS+2
^APCHSCTL - [#9001015] HS+2, HS+3
^AUPNPROB - [#9000011] GETPROB+7, ACT+5, INACT+4, GETNUM+4, GETNUM+5, GETNUM+6, ANYACTP+6, ANYACTP+7, ANYACTP+8
^AUPNPROB("AC" ANYACTP+5
^AUTTLOC - [#9999999.06] GETNUM+6
^DISV( HS+3
^DPT - [#2] ADD+6, HS+8, FS+2
^TMP($J GETPROB+6

Label References

Name Line Occurrences
$$ANYACTBP NAP+7
$$ANYACTP NAP+3
DIE EDIT+7, ACT+8, INACT+7
EXIT GETPROB+4, ADD+8, ADD+13, ADD+20, EDIT+3, EDIT+10, DEL+4, DEL+9, DEL+10, DEL+14
, AN+3, AN+5, MN+3, MN+5, RNO+3, RNO+5, ACT+4, ACT+5, ACT+10, INACT+3
, INACT+4, INACT+9, HS+6, HS+12, DD+3, DD+5, FS+5, NAP+6, NAP+7, NAPDE1+2
, NAPDE1+3, NAPDE1P+8, PLRDE1+2, PLRDE1+3, PLRDE1P+8
GETPROB EDIT+2, DEL+3, AN+2, MN+2, RNO+2, ACT+3, INACT+2, DD+2
KDIE ADD+17, EXIT+10
NAPDE1 NAPDE1+7, NAPDE1+8, PLRDE1+7, PLRDE1+8
NAPDE1P NAPDE1P+3, PLRDE1P+3
PAUSE GETPROB+4, ADD+8, ADD+13, EDIT+3, DEL+4, DEL+9, DEL+10, DEL+14, AN+3, MN+3
, MN+5, RNO+3, RNO+5, ACT+4, ACT+5, INACT+3, INACT+4, HS+6, DD+3, NAP+6
, NAP+7, NAPDE1+2, NAPDE1+3, NAPDE1P+8, PLRDE1+2, PLRDE1+3, PLRDE1P+8

Naked Globals

Name Field # of Occurrence
^("^APCHSCTL(" HS+3
^(0 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!
AMHAF EXIT+9!
>> AMHDATE ADD+5*, ADD+10, ACT+2, NAPDE1+5, PLRDE1+5
AMHDD NAP+2~, NAPDE1+9*, NAPDE1P+5, PLR+2~, PLRDE1+9*, PLRDE1P+5
AMHF EXIT+9!
AMHHDR HS+8*, HS+9, HS+11!, FS+2*, FS+3, FS+4!
>> AMHLOC ADD+4*
AMHNDT ACT+1~, ACT+2*, INACT+1~
AMHNOGO NAP+2~, NAP+7, NAP+9*, NAP+12*, NAP+13*, PLR+2~
AMHP GETPROB+5*, GETPROB+6, GETPROB+7!, EXIT+9!
AMHP0 EXIT+9!
>> AMHPAT ADD+3*, NAP+3, NAP+7
AMHPIEN DIE+1, GETPROB+1*, GETPROB+6*, GETPROB+7*, ADD+9~, ADD+19, EDIT+1~, EDIT+3, EDIT+4, EDIT+9
, DEL+2~, DEL+4, DEL+5, DEL+11, DEL+13, AN+1~, AN+3, MN+1~, MN+3, RNO+1~
, RNO+3, ACT+1~, ACT+4, ACT+5, ACT+9, INACT+1~, INACT+3, INACT+4, INACT+8, DD+1~
, DD+3, DD+4, EXIT+9!
>> AMHPLPT ADD+2, ADD+3, ADD+6, ADD+17, HS+7, HS+8, HS+10, FS+2
AMHPPTR ADD+9~, ADD+10*, EXIT+9!
AMHPRB EXIT+9!
AMHPRMT EXIT+9!
>> AMHPRV NAPDE1P+4*, NAPDE1P+5, PLRDE1P+4*, PLRDE1P+5
>> AMHR ADD+19, EDIT+9, DEL+13, ACT+9, INACT+8, NAPDE1P+2, NAPDE1P+5, PLRDE1P+2, PLRDE1P+5
>> AMHRCNT GETPROB+2, GETPROB+3
AMHTEMP DIE+1, EDIT+5*, ACT+6*, INACT+5*, EXIT+9!
APCDLOOK ADD+9~, ADD+10*, ADD+11*, ADD+12*, ADD+13, ADD+14*, EXIT+9!
APCDOVRR ADD+15*, EXIT+1!
APCDPIEN EDIT+4*, EDIT+7!, DEL+5*, EXIT+3!
APCHSMTY HS+11!
APCHSPAT HS+7*, HS+11!
APCHSTAT HS+11!
APCHSTYP HS+7*, HS+11!
D0 KDIE+1!, HS+5!
D1 HS+5!
DA DIE+1*, KDIE+1!, GETPROB+3!, ADD+17*, DEL+11*!, HS+5!, NAP+11!, NAPDE1+1!, NAPDE1+6!, NAPDE1P+2!
, PLRDE1+1!, PLRDE1+6!, PLRDE1P+2!
DD HS+5!
>> DFN HS+10*
DI KDIE+1!
DIC ADD+7*, HS+5!*
DIC("A" ADD+7*
DIC("B" HS+5*
DIC(0 ADD+7*, HS+5*
DIE DIE+1*, KDIE+1!, ADD+17*, DEL+11*!
DIE("NO^" ADD+17*
DIR GETPROB+3!, DEL+8!, PAUSE+1!, NAP+10!, NAP+11!, NAPDE1+1!, NAPDE1+6!, NAPDE1P+2!, PLRDE1+1!, PLRDE1+6!
, PLRDE1P+2!
DIR("?" NAPDE1+5*, PLRDE1+5*
DIR("A" GETPROB+3*, DEL+8*, PAUSE+1*, NAP+11*, NAPDE1+1*, NAPDE1+4*, NAPDE1P+1*, PLRDE1+1*, PLRDE1+4*, PLRDE1P+1*
DIR("B" DEL+8*, NAP+11*, NAPDE1+1*, NAPDE1+5*, NAPDE1P+2*, PLRDE1+1*, PLRDE1+5*, PLRDE1P+2*
DIR(0 GETPROB+3*, DEL+8*, PAUSE+1*, NAP+11*, NAPDE1+1*, NAPDE1+4*, NAPDE1P+1*, PLRDE1+1*, PLRDE1+4*, PLRDE1P+1*
>> DIRUT GETPROB+4, DEL+8*, DEL+9, PAUSE+1*, NAP+12, NAPDE1+2, NAPDE1+7, NAPDE1P+3, PLRDE1+2, PLRDE1+7
, PLRDE1P+3
DIU KDIE+1!
DIV KDIE+1!
DIW KDIE+1!
DIY KDIE+1!
DLAYGO KDIE+1!, ADD+17*, ADD+20!, EXIT+2!
DO KDIE+1!
DQ KDIE+1!, HS+5!
DR DIE+1*, KDIE+1!, ADD+17*, DEL+11*!, HS+5!
DT ADD+5, NAP+3, NAP+7, NAPDE1+5, NAPDE1+8, PLRDE1+5, PLRDE1+8
>> DUOUT DEL+8, PAUSE+1
DUZ HS+3
DUZ(2 ADD+4, HS+2
EDATE ANYACTP~, ANYACTP+2*, ANYACTP+8, ANYACTBP~, ANYACTBP+2*, ANYACTBP+8
F GETNUM+1~, GETNUM+5*, GETNUM+6
IOF ADD+6, EDIT+6, ACT+7, INACT+6
N GETNUM+1~, GETNUM+2*, GETNUM+3, GETNUM+4, GETNUM+6*, GETNUM+7
P GETNUM~, GETNUM+3, GETNUM+4, GETNUM+5, GETNUM+6, ANYACTP~, ANYACTP+1, ANYACTP+5, ANYACTBP~, ANYACTBP+1
, ANYACTBP+5
U ADD+6, ADD+10, ACT+5, INACT+4, HS+2, HS+3, HS+8, FS+2, GETNUM+5, GETNUM+6
, ANYACTP+7, ANYACTP+8, ANYACTBP+7, ANYACTBP+8
>> VALMBCK EXIT+5*
X GETPROB+6*, HS+2*, HS+3*, HS+4*, HS+5, ANYACTP+3~, ANYACTP+5*, ANYACTP+6, ANYACTP+7, ANYACTP+8
, ANYACTBP+3~, ANYACTBP+5*, ANYACTBP+6, ANYACTBP+7, ANYACTBP+8
Y GETPROB+5, GETPROB+6*, ADD+8, ADD+10, DEL+10, HS+3*, HS+6, HS+7, HS+10*, NAP+13
, NAPDE1+3, NAPDE1+8, NAPDE1+9, NAPDE1P+4, ANYACTP+3~, ANYACTBP+3~, PLRDE1+3, PLRDE1+8, PLRDE1+9, PLRDE1P+4
Z ANYACTP+3~, ANYACTP+4*, ANYACTP+5, ANYACTP+9*, ANYACTP+11, ANYACTBP+3~, ANYACTBP+4*, ANYACTBP+5, ANYACTBP+9*, ANYACTBP+11

Marked Items

Name Field # of Occurrence
$T(ICDDX^ICDEX ADD+11, ADD+12
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 |  Marked Items |  All