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

Package: Mental Health Social Services

Routine: AMHLEIV


Information

AMHLEIV ; IHS/CMI/LAB - NO DESCRIPTION PROVIDED 16-JAN-1997 14 Sep 2009 12:21 PM ;

Source Information

Source file <AMHLEIV.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA Fileman 5 FILE^DICN  ^DIE  ^DIK  EN^DIQ  ^DIR  
Mental Health Social Services 4 ($$ESIGINT,ESIGGFII)^AMHESIG  PAUSE^AMHLEA  PRINT^AMHLEIV3  $$PRIMPROV^AMHUTIL  
Registration 4 EN^VALM  TERM^VALM0  ($$FTIME,FULL)^VALM1  EN^VALM2  
IHS VA Utilities 2 ($$VAL,$$VALI)^XBDIQ1  $$EXTSET^XBFUNC  
IHS Patient 1 ^AUPNPAT  
Kernel 1 DISP^XQORM1  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Mental Health Social Services 5 AMHGDINT  AMHLEA  AMHLEIV3  AMHLEIVP  AMHLEP2  

Entry Points

Name Comments DBIA/ICR reference
DISP ;
HELP ; -- help code
EXPND ; -- expand code
DEL ;EP - called from protocol entry
D(D) ;EP
PRINT ;
SIGNINT1
HDR ;EP -- header code
ALLOWINT(P,I) ;EP
UPD1 ;
DEL1 ;are you sure??
INIT ; -- init variables and list array
EP1(AMHR,P) ;EP - CALLED FROM PROTOCOL FROM THE OTHER INFORMATION MENU AFTER VISIT ENTRY
EN ; -- main entry point for AMH UPDATE PATIENT CASE DATA
SIGNINT(AMHRX) ;sign intake
UPD ;
ADD ;
UPDE ;
EP ;EP CALLED FROM DATA ENTRY
ADDUPD ;
EDIT ;
GATHER ;EP
EXIT ;EP -- exit code

External References

Name Field # of Occurrence
$$ESIGINT^AMHESIG SIGNINT1+1
ESIGGFII^AMHESIG SIGNINT1+9
PAUSE^AMHLEA EP1+1, ADD+13, ADD+14, ADD+20, ADD+27, EDIT+6, EDIT+7, EDIT+9, EDIT+12, EDIT+20
, PRINT+6, PRINT+9, DEL+3, DEL+9, DEL1+17, DEL1+20, DISP+1, DISP+4, DISP+8, UPD+7
, UPD1+14, UPDE+1, UPDE+4, UPDE+10, ADDUPD+8, ADDUPD+9
PRINT^AMHLEIV3 PRINT+8
$$PRIMPROV^AMHUTIL ADD+23, ADDUPD+18
^AUPNPAT EP+4
FILE^DICN ADD+18, ADDUPD+13
^DIE ADD+24, ADD+25, SIGNINT1+8, EDIT+14, UPDE+6, ADDUPD+19, ADDUPD+20
^DIK DISP+5
EN^DIQ DISP+2
^DIR ADD+12, SIGNINT1+5, DEL1+11, DISP+3, UPD1+12, ADDUPD+7
EN^VALM EN+2
TERM^VALM0 EXIT+2
$$FTIME^VALM1 HDR+2
FULL^VALM1 EP1+1, EP1+7, ADD+2, EDIT+8, PRINT+7, DEL+2, UPD+9, ADDUPD+1
EN^VALM2 EDIT+2, PRINT+2, DEL+5, UPD+3
$$VAL^XBDIQ1 GATHER+14, GATHER+15, GATHER+21, ADD+11, DEL1+9, UPD1+10, ADDUPD+6, ADDUPD+11
$$VALI^XBDIQ1 EDIT+12, DEL1+9, UPD1+10, UPDE+4
$$EXTSET^XBFUNC HDR+1
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You must first select a visit."
  • Line Location: EP1+1
Function Call: WRITE
  • Prompt: !!,"There is already an Initial Intake on this visit.",!
  • Line Location: ADD+10
Function Call: WRITE
  • Prompt: !,"Adding Intake for ",$$VAL^XBDIQ1(2,AMHPAT,.01)
  • Line Location: ADD+11
Function Call: WRITE
  • Prompt: !!,"error creating Initial Intake document...."
  • Line Location: ADD+20
