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

Package: Mental Health Social Services

Routine: AMHBPL1


Information

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

Source Information

Source file <AMHBPL1.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
Mental Health Social Services 6 PLUDE^AMHAPRB  (GATHER,HDR)^AMHBPL  (MN1,NO1,RNO1)^AMHBPL2  $$GETNUM^AMHLETN  $$PRIMPROV^AMHUTIL  $$DATE^AMHVRL  
VA Fileman 6 ^DIC  FILE^DICN  ^DIE  ^DIK  EN^DIQ  ^DIR  
IHS VA Utilities 3 ($$VAL,$$VALI,ENP)^XBDIQ1  ^XBFMK  VIEWR^XBLM  
Registration 2 TERM^VALM0  FULL^VALM1  
IHS Patient 1 ^AUPNPAT  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health Social Services 2 AMHBPL2  AMHBPL3  

Entry Points

Name Comments DBIA/ICR reference
STAT ;get status value
FS ;EP -called from protcol to display face sheet
ADD1 ;
DIE ;
DD ;EP - called from protocol to display (DIQ) a problem in detail
DEL ;EP - called from protocol to delete a problem on problem list
ACT ;EP - called from protocol to activate an inactive problem
NO ;
DD1 ;
KDIE ;kill all vars used by DIE
LBLK(V,L) ;left blank fill
HS ;EP - called from protocol to display health summary
INACT ;EP - called from protocol to inactivate an active problem
PAUSE ;EP
DELMOD ;
AN ;EP - add a note, called from protocol
ADD ;EP - called from protocol to add a problem to problem list
DDN ;EP
GETNUM(P) ;EP - get problem number given ien of problem entry
DELADD ;
RNO ;EP - called from protocol to remove a note
EDIT ;EP - called from protocol to modify a problem on problem list
MN ;EP - called from protocol to modify a note
DSPN ; DISPLAY SINGLE NOTE
GETPROB ;EP - get record
EXIT ;EP

External References

Name Field # of Occurrence
PLUDE^AMHAPRB NO+3, NO+4, EDIT+20, DEL+19, ACT+10, INACT+10
GATHER^AMHBPL EXIT+3
HDR^AMHBPL EXIT+5
MN1^AMHBPL2 MN+4
NO1^AMHBPL2 AN+4
RNO1^AMHBPL2 RNO+4
$$GETNUM^AMHLETN NO+5
$$PRIMPROV^AMHUTIL NO+3, NO+4, EDIT+20, DELMOD+7, DEL+13, DEL+19, ACT+10, INACT+10
$$DATE^AMHVRL DSPN+4
^AUPNPAT HS+11
^DIC HS+6
FILE^DICN ADD1+8, NO+8
^DIE DIE+2, ADD1+13, STAT+5, NO+13, EDIT+13, EDIT+16, DELMOD+4, DELMOD+5, DELMOD+8, DELMOD+10
, DEL+16
^DIK STAT+2
EN^DIQ DEL+6
^DIR GETPROB+3, ADD+22, ADD+28, STAT+1, NO+2, DELADD+3, EDIT+9, DELMOD+3, DELMOD+7, DEL+9
, DEL+13, PAUSE+1
TERM^VALM0 EXIT+1
FULL^VALM1 GETPROB+8, ADD+1, HS+2, FS+1
$$VAL^XBDIQ1 ADD+11, ADD+13, ADD+14, DELMOD+4, DELMOD+5, DELMOD+8, DSPN+5, DSPN+6, DSPN+8
$$VALI^XBDIQ1 ADD+13
ENP^XBDIQ1 DD1+2
^XBFMK DEL+20, AN+5, MN+5
VIEWR^XBLM HS+10, DD+4, FS+3
$$FMADD^XLFDT ADD+10
$$NOW^XLFDT ADD1+7, EDIT+13

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 BEHAVIORAL HEALTH PROBLEM."
  • Line Location: GETPROB+7
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !!!,"Adding a new BH Problem for ",$P(^DPT(AMHBPLPT,0),U),".",!!
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: "Purpose of Visit Diagnoses assigned to this patient in the past 90 days:",!
  • Line Location: ADD+3
Function Call: WRITE
  • Prompt: $$LBLK(AMHC,3),") ","Any Other Diagnosis",!
  • Line Location: ADD+21
