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

Package: Mental Health Social Services

Routine: AMHLEP1


Information

AMHLEP1 ; IHS/CMI/LAB - DEMO/APPTS ACTION 08 Aug 2007 1:27 PM ;

Source Information

Source file <AMHLEP1.m>

Call Graph

Call Graph Total: 22

Package Total Call Graph
Mental Health Social Services 15 ^AMHDVD  (EHRE,TIU)^AMHEHR  EN2^AMHEKL  ($$DATE,$$ESIG)^AMHESIG  (GETDATE,GETTYPE)^AMHLE  (PAUSE,PCCLINK)^AMHLEA  EP1^AMHLEDV  (DEL,EDIT,EDITEHR)^AMHLEE  
FORMDIR^AMHLEFP  (,CALLDIE,PAUSE)^AMHLEIN  (ADD,OTHER,PAUSE,REGULAR)^AMHLEP2  EN^AMHRLKUP  ($$EHR,$$PPNAME)^AMHUTIL  ($$DATE,RESET)^AMHVRL  ($$CONFID,MSG)^AMHVU  
IHS VA Utilities 2 ^XBDBQUE  $$VAL^XBDIQ1  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$REPEAT^XLFSTR  
VA Fileman 2 $$GET1^DIQ  ^DIR  
Registration 1 FULL^VALM1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health Social Services 2 AMHDPEE  AMHLESF  

Entry Points

Name Comments DBIA/ICR reference
DISPRECS ;display visits for selection by user
HDR ; -- print header
HRCN() ; -- returns chart # for this facility
ESIG9 ;
NAME() ; -- returns printable name
SELECT ;
PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
3 ;EP -- display visit
1 ; -- add visit
GETVTYP ;
2 ; -- edit visit
5 ; -- delete visit
4 ; -- soap update
7 ; -- EHR visit
6 ; -- print encounter form
9 ;EP - called from protocol to sign visit
E9 ;edit?
HEAD ;
CONTACT(P,AMHY) ;EP; called by AMHV UPDATE CLIENT CONTACT protocol
CHOICE ;;
OTHER ;EP
XIT ;
SP(NUM) ; -- SUBRTN to pad spaces
8 ; -- TIU NOTE
DUP ;EP called from protocol
HEAD1 ;
MENU ; -- menu of scheduling actions
NOW() ; -- returns readable now

External References

Name Field # of Occurrence
^AMHDVD 3+9, 9+30
EHRE^AMHEHR 2+14, 4+10, 5+12
TIU^AMHEHR 8+9
EN2^AMHEKL 1+14, 2+20, 3+14, 4+17, 5+16, 6+21, 7+12, 8+12, E9+10, ESIG9+5
$$DATE^AMHESIG 9+13
$$ESIG^AMHESIG 9+19
GETDATE^AMHLE 1+7, 2+8, 3+4, 4+4, 5+7, 6+5, 7+4, 8+4
GETTYPE^AMHLE 1+5, 2+6
PAUSE^AMHLEA 2+13, 2+14, 2+16, 4+9, 4+10, 4+11, 5+12
PCCLINK^AMHLEA 4+16, ESIG9+3
EP1^AMHLEDV DUP+2
DEL^AMHLEE 5+15
EDIT^AMHLEE 2+17, E9+7
EDITEHR^AMHLEE 7+9
FORMDIR^AMHLEFP 6+14
^AMHLEIN 1+1, 2+2, 3+1, 4+1, 5+3, 6+1, 7+2, 8+2, 9+8
CALLDIE^AMHLEIN 4+13
PAUSE^AMHLEIN SELECT+2
ADD^AMHLEP2 1+12
OTHER^AMHLEP2 OTHER+2, 3+13, 4+15, ESIG9+2
PAUSE^AMHLEP2 5+2, 5+14, 9+23, 9+26
REGULAR^AMHLEP2 3+11, 4+14
EN^AMHRLKUP 2+11, 3+7, 4+7, 5+10, 6+8, 7+7, 8+7
$$EHR^AMHUTIL 2+14, 4+10, 5+12, 9+17
$$PPNAME^AMHUTIL DISPRECS+7
$$DATE^AMHVRL DISPRECS+10
RESET^AMHVRL OTHER+3, DUP+4, MENU+3
$$CONFID^AMHVU HDR+4
MSG^AMHVU HDR+3, HDR+4, HDR+5, HDR+6
$$GET1^DIQ DISPRECS+17
^DIR 9+25, E9+2, GETVTYP+2, HEAD+2, SELECT+1
FULL^VALM1 MENU+1, 5+6, 6+4, 9+6
^XBDBQUE 6+19
$$VAL^XBDIQ1 NAME+1
$$FMTE^XLFDT NOW+1
$$NOW^XLFDT NOW+1
$$REPEAT^XLFSTR HDR+6, PAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This is a group encounter. You must edit this group visit through the Group",!,"Form Data Entry menu option.",!
  • Line Location: 2+13