Function Call: WRITE
  • Prompt: !!,"Initial Intake document created..."
  • Line Location: ADD+26
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !,"Not a valid BH INTAKE."
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !!,"This is not an Initial Intake. Use option U to edit an Update to",!,"an Intake document."
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !!,"This Initial Intake document has been signed. You cannot edit it."
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !!,"Initial Intake document updated...."
  • Line Location: EDIT+20
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"Not a valid BH INTAKE."
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to delete an Intake document.",!,"Please see your supervisor or program manager.",!
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !,"Not a valid BH INTAKE."
  • Line Location: DEL+9
Function Call: WRITE
  • Prompt: !!,"You can now select which Intake or Update document to delete. Initial Intake ",!,"documents that have Updates associated with them cannot be deleted.",!
  • Line Location: DEL1+5
Function Call: WRITE
  • Prompt: !?5,"0",?10,"Quit/Exit"
  • Line Location: DEL1+6
Function Call: WRITE
  • Prompt: !?5,AMHC,?10,"Date: ",$$D($$VALI^XBDIQ1(9002011.13,AMHX,.01))," Provider: ",$E($$VAL^XBDIQ1(9002011.13,AMHX,.04),1,15),?51,$E($$VAL^XBDIQ1(9002011.13,AMHX,.05),1,13),?65,$$VAL^XBDIQ1(9002011.13,AMHX,.09)
  • Line Location: DEL1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL1+10
Function Call: WRITE
  • Prompt: !!,"This Initial Intake has Updates associated with it, it cannot be deleted."
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,$S(AMHRIU="I":"Initial Intake",1:"Update")_" document not deleted."
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!,$S(AMHRIU="I":"Initial Intake",1:"Update")_" document deleted."
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,"No records selected."
  • Line Location: UPD+4
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: UPD+5
Function Call: WRITE
  • Prompt: !,"Not a valid BH INTAKE."
  • Line Location: UPD+7
Function Call: WRITE
  • Prompt: !!,"This is not an Initial Intake. Use option U to edit an update to",!,"an intake document."
  • Line Location: UPD+8
Function Call: WRITE
  • Prompt: !!,"This intake document has been signed. You cannot edit it."
  • Line Location: UPD+10
Function Call: WRITE
  • Prompt: !!,"You can either add a new Update to this Intake document or edit an "
  • Line Location: UPD1+4
Function Call: WRITE
  • Prompt: !,"existing, unsigned one on which you are the provider. Please select an Update"
  • Line Location: UPD1+5
Function Call: WRITE
  • Prompt: !,"to edit or choose ",AMHA," to add a new one or 0 to quit.",!
  • Line Location: UPD1+6
Function Call: WRITE
  • Prompt: !?5,"0",?10,"Quit/Exit Update"
  • Line Location: UPD1+7
Function Call: WRITE
  • Prompt: !?5,AMHA,?10,"Add new Update document",!
  • Line Location: UPD1+11
Function Call: WRITE
  • Prompt: !!,"This Intake Update document has been signed. You cannot edit it."
  • Line Location: UPDE+1
Function Call: WRITE
  • Prompt: !!,"Intake Update document updated...."
  • Line Location: UPDE+10
Function Call: WRITE
  • Prompt: !,"Adding Intake Update for ",$$VAL^XBDIQ1(2,AMHPAT,.01)
  • Line Location: ADDUPD+6
Function Call: WRITE
  • Prompt: !!,"Error creating Update to the Intake document...."
  • Line Location: ADDUPD+15
Function Call: WRITE
  • Prompt: !!,"Intake Update document created..."
  • Line Location: ADDUPD+21
Routine Call
  • VALM
  • Line Location:
    • EN+2
Routine Call
  • DIE
  • Line Location:
    • ADD+24
    • ADD+25
    • SIGNINT1+8
    • EDIT+14
    • UPDE+6
    • ADDUPD+19
    • ADDUPD+20
