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

Package: Mental Health Social Services

Routine: AMHLEAR


Information

AMHLEAR ; IHS/CMI/LAB - BH ACTIVITY RECORD LOG ENTRY ;

Source Information

Source file <AMHLEAR.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Mental Health Social Services 2 ^AMHLEAR1  ^AMHLEIN  

Entry Points

Name Comments DBIA/ICR reference
GETNARR ;
GETPOVS ;
GETPOVS1 ;
GETCONT ;
END ;ending message
GETPROV ;get providers
INFORM ;
GETLOC ; GET LOCATION OF ENCOUNTER
CREATE
GETCOMM ;
GETTIME ;
GETNUM ;
SET
XIT ;CLEAN UP AND EXIT
GETPROG ;
GETACT ;
GETDATE ; GET DATE OF ENCOUNTER

External References

Name Field # of Occurrence
^%DT GETDATE+4
^AMHLEAR1 CREATE
^AMHLEIN AMHLEAR+5
^DIC GETLOC+1, GETCOMM+1
^DIR GETPROV+2, GETPROG+2, GETDATE+1, GETACT+1, GETNUM+1, GETTIME+1, GETCONT+1, GETPOVS1+1, GETNARR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " <Future dates not allowed>",$C(7),$C(7)
  • Line Location: GETDATE+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),?14,"**Enter Acceptable Activity Code (32-43, 51-59, 63-72, 83-84)**",!!
  • Line Location: GETACT+3
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Must be in the code range "
  • Line Location: GETACT+5
Function Call: WRITE
  • Prompt: !!," *** ACTIVITY RECORD LOG Data Entry Option ***",!!
  • Line Location: INFORM+1
Function Call: WRITE
  • Prompt: " You will be prompted to enter all pertinent Record information",!," You will NOT be prompted to enter the Patient Names",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: " .....Only the following ACTIVITY CODES are acceptable Entries.....",!
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !," **32-43**51-59**63-65*72**83-84**",!!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !," ","......END OF ACTIVITY RECORD LOG DATA ENTRY......",!
  • Line Location: END+1
Routine Call
  • DIC
  • Line Location:
    • GETLOC+1
    • GETCOMM+1