Function Call: WRITE
  • Prompt: !!,"This is a group encounter. You must edit this group visit through the Group",!,"Form Data Entry menu option.",!
  • Line Location: 4+9
Function Call: WRITE
  • Prompt: !!,"You cannot edit this note, it has been electronically signed."
  • Line Location: 4+11
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to delete a Visit.",!,"Please see your supervisor or program manager.",!
  • Line Location: 5+2
Function Call: WRITE
  • Prompt: !,"There are no EHR created visits on that date."
  • Line Location: 7+8
Function Call: WRITE
  • Prompt: !,"There are no EHR created visits on that date."
  • Line Location: 8+8
Function Call: WRITE
  • Prompt: !!,"There are no records with unsigned notes that need to be signed.",!
  • Line Location: 9+23
Function Call: WRITE
  • Prompt: !
  • Line Location: 9+25
Function Call: WRITE
  • Prompt: !,"No Records selected to display."
  • Line Location: 9+26
Function Call: WRITE
  • Prompt: !,"Invalid selection!!"
  • Line Location: 9+27
Function Call: WRITE
  • Prompt: !!
  • Line Location: E9+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,AMHDASH
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !?13,"Behavioral Health visits for ",$P(^DPT(AMHPAT,0),U)
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: !,AMHDASH
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: !," #",?7,"PROVIDER",?18,"LOC",?23,"DATE",?33,"ACT",?37,"CONT",?42,"PATIENT",?55,"PROB",?64,"NARRATIVE",!,AMHDASH
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !,"No Records selected to display."
  • Line Location: SELECT+2
Function Call: WRITE
  • Prompt: !,"Invalid selection!!"
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: ?42,$P(^AUTTLOC($P(AMHR0,U,4),0),U,7)," ",$P(^AUPNPAT($P(AMHR0,U,8),41,$P(AMHR0,U,4),0),U,2)
  • Line Location: DISPRECS+13
Function Call: WRITE
  • Prompt: ?42,$P(^AUTTLOC(DUZ(2),0),U,7)," ",$P(^AUPNPAT($P(AMHR0,U,8),41,DUZ(2),0),U,2)
  • Line Location: DISPRECS+14
Function Call: WRITE
  • Prompt: ?42,"-----"
  • Line Location: DISPRECS+15
Function Call: WRITE
  • Prompt: ?55,"No Problems recorded."
  • Line Location: DISPRECS+16
Function Call: WRITE
  • Prompt: ?64,$E($$GET1^DIQ(9002011.01,AMHP,.04),1,15)
  • Line Location: DISPRECS+17