Function Call: WRITE
  • Prompt: !!,"No diagnosis selected. "
  • Line Location: ADD+23
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADD+27
Function Call: WRITE
  • Prompt: !!,"No diagnosis selected. "
  • Line Location: ADD+29
Function Call: WRITE
  • Prompt: !!,"error generating problem entry"
  • Line Location: ADD1+9
Function Call: WRITE
  • Prompt: !!,"This is a required response, must be A or I, ""^"" to exit and delete the problem."
  • Line Location: STAT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: NO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: NO+6
Function Call: WRITE
  • Prompt: !,"error creating note entry"
  • Line Location: NO+10
Function Call: WRITE
  • Prompt: !
  • Line Location: NO+11
Function Call: WRITE
  • Prompt: !!,"Problem list entry is incomplete, it will be deleted."
  • Line Location: DELADD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DELADD+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !,"Editing Problem ... ",!!
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!,"^ing out...no editing logged."
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: !!,"Please Note: You are NOT permitted to delete a BH Problem without",!,"entering a reason for the deletion."
  • Line Location: DELMOD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DELMOD+3
Function Call: WRITE
  • Prompt: !,"okay, not deleted. status changed back to "_$$VAL^XBDIQ1(9002011.51,AMHPIEN,.12)
  • Line Location: DELMOD+4
Function Call: WRITE
  • Prompt: !,"okay, not deleted. status changed back to "_$$VAL^XBDIQ1(9002011.51,AMHPIEN,.12)
  • Line Location: DELMOD+5
Function Call: WRITE
  • Prompt: !!,"This is required."
  • Line Location: DELMOD+8
Function Call: WRITE
  • Prompt: !," Problem not deleted. status changed back to "_$$VAL^XBDIQ1(9002011.51,AMHPIEN,.12)
  • Line Location: DELMOD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DELMOD+11
Function Call: WRITE
  • Prompt: !!,"Deleting the following BH Problem from ",$P($P(^DPT(AMHPAT,0),U),",",2)," ",$P($P(^(0),U),","),"'s BH Problem List.",!
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !!,"Please Note: You are NOT permitted to delete a BH Problem without",!,"entering a reason for the deletion."
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+9
Function Call: WRITE
  • Prompt: !,"okay, not deleted."
  • Line Location: DEL+10
Function Call: WRITE
  • Prompt: !,"Okay, not deleted."
  • Line Location: DEL+11
Function Call: WRITE
  • Prompt: !!,"This is required."
  • Line Location: DEL+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+17
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 BH Problem ... "
  • Line Location: ACT+7
Function Call: WRITE
  • Prompt: !!,"That BH Problem is already INACTIVE!!",!
  • Line Location: INACT+5
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: INACT+7
Function Call: WRITE
  • Prompt: !,"Inactivating BH Problem ... "
  • Line Location: INACT+7
Function Call: WRITE
  • Prompt: !,"Notes: "
  • Line Location: DDN+4
Function Call: WRITE
  • Prompt: !!?3,AMHC,")",?7,"Date Added: ",AMHTDOI,?30,"Author: "_AMHAUTH
  • Line Location: DSPN+7
Function Call: WRITE
  • Prompt: !?3,"Note Narrative: "_$$VAL^XBDIQ1(9002011.53,X,.04)
  • Line Location: DSPN+8
Function Call: WRITE
  • Prompt: !?3,AMHTTPT_" TERM TREATMENT"
  • Line Location: DSPN+9
Routine Call
  • DIE
  • Line Location:
    • DIE+2
    • ADD1+13
    • STAT+5
    • NO+13
    • EDIT+13
    • EDIT+16
    • DELMOD+4
    • DELMOD+5
    • DELMOD+8
    • DELMOD+10
    • DEL+16
Routine Call
  • DIC
  • Line Location:
    • HS+6