Routine Call
  • DIR
  • Line Location:
    • GETPROV+2
    • GETPROG+2
    • GETDATE+1
    • GETACT+1
    • GETNUM+1
    • GETTIME+1
    • GETCONT+1
    • GETPOVS1+1
    • GETNARR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTTCOM - [#9999999.05] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] GETNARR+3
^AMHTACT - [#9002012] GETACT+3, GETACT+5
^AUTNPOV - [#9999999.27] GETNARR+5

Label References

Name Line Occurrences
END AMHLEAR+8
GETACT GETACT+3, GETACT+5, GETNUM+2, GETCONT+2
GETCOMM GETACT+2
GETCONT GETPOVS1+2, GETPOVS1+3
GETDATE GETDATE+4, GETDATE+5, GETCOMM+2
GETLOC GETDATE+2, GETDATE+3
GETNUM GETTIME+2
GETPOVS1 GETNARR+4
GETPROG GETLOC+2
GETPROV AMHLEAR+7, GETPROG+3, GETPROG+4
INFORM AMHLEAR+6
SET GETNARR+3
XIT AMHLEAR+4, AMHLEAR+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT GETDATE+4*
AMHACT GETACT+1*, GETACT+4*, XIT+2!
AMHACTN XIT+3!
AMHBEEP XIT+2!
AMHBT XIT+2!
AMHC GETPROV+1*, GETPROV+5*, GETPOVS+1*, GETPOVS1+2, GETPOVS1+3, SET*, XIT+2!
AMHCOMM GETCOMM+1*, GETCOMM+3*, XIT+2!
AMHCONT GETCONT+1*, GETCONT+3*, XIT+2!
AMHCONT(0 GETCONT+3*
AMHDASH XIT+2!
AMHDATE GETDATE+1*, GETDATE+6*, XIT+2!
AMHGOT XIT+2!
AMHLEGPI XIT+2!
AMHLEIN XIT+2!
AMHLOC GETLOC+1*, GETLOC+3*, XIT+2!
AMHLPCC XIT+2!
AMHNARR GETNARR+1*, GETNARR+3*, GETNARR+5*, SET, XIT+2!
AMHNUM GETNUM+1*, GETNUM+3*, XIT+2!
AMHOKAY XIT+2!
AMHPAT XIT+2!
AMHPOV GETPOVS+1!, XIT+2!
AMHPOV( SET*
AMHPOVP GETPOVS1+4*, GETNARR+3, SET, XIT+2!
AMHPOVS XIT+2!
AMHPROG GETPROG+1*, GETPROG+5*, XIT+2!
AMHPROG(0 GETPROG+5*
AMHPROV AMHLEAR+7!, GETPROV+1!, XIT+2!
AMHPROV( GETPROV+5*
AMHQUIT XIT+2!
AMHR XIT+3!
AMHREC XIT+2!
AMHTIME GETTIME+1*, GETTIME+3*, XIT+2!
AMHVISIT XIT+2!
D XIT+1!
D0 XIT+1!
DA GETPROV+2!, GETPROG+2!, GETCOMM+1!, GETPOVS1+1!, GETNARR+2!, XIT+1!
DIC GETPROV+2!, GETPROG+2!, GETLOC+1*!, GETCOMM+1*!, GETPOVS1+1!, GETNARR+2!, XIT+1!
DIC("A" GETCOMM+1*
DIC(0 GETLOC+1*, GETCOMM+1*
DIR GETPROV+2!, GETPROG+2!, GETDATE+1!, GETACT+1!, GETNUM+1!, GETTIME+1!, GETCONT+1!, GETPOVS1+1!, GETNARR+2!, XIT+1!
DIR("A" GETPROV+2*, GETPROG+2*, GETDATE+1*, GETACT+1*, GETNUM+1*, GETTIME+1*, GETCONT+1*, GETPOVS1+1*, GETNARR+2*
DIR(0 GETPROV+2*, GETPROG+2*, GETDATE+1*, GETACT+1*, GETNUM+1*, GETTIME+1*, GETCONT+1*, GETPOVS1+1*, GETNARR+2*
DIRUT GETPROV+2!*, GETPROV+3, GETPROG+2!*, GETPROG+3, GETDATE+1*, GETDATE+2, GETACT+1*, GETACT+2, GETNUM+1*, GETNUM+2
, GETTIME+1*, GETTIME+2, GETCONT+1*, GETCONT+2, GETPOVS1+1!*, GETPOVS1+2, GETNARR+2!*, GETNARR+4
DIZ XIT+1!
DO XIT+1!
DR XIT+1!
DT GETDATE+1, GETDATE+5
DTOUT GETPROV+2!, GETPROG+2!, GETPOVS1+1!, GETNARR+2!
DUOUT GETPROV+2!, GETPROG+2!, GETDATE+1, GETACT+1, GETNUM+1, GETTIME+1, GETCONT+1, GETPOVS1+1!, GETNARR+2!
U GETPROV+5, GETACT+3, GETACT+5, GETNARR+3, GETNARR+5, SET
X GETPROV+2!, GETPROG+2!, GETDATE+5!, GETPOVS1+1!, GETNARR+2!, XIT+1!
Y GETPROV+2!, GETPROV+4, GETPROV+5, GETPROG+2!, GETPROG+4, GETPROG+5, GETLOC+2, GETLOC+3, GETDATE+3, GETDATE+4
, GETDATE+5, GETDATE+6, GETCOMM+2, GETCOMM+3, GETACT+3, GETACT+4, GETACT+5, GETNUM+3, GETTIME+3, GETCONT+3
, GETPOVS1+1!, GETPOVS1+3, GETPOVS1+4, GETNARR+2!, GETNARR+3, GETNARR+5, XIT+1!
Y(0 GETPROG+5, GETCONT+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All