Routine Call
  • DIR
  • Line Location:
    • ADD+12
    • SIGNINT1+5
    • DEL1+11
    • DISP+3
    • UPD1+12
    • ADDUPD+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHRINTK - [#9002011.13] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] EP1+5, EP+3, EP+5, ADD+4, ADDUPD+3
^AMHRINTK - [#9002011.13] GATHER+7, GATHER+8, GATHER+9, GATHER+13, GATHER+19, GATHER+20, ALLOWINT+7, ALLOWINT+8, ALLOWINT+9, ALLOWINT+10
, ALLOWINT+12, ALLOWINT+13, ALLOWINT+14, EDIT+6, EDIT+7, EDIT+9, PRINT+6, DEL+9, DEL1+2, DEL1+8
, DEL1+15, DEL1+17, DEL1+19, DISP+1, UPD+7, UPDE+1, UPDE+4
^AMHRINTK("AC" GATHER+3
^AMHRINTK("AI" GATHER+17, ALLOWINT+11, EDIT+14, DEL1+4, DISP+1, UPD1+2
^AMHSITE - [#9002013] ALLOWINT+6, DEL+3, DEL1+16
^AUPNPAT - [#9000001] HDR+2
^DPT - [#2] HDR+2
^VA(200 - [#200] ADD+23, ADDUPD+18
^XUSEC("AMHZ DELETE RECORD" DEL+3
^XUSEC("AMHZ DELETE SIGNED NOTE" DEL1+19

Label References

Name Line Occurrences
$$ALLOWINT GATHER+6
$$D GATHER+13, GATHER+20, DEL1+9, UPD1+10
ADDUPD UPD1+14
DEL1 DEL1+17, DEL1+19, DISP+1, DISP+4, DISP+9
DISP DEL1+16
EN EP1+6, EP+6
EXIT ADD+13, ADD+14, ADD+20, ADD+28, EDIT+3, EDIT+4, EDIT+6, EDIT+7, EDIT+9, EDIT+12
, EDIT+21, PRINT+3, PRINT+4, PRINT+6, PRINT+10, DEL+3, DEL+6, DEL+7, DEL+9, DEL1+2
, DEL1+12, DEL1+13, UPD+4, UPD+5, UPD+7, UPD1+13, UPD1+15, ADDUPD+8, ADDUPD+9
GATHER INIT+2, EXIT+4
HDR EXIT+6
SIGNINT ADD+26, EDIT+20, UPDE+10, ADDUPD+21
SIGNINT1 SIGNINT1+2
UPD1 UPD1+14, UPDE+1, UPDE+4, UPDE+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMHA UPD+1~, UPD1+3*, UPD1+6, UPD1+11, UPD1+12, UPD1+14
>> AMHANS SIGNINT1+2, SIGNINT1+7*
AMHBROW EP1+2~
AMHC DEL+1~, DEL1+3*, DEL1+4*, DEL1+7*, DEL1+9, UPD+1~, UPD1+2*, UPD1+3, UPD1+8*, UPD1+10
AMHC1 DEL+1~, DEL1+9*, DEL1+11
AMHD EP1+2~, EN+1~
AMHDA EP1+2~
>> AMHDATE ADD+5, ADDUPD+4
AMHFILE EP1+2~
AMHFIRST EP1+2~
>> AMHIDAT ADD+3*, ADD+4*, ADD+5*, ADD+6*, ADD+16, ADDUPD+2*, ADDUPD+3*, ADDUPD+4*, ADDUPD+5*, ADDUPD+11
AMHINTI EP1+2~
AMHINTK EP1+2~, EN+1~, EXIT+1!
AMHINTK( GATHER+16*, GATHER+22*
AMHINTK("IDX" GATHER+16*, GATHER+22*, EDIT+5, PRINT+5, DEL+8, UPD+6
>> AMHINTR DEL1+8*
AMHL EP1+2~, GATHER+13*, GATHER+14*, GATHER+15*, GATHER+16, GATHER+18*, GATHER+19*, GATHER+20*, GATHER+21*, GATHER+22
AMHLINE EP1+2~, EN+1~, INIT+3, GATHER+1*, GATHER+10*, GATHER+16*, GATHER+22*, EXIT+5
AMHNODE EP1+2~
AMHPAT EP1+3~, EP1+4*, EP+2~, EP+3*, EP+4, GATHER+3, ADD+11, ADD+16, ADDUPD+6, ADDUPD+11
AMHPC EP1+2~, EXIT+1!
AMHPCNT EP1+2~
AMHPRNM EP1+2~
AMHPRNT EP1+2~
AMHPROGT EP1+2~, EP1+5*, EP+2~, EP+5*, HDR+1, GATHER+7, ADD+16
>> AMHPROVN ADD+23*, ADD+24, ADDUPD+18*, ADDUPD+19
AMHQUIT EP1+2~
AMHR EP1~, EP1+1, EP1+5, EP+1, EP+3, EP+5, ADD+4, ADD+23, ADDUPD+3, ADDUPD+18
AMHR1 EP1+2~, EDIT+4*!, EDIT+5, PRINT+4*!, PRINT+5, EXIT+1!, DEL+7*!, DEL+8, UPD+1~, UPD+5*!
, UPD+6
AMHRCNT EP1+2~, EN+1~, GATHER+1*, GATHER+10*, GATHER+13*, GATHER+16, GATHER+22
AMHRINT DEL+1~, DEL1+14*, DEL1+15, DEL1+17, DEL1+19, DISP+1, DISP+2, DISP+5
AMHRINTI ADD+21*, ADD+24, ADD+25, ADD+26, EDIT+1*, EDIT+5*, EDIT+6, EDIT+7, EDIT+9, EDIT+12
, EDIT+14, EDIT+20, PRINT+1*, PRINT+5*, PRINT+6, DEL+1~, DEL+4*, DEL+8*, DEL+9, DEL1+2
, DEL1+3, DEL1+4, UPD+1~, UPD+2*, UPD+6*, UPD+7, UPD1+2, ADDUPD+11
AMHRINTU UPD+1~, UPD1+16*, UPDE+1, UPDE+4, UPDE+6, UPDE+10, ADDUPD+16*, ADDUPD+19, ADDUPD+20, ADDUPD+21
AMHRIU DEL+1~, DEL1+15*, DEL1+18, DEL1+20, DISP+3, DISP+4, DISP+8
AMHRX SIGNINT~, SIGNINT1+1, SIGNINT1+8, SIGNINT1+9
AMHV EP1+3~, GATHER+2!
AMHV( GATHER+11, GATHER+12
AMHV(9999999 GATHER+9*
AMHX EP1+3~, EN+1~, GATHER+3*, GATHER+6, GATHER+7, GATHER+8, GATHER+9, GATHER+12*, GATHER+13, GATHER+14
, GATHER+15, GATHER+16, GATHER+17, GATHER+22, EXIT+1!, DEL+1~, DEL1+4*, DEL1+7*, DEL1+8, DEL1+9
, UPD+1~, UPD1+2*, UPD1+8*, UPD1+10
AMHXX SIGNINT1!, SIGNINT1+1*, SIGNINT1+2, SIGNINT1+3, SIGNINT1+4, SIGNINT1+9
AMHY GATHER+17*, GATHER+19, GATHER+20, GATHER+21, DEL+1~, DEL1+1!, UPD+1~, UPD1+1!
AMHY( DEL1+4*, DEL1+7, DEL1+14, UPD1+2*, UPD1+8, UPD1+16
AMHY(1 DEL1+3*
AMHZ DEL+1~
D EP1+3~, D~, D+1, D+2, GATHER+10*, GATHER+11*, GATHER+12
D0 EP1+3~, ADD+17!, ADDUPD+12!
DA EP1+3~, ADD+12!, ADD+24*!, ADD+25*!, SIGNINT1+5!, SIGNINT1+8*!, EDIT+14*!, DEL1+11!, DISP+2*, DISP+3!
, DISP+5*, DISP+6!, UPD1+12!, UPDE+6*!, ADDUPD+7!, ADDUPD+19*!, ADDUPD+20*!
DD EP1+3~, ADD+17!, ADDUPD+12!
DFN EP1+3~, EP1+4*, EP+2~, EP+3*, HDR+2
DIADD EP1+3~, ADD+16*, ADD+19!, ADDUPD+11*, ADDUPD+14!
DIC EP1+3~, ADD+16*, ADD+19!, DISP+2*, ADDUPD+11*, ADDUPD+14!
DIC("DR" ADD+16*, ADDUPD+11*
DIC(0 ADD+16*, ADDUPD+11*
DIE EP1+3~, ADD+24*!, ADD+25*!, SIGNINT1+8*!, EDIT+14*!, UPDE+6*!, ADDUPD+19*!, ADDUPD+20*!
DIE("NO^" ADD+24*, ADD+25*, ADDUPD+19*, ADDUPD+20*
DIK EP1+3~, DISP+5*, DISP+6!
DIR EP1+3~, ADD+12!, SIGNINT1+5!, DEL1+11!, DISP+3!, UPD1+12!, ADDUPD+7!
DIR("A" ADD+12*, SIGNINT1+5*, DEL1+11*, DISP+3*, UPD1+12*, ADDUPD+7*
DIR("B" ADD+12*, SIGNINT1+5*, DEL1+11*, DISP+3*, UPD1+12*, ADDUPD+7*
DIR(0 ADD+12*, SIGNINT1+5*, DEL1+11*, DISP+3*, UPD1+12*, ADDUPD+7*
DIRUT EP1+3~, ADD+13, SIGNINT1+6, DEL1+12, UPD1+13, ADDUPD+8
DLAYGO EP1+3~, ADD+16*, ADD+19!, ADDUPD+11*, ADDUPD+14!
DO EP1+3~, ADD+17!, ADDUPD+12!
DR EP1+3~, ADD+24*, ADD+25*!, SIGNINT1+8*!, EDIT+14*!, UPDE+6*!, ADDUPD+19*, ADDUPD+20*!
DT ADD+6, ADD+16, UPDE+6, ADDUPD+5, ADDUPD+11
DUZ GATHER+6, ADD+16, ADD+23, ADD+25, EDIT+12, DEL+3, DEL1+16, DEL1+17, DEL1+19, UPDE+4
, ADDUPD+11, ADDUPD+18, ADDUPD+20
DUZ(2 HDR+2, ALLOWINT+6, DEL+3, DEL1+16
G ALLOWINT+5~, ALLOWINT+11*, ALLOWINT+12*, ALLOWINT+13*, ALLOWINT+14*, ALLOWINT+15
I ALLOWINT~, ALLOWINT+4, ALLOWINT+7, ALLOWINT+8, ALLOWINT+9, ALLOWINT+10, ALLOWINT+11, EXIT+7!
>> IOINORM HDR+2
>> IORVON HDR+2
P EP1~, EP1+4, ALLOWINT~, ALLOWINT+3, ALLOWINT+6, ALLOWINT+7, ALLOWINT+8, ALLOWINT+9, ALLOWINT+12, ALLOWINT+13
, ALLOWINT+14
R ALLOWINT+5~, ALLOWINT+11*, ALLOWINT+12, ALLOWINT+13, ALLOWINT+14
U EP1+5, EP+3, EP+5, HDR+2, GATHER+7, GATHER+8, GATHER+9, GATHER+13, GATHER+19, GATHER+20
, ADD+4, ADD+23, SIGNINT1+2, SIGNINT1+3, SIGNINT1+4, ALLOWINT+7, ALLOWINT+8, ALLOWINT+9, ALLOWINT+10, ALLOWINT+12
, ALLOWINT+13, ALLOWINT+14, EDIT+7, EDIT+9, DEL1+8, DEL1+15, DEL1+17, DEL1+19, DISP+1, UPDE+1
, UPDE+4, ADDUPD+3, ADDUPD+18
>> VALMBCK EXIT+3*
>> VALMCNT INIT+3*, EXIT+5*
VALMHDR EP1+8!
VALMHDR(1 HDR+1*
VALMHDR(2 HDR+2*
VALMHDR(3 HDR+4*
VALMHDR(4 HDR+6*
>> VALMSG INIT+1*
VALMY EDIT+3, EDIT+4!, PRINT+3, PRINT+4!, DEL+6, DEL+7!, UPD+4, UPD+5!
VALMY(0 EDIT+4, PRINT+4, DEL+7, UPD+5
X HDR+3*, HDR+4, HDR+5*, HDR+6, ADD+7~, ADD+16*, EDIT+5*, PRINT+5*, HELP+1*, EXIT+7!
, DEL+8*, DEL1+7*, UPD+1~, UPD+6*, UPD1+8*, ADDUPD+11*
XQORNOD EDIT+4!, PRINT+4!, DEL+7!, UPD+5!
XQORNOD(0 EDIT+2, PRINT+2, DEL+5, UPD+3
Y EP+4*, ADD+7~, ADD+8*, ADD+14, ADD+20, ADD+21, SIGNINT1+7, EDIT+5*, PRINT+5*, EXIT+7!
, DEL+8*, DEL1+13, DEL1+14, DISP+4, UPD+6*, UPD1+14, UPD1+15, UPD1+16, ADDUPD+9, ADDUPD+15
, ADDUPD+16
Z ADD+7~, EXIT+7!
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