Routine Call
  • DIR
  • Line Location:
    • GETPROB+3
    • ADD+22
    • ADD+28
    • STAT+1
    • NO+2
    • DELADD+3
    • EDIT+9
    • DELMOD+3
    • DELMOD+7
    • DEL+9
    • DEL+13
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APCHSCTL - [#9001015] Classic Fileman Calls
^AMHPPROB - [#9002011.51] Classic Fileman Calls
^AMHPTP - [#9002011.53] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPPROB - [#9002011.51] GETPROB+7, EDIT+4, EDIT+5, EDIT+12, EDIT+16, EDIT+18, ACT+5, INACT+5, GETNUM+4, GETNUM+5
, GETNUM+6
^AMHPPROB("AA" ADD1+2
^AMHPROB - [#9002012.2] ADD1+11, EDIT+9, EDIT+16
^AMHPTP - [#9002011.53] DSPN+3
^AMHPTP("AE" DDN+3, DDN+5, DSPN+1
^AMHREC - [#9002011] ADD+9
^AMHRPRO - [#9002011.01] ADD+7, ADD+8, ADD+12
^AMHRPRO("AC" ADD+6
^APCCCTRL - [#9001000] HS+3
^APCHSCTL - [#9001015] HS+3, HS+4
^AUTTLOC - [#9999999.06] GETNUM+6
^DD(9002011.51 DD1+4
^DISV( HS+4
^DPT - [#2] ADD+2, DEL+5, HS+9, FS+2

Label References

Name Line Occurrences
$$LBLK ADD+18, ADD+21
ADD1 ADD+25
DELADD STAT+2
DELMOD EDIT+18
DIE EDIT+17, ACT+8, INACT+8
DSPN DDN+5
EXIT ADD+23, ADD+29, ADD1+9, STAT+2, NO+3, NO+4, NO+10, EDIT+3, EDIT+10, EDIT+21
, DEL+3, DEL+10, DEL+11, DEL+14, DEL+20, AN+3, AN+5, MN+3, MN+5, RNO+3
, RNO+5, ACT+4, ACT+5, ACT+11, INACT+4, INACT+5, INACT+11, HS+7, HS+13, DD+3
, DD+5, FS+5
GETPROB EDIT+2, DEL+2, AN+2, MN+2, RNO+2, ACT+3, INACT+3, DD+2
KDIE ADD1+13, STAT+5, EXIT+7
NO NO+14
PAUSE ADD+23, ADD+29, ADD1+9, STAT+2, NO+10, EDIT+3, EDIT+10, DELMOD+4, DELMOD+5, DELMOD+8
, DEL+3, DEL+10, DEL+11, DEL+14, DEL+20, AN+3, MN+3, MN+5, RNO+3, RNO+5
, ACT+4, ACT+5, INACT+4, INACT+5, HS+7, DD+3
STAT STAT+2, STAT+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KDIE+1!, LBLK+1~, LBLK+2*
AGDENT FS+4!
AGMVDF FS+4!
AGOPT FS+4!
AMCHDAYS HS+12!
AMCHDOB HS+12!
AMHAF EXIT+6!
AMHANS ADD+4~, ADD+24*, ADD+25, STAT+4*, STAT+5
AMHAPIEN ADD+4~, ADD1+10*, ADD1+13, STAT+2, STAT+5, NO+3, NO+4, NO+5, NO+7
AMHAR DD1+2~
AMHAR( DD1+3, DD1+5
AMHAUTH DD+1~, DSPN+6*, DSPN+7
>> AMHBHPL("IDX" GETPROB+6
>> AMHBPLPT ADD+2, HS+9
AMHC ADD+4~, ADD+5*, ADD+17*, ADD+18, ADD+19, ADD+20*, ADD+21, ADD+22, DDN+2*, DSPN+2*
, DSPN+7, DSPN+10
AMHCODE ADD+4~, ADD+25*, ADD+26*, ADD+30*, ADD1+6, ADD1+11
>> AMHDATE ACT+2, INACT+2
>> AMHDEL STAT+2, DELADD+1*, DELADD+6*
AMHF EXIT+6!
AMHH DD1+2~, DD1+4*, DD1+6
AMHHDR HS+1~, HS+9*, HS+10, HS+12!, FS+2*, FS+3, FS+4!
>> AMHLINE EXIT+4
AMHNARR ADD+4~, ADD1+11*, ADD1+13
AMHNDT ACT+1~, ACT+2*, INACT+1~, INACT+2*
AMHNEWC EDIT+1~, EDIT+11*, EDIT+12*, EDIT+13
AMHNIEN ADD+4~, NO+12*, NO+13
AMHNNUM ADD+4~, NO+5*, NO+7
AMHNOTES DDN+1!
AMHNOTES( DSPN+10*
AMHNUM ADD+4~, ADD1+2*, ADD1+3*, ADD1+4*, ADD1+5*, ADD1+7
AMHOLDD EDIT+1~, EDIT+5*, EDIT+9, EDIT+16
AMHOLDS EDIT+1~, EDIT+4*, DELMOD+4, DELMOD+5, DELMOD+8
AMHOTH ADD+4~, ADD+20*, ADD+25
>> AMHOVRR ADD1+12*
AMHP GETPROB+5*, GETPROB+6, GETPROB+7!, EXIT+6!
AMHP0 EXIT+6!
>> AMHPAT ADD+6, ADD1+2, ADD1+7, NO+3, NO+4, NO+7, EDIT+20, DEL+5, DEL+19, ACT+10
, INACT+10, HS+8, HS+11, FS+2
AMHPIEN DIE+2, GETPROB+1*, GETPROB+6*, GETPROB+7*, EDIT+1~, EDIT+3, EDIT+4, EDIT+5, EDIT+12, EDIT+13
, EDIT+16, EDIT+18, EDIT+19, EDIT+20, DELMOD+4, DELMOD+5, DELMOD+8, DELMOD+10, DEL+1~, DEL+3
, DEL+6, DEL+16, DEL+18, DEL+19, AN+1~, AN+3, MN+1~, MN+3, RNO+1~, RNO+3
, ACT+1~, ACT+4, ACT+5, ACT+9, ACT+10, INACT+1~, INACT+4, INACT+5, INACT+9, INACT+10
, DD+1~, DD+3, DD1+2, DDN+3, DDN+5, DSPN+1, EXIT+6!
AMHPOVS ADD+4~
AMHPOVS( ADD+15*, ADD+16, ADD+18, ADD+19
AMHPOVS1 ADD+4~
AMHPOVS1( ADD+19*, ADD+25
AMHPRB EXIT+6!
>> AMHPRCNT GETPROB+2, GETPROB+3
AMHPRMT EXIT+6!
>> AMHPRV DELMOD+9*, DEL+15*
>> AMHR NO+3, NO+4, EDIT+20, DELMOD+7, DEL+13, DEL+19, ACT+10, INACT+10
AMHTDOI DD+1~, DSPN+4*, DSPN+7
AMHTEMP DIE+2, EDIT+1~, EDIT+6*, ACT+6*, INACT+6*, EXIT+6!
AMHTN DD+1~, DSPN+3*, DSPN+4
AMHTNDF DD+1~, DDN+5*, DSPN+1
AMHTNRQ DD+1~
>> AMHTQ DDN+5*
AMHTTPT DD+1~, DSPN+5*, DSPN+9
AMHTY ADD+4~, ADD1+2*, ADD1+3
AMHZ DD1+2~, DD1+5*, DD1+6
ANHPRV DEL+1~
>> APCDOVRR ADD1+12*
APCHSMTY HS+12!
APCHSPAT HS+8*, HS+12!
APCHSTAT HS+12!
APCHSTYP HS+8*, HS+12!
D ADD+4~, ADD+8*, ADD+9*, ADD+10
D0 KDIE+1!, ADD1+1!, ADD1+8!, HS+6!
D1 HS+6!
DA DIE+2*, KDIE+1!, GETPROB+3!, ADD+22!, ADD+28!, ADD1+1!, ADD1+13*, STAT+1!, STAT+2*!, STAT+5*
, NO+2!, NO+9!, NO+13*!, EDIT+9!, EDIT+13*!, EDIT+16*!, EDIT+19*, DELMOD+4!*, DELMOD+5!*, DELMOD+7!
, DELMOD+8!*, DELMOD+10*!, DEL+6*, DEL+13!, DEL+16*!, DEL+18*, ACT+9*, INACT+9*, HS+6!
DD ADD1+1!, HS+6!
>> DFN HS+11*
DI KDIE+1!
DIADD ADD1+1!, ADD1+6*, ADD1+8!, NO+7*, NO+9!
DIC ADD1+1!, ADD1+6*, ADD1+8!, NO+7*, NO+9!, DEL+6*, HS+6!*
DIC("B" HS+6*
DIC("DR" ADD1+7*, NO+7*
DIC(0 ADD1+6*, NO+7*, HS+6*
DIE DIE+2*, KDIE+1!, ADD1+8!, ADD1+13*, STAT+5*, NO+13*!, EDIT+13*!, EDIT+16*!, DELMOD+4!*, DELMOD+5!*
, DELMOD+8!*, DELMOD+10*!, DEL+16*!
DIE("NO^" DIE+1*, ADD1+13*, EDIT+13*
DIK STAT+2*!
DINUM ADD1+1!
DIR GETPROB+3!, ADD+22!, ADD+28!, STAT+1!, NO+2!, DELADD+3!, EDIT+9!, DELMOD+3!, DELMOD+7!, DEL+9!
, DEL+13!, PAUSE+1!
DIR("A" GETPROB+3*, ADD+22*, ADD+28*, STAT+1*, NO+2*, DELADD+3*, EDIT+9*, DELMOD+3*, DELMOD+6*, DEL+9*
, DEL+12*, PAUSE+1*
DIR("B" ADD+22*, STAT+1*, NO+2*, DELADD+3*, EDIT+9*, DELMOD+3*, DELMOD+7*, DEL+9*, DEL+13*
DIR(0 GETPROB+3*, ADD+22*, ADD+28*, STAT+1*, NO+2*, DELADD+3*, EDIT+9*, DELMOD+3*, DELMOD+6*, DEL+9*
, DEL+12*, PAUSE+1*
>> DIRUT GETPROB+4, ADD+23, ADD+29, STAT+2, NO+3, DELADD+3*, DELADD+4, EDIT+10, DELMOD+3*, DELMOD+4
, DELMOD+8, DEL+9*, DEL+10, DEL+14, PAUSE+1*
DIU KDIE+1!
DIV KDIE+1!
DIW KDIE+1!
DIY KDIE+1!
DLAYGO KDIE+1!, ADD1+6*, ADD1+8!, NO+7*, NO+9!
DO KDIE+1!, ADD1+1!
DQ KDIE+1!, HS+6!
DR DIE+2*, KDIE+1!, ADD1+1!, ADD1+8!, ADD1+13*, STAT+5*, NO+13*!, EDIT+13*!, EDIT+16*!, DELMOD+4!*
, DELMOD+5!*, DELMOD+8!*, DELMOD+10*!, DEL+16*!, HS+6!
DT ADD+10, NO+7
>> DUOUT DELADD+3, DELMOD+3, DEL+9, PAUSE+1
DUZ ADD1+7, HS+4
DUZ(2 ADD1+7, HS+3
F DD1+2~, DD1+3*, DD1+4, DD1+5, GETNUM+1~, GETNUM+5*, GETNUM+6
I ADD+12*, ADD+15, LBLK+1~, LBLK+2*
IOF ADD+2, EDIT+7, DEL+4, ACT+7, INACT+7
L LBLK~, LBLK+2
N ADD+4~, ADD+13*, ADD+15, GETNUM+1~, GETNUM+2*, GETNUM+3, GETNUM+4, GETNUM+6*, GETNUM+7
P ADD+4~, ADD+14*, ADD+15, GETNUM~, GETNUM+3, GETNUM+4, GETNUM+5, GETNUM+6
U ADD+2, ADD+8, ADD+9, ADD+12, ADD+15, ADD+18, ADD+25, ADD1+11, EDIT+4, EDIT+5
, EDIT+9, EDIT+12, EDIT+16, EDIT+18, DEL+5, ACT+5, INACT+5, HS+3, HS+4, HS+9
, DD1+4, DSPN+4, FS+2, GETNUM+5, GETNUM+6
V LBLK~, LBLK+2*, LBLK+3
>> VALMBCK EXIT+2*
>> VALMCNT EXIT+4*
X GETPROB+6*, ADD+4~, ADD+6*, ADD+7, ADD+8, ADD+11, ADD+12, ADD+13, ADD+14, ADD1+6*
, ADD1+8!, NO+7*, HS+3*, HS+4*, HS+5*, HS+6, DSPN+1*, DSPN+3, DSPN+5, DSPN+6
, DSPN+8, DSPN+10
Y GETPROB+5, GETPROB+6*, ADD+4~, ADD+11*, ADD+15, ADD+16*, ADD+18, ADD+19, ADD+24, ADD+30
, ADD1+9, ADD1+10, STAT+3, STAT+4, NO+4, NO+10, NO+12, DELADD+5, EDIT+11, DELMOD+5
, DELMOD+9, DEL+11, DEL+15, HS+4*, HS+7, HS+8, HS+11*
>> Z LBLK+2*
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 |  Naked Globals |  Local Variables |  All