Routine Call
  • DIR
  • Line Location:
    • 9+25
    • E9+2
    • GETVTYP+2
    • HEAD+2
    • SELECT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHREC - [#9002011] Classic Fileman Calls
^AMHRPRO - [#9002011.01] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] DISPRECS+17
^AMHREC - [#9002011] 2+13, 2+15, 4+9, 4+11, 5+13, 9+16, 9+18, E9+6, DISPRECS+4
^AMHREC("AF" 9+14, 9+15
^AMHRPRO - [#9002011.01] DISPRECS+17
^AMHRPRO("AD" DISPRECS+16
^AMHTACT - [#9002012] DISPRECS+11
^AMHTSET - [#9002012.1] DISPRECS+11
^AUPNPAT - [#9000001] DISPRECS+13, DISPRECS+14, HRCN+1
^AUTTLOC - [#9999999.06] DISPRECS+8, DISPRECS+13, DISPRECS+14
^DPT - [#2] HEAD1+4
^XUSEC("AMHZ DELETE RECORD" 5+2
^XUSEC("AMHZ DELETE SIGNED NOTE" 5+13

Label References

Name Line Occurrences
$$HRCN HDR+5
$$NAME HDR+5
$$NOW HDR+2
$$PAD HDR+2, SP+1
$$SP HDR+2, HDR+4, HDR+5
@( MENU+2
DISPRECS 9+24
ESIG9 E9+3, E9+4
HEAD DISPRECS+2, DISPRECS+6
HEAD1 HEAD+1
SELECT 9+27, SELECT+3
XIT 1+6, 1+8, 1+11, 1+13, 2+7, 2+9, 2+12, 2+13, 2+14, 2+19
, 3+5, 3+8, 4+5, 4+8, 4+9, 4+10, 4+11, 5+2, 5+8, 5+11
, 5+12, 5+14, 6+6, 6+9, 6+15, 6+20, 7+5, 7+8, 7+11, 8+5
, 8+8, 8+11, 9+23, 9+26, E9+9, ESIG9+4

Naked Globals

Name Field # of Occurrence
^(0 DISPRECS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMHACTN 4+12*, 6+17*, ESIG9+1*
>> AMHCNTR DISPRECS+3*, DISPRECS+5*, DISPRECS+7
AMHD 9+11~, 9+13*, 9+14*, 9+15
>> AMHDASH HEAD1+3, HEAD1+5, HEAD1+6
AMHDATE 1+8, 2+9, 3+5, 4+5, 5+8, 6+6, 7+5, 8+5, E9+6*, XIT+1!
AMHDET 2+1*, 7+1*, 8+1*, 9+7*, XIT+1!
AMHEFT 6+10!, 6+16*
AMHEHR 7+7*!, 7+13!, 8+7!, 8+13!
AMHHDFN OTHER+1*, OTHER+3!, DUP+1*, DUP+3, DUP+4!, CONTACT+4*, MENU+3!, 1+4, 2+3, 2+18
, 3+2, 3+10, 4+2, 5+4, 6+2, 6+22, 7+3, 7+10, 8+3, 8+10
, 9+9, 9+31, E9+8
AMHLOC 2+10*, 3+6*, 4+6*, 5+9*, 6+7*, 7+6*, 8+6*, XIT+1!
AMHP XIT+1!, DISPRECS+16*, DISPRECS+17
>> AMHPAT OTHER+1*, DUP+1*, DUP+3*, CONTACT+3*, CONTACT+4, 1+4*, 2+3*, 2+10*, 2+18*, 3+2*
, 3+6*, 3+10*, 4+2*, 4+6*, 5+4*, 5+9*, 6+2*, 6+7*, 6+22*, 7+3*
, 7+6*, 7+10*, 8+3*, 8+6*, 8+10*, 9+9*, 9+14, 9+15, 9+31*, E9+8*
, HEAD1+4
AMHPATCE 1+2*, 2+4*, 3+3*, 4+3*, 5+5*, 6+3*, 9+10*, XIT+1!
AMHPG XIT+1!, HEAD+1, HEAD1+1*, DISPRECS+1*
>> AMHPTYPE 1+6, 2+7
>> AMHQUIT HEAD+2*, DISPRECS+6
AMHR 2+12, 2+13, 2+14, 2+15, 3+8, 4+8, 4+9, 4+10, 4+11, 4+13
, 5+11, 5+12, 5+13, 6+9, 6+14, 7+8, 8+8, 9+28*, E9+6, XIT+1!
, SELECT+4*
AMHR0 XIT+1!, DISPRECS+4*, DISPRECS+8, DISPRECS+10, DISPRECS+11, DISPRECS+12, DISPRECS+13, DISPRECS+14
AMHRCNT 9+14*, 9+21*, 9+23, 9+25, XIT+1!, SELECT+1
AMHRCTR XIT+1!, DISPRECS+1*, DISPRECS+3*, DISPRECS+4*
AMHRIEN XIT+1!, DISPRECS+1*, DISPRECS+4*, DISPRECS+7, DISPRECS+16
AMHRRECS 9+11~, XIT+1!
AMHRRECS( 9+21*, 9+27, 9+28, SELECT+3, SELECT+4, DISPRECS+4
>> AMHVT GETVTYP+4*
>> AMHVTYPE 1+10*, 1+11, GETVTYP+3*, GETVTYP+4*
AMHY CONTACT~, MENU+2
AMHZDO 3+12*, 3+15!
D 9+11~, XIT+1!
DA 4+13*, E9+2!, GETVTYP+2!
DATA PAD~, PAD+1
DFN OTHER+1, DUP+1, DUP+3*, CONTACT+1~, CONTACT+3*, 1+4*, 2+3*, 2+10, 2+18*, 3+2*
, 3+6, 3+10*, 4+2*, 4+6, 5+4*, 5+9, 6+2*, 6+7, 6+22*, 7+3*
, 7+6, 7+10*, 8+3*, 8+6, 8+10*, 9+9*, 9+31*, E9+8*, NAME+1, HRCN+1
>> DIE 4+13*
DIR 9+25!, E9+2!, GETVTYP+2!, HEAD+2!, SELECT+1!
DIR("A" 9+25*, E9+2*, GETVTYP+2*, SELECT+1*
DIR("B" E9+2*, GETVTYP+2*
DIR(0 9+25*, E9+2*, GETVTYP+1*, HEAD+2*, SELECT+1*
>> DIRUT 6+15, 9+25*, 9+26, E9+3, GETVTYP+3, SELECT+1*, SELECT+2
>> DR 4+13*
>> DTOUT HEAD+2
>> DUOUT 9+25, SELECT+1
DUZ 5+2, 5+13
DUZ(2 DISPRECS+14, HRCN+1
IO HEAD+2
IO(0 HEAD+2
IOF 5+6, 6+4, HEAD1+2
IOSL DISPRECS+6
IOST HEAD+2
>> IOUOFF HDR+2
>> IOUON HDR+2
LENGTH PAD~, PAD+1
NUM SP~, SP+1
P CONTACT~, CONTACT+2, CONTACT+3
U 2+13, 2+15, 4+9, 4+11, 5+13, 9+16, 9+18, E9+6, HEAD1+4, DISPRECS+8
, DISPRECS+10, DISPRECS+11, DISPRECS+12, DISPRECS+13, DISPRECS+14, DISPRECS+17, HRCN+1
V 9+11~, 9+15*, 9+16, 9+17, 9+18, 9+19, 9+21, XIT+1!
X 9+11~, 9+19*, 9+20, HDR+1~, HDR+2*, HDR+3
>> XBNS 6+18*
>> XBRC 6+18*
>> XBRP 6+18*
>> XBRX 6+18*
>> Y 6+16, 9+27, 9+28, E9+4, GETVTYP+4, HEAD+2, SELECT+3, SELECT+4
>> Y(0 GETVTYP+4
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