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

Package: Mental Health Social Services

Routine: AMHLEGP


Information

AMHLEGP ; IHS/CMI/LAB - BH GROUP FORM DATA ENTRY ;

Source Information

Source file <AMHLEGP.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 (,DD)^%DT  ^DIC  ^DIR  
Mental Health Social Services 2 (,INFORM,XIT)^AMHLEGP1  (,$$GETCOMM,$$GETLOC)^AMHLEIN  
IHS VA Utilities 1 ^XBDBQUE  

Entry Points

Name Comments DBIA/ICR reference
DISP ;
GETLOC ;
GETCLN ;
ENDMSG ;
GETNUM ;
PRINT ;
GETCPTS1 ;
GETNARR ;
GETPOVS ;
INFORM ;
GETEDUC1 ;
NUM ;
GETTOD ;
GETDATE ; GET DATE OF ENCOUNTER
GETCONT ;
GETTIME ;
GETPOVS1 ;
XIT ;
GETPROV1 ;
GETCPTS ;
GETACT ;
GETPROV ;get providers
GETCOMM ;
EDTIME
GETPROG ;
GETEDUC ;

External References

Name Field # of Occurrence
^%DT GETDATE+4, EDTIME+1
DD^%DT EDTIME, DISP+2
^AMHLEGP1 DISP+11
INFORM^AMHLEGP1 INFORM+1
XIT^AMHLEGP1 XIT+1
^AMHLEIN AMHLEGP+3
$$GETCOMM^AMHLEIN GETCOMM+1
$$GETLOC^AMHLEIN GETLOC+1
^DIC GETCLN+1, GETLOC+1, GETCOMM+1, GETNARR+5
^DIR GETDATE+2, GETPROG+2, GETLOC+6, GETPROV1+1, GETACT+1, GETCONT+1, GETPOVS1+1, GETNARR+2, GETCPTS1+1, GETEDUC1+1
, GETEDUC1+10, GETEDUC1+12, GETEDUC1+15, GETEDUC1+17, GETTIME+1, GETNUM+1, DISP+8, PRINT+1, NUM+6
^XBDBQUE NUM+10

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: !!,"Clinic is required. Type '^' to exit or enter a clinic code."
  • Line Location: GETCLN+2
Function Call: READ
  • Timeout: $S($D(DTIME):DTIME,1:300)
  • Variable: X
  • Line Location: GETTOD+3
Function Call: WRITE
  • Prompt: !,"Enter time of arrival, or 'D' for default."
  • Line Location: GETTOD+6
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: GETTOD+7
Function Call: WRITE
  • Prompt: !!,"Invalid time entry, enter time of visit or 1200 for the default."
  • Line Location: EDTIME+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDTIME+2
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"REQUIRED, enter a '^' to exit.",!
  • Line Location: GETLOC+3
Function Call: WRITE
  • Prompt: " ",X
  • Line Location: GETNARR+4
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Invalid Narrative"
  • Line Location: GETNARR+5
Function Call: WRITE
  • Prompt: !!,"I am going to ask you to enter ",AMHNUM," patient names. I will then create a",!,"record in the BH file for each patient. The record will contain the",!,"following information: ",!
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"Date of Encounter: "
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"Loc. of Enc.: ",$E($P(^DIC(4,AMHLOC,0),U),1,25),?40,"Community: ",$E($P(^AUTTCOM(AMHCOMM,0),U),1,25)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X>1
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: ?12,$P(^VA(200,$P(AMHPROV(X),U),0),U)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !,"Activity: ",$E($P(^AMHTACT(+AMHACT,0),U,2),1,25),?40,"Type of Contact: ",$P(AMHCONT(0),U)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: X>1
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: ?12,$P(^AMHPROB($P(AMHPOV(X),U),0),U)," ",$E($P(^AUTNPOV($P(AMHPOV(X),U,2),0),U),1,50)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"# Patients: ",AMHNUM,?15,"Total Time: ",AMHTIME,!
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: NUM+5
Routine Call
  • DIC
  • Line Location:
    • GETCLN+1
    • GETLOC+1
    • GETCOMM+1
    • GETNARR+5
Routine Call
  • DIR
  • Line Location:
    • GETDATE+2
    • GETPROG+2
    • GETLOC+6
    • GETPROV1+1
    • GETACT+1
    • GETCONT+1
    • GETPOVS1+1
    • GETNARR+2
    • GETCPTS1+1
    • GETEDUC1+1
    • GETEDUC1+10
    • GETEDUC1+12
    • GETEDUC1+15
    • GETEDUC1+17
    • GETTIME+1
    • GETNUM+1
    • DISP+8
    • PRINT+1
    • NUM+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^AUTTCOM - [#9999999.05] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls
^AUTNPOV - [#9999999.27] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] GETNARR+4, DISP+6
^AMHSITE - [#9002013] NUM+6
^AMHTACT - [#9002012] DISP+5
^AUTNPOV - [#9999999.27] DISP+6
^AUTTCOM - [#9999999.05] DISP+3
^AUTTLOC - [#9999999.06] GETLOC+6
^DIC(4 - [#4] GETLOC+1, DISP+3
^VA(200 - [#200] DISP+4

Label References

Name Line Occurrences
EDTIME GETTOD+5
GETACT GETCONT+2
GETCLN GETCLN+2, GETTOD+4
GETCOMM GETPROV1+5, GETACT+2
GETCONT GETPOVS1+3, GETPOVS1+4, GETPOVS1+5
GETCPTS GETPOVS1+6, GETPOVS1+7, GETNARR+3, GETEDUC1+4
GETCPTS1 GETCPTS1+10
GETDATE GETDATE+4, GETDATE+5, GETPROG+3
GETEDUC GETCPTS1+3, GETCPTS1+7
GETEDUC1 GETEDUC1+20
GETLOC GETLOC+3, GETLOC+6, GETPROV1+2, GETPROV1+3, GETPROV1+4
GETNARR GETNARR+5
GETPOVS GETCPTS1+4, GETCPTS1+5, GETTIME+2
GETPOVS1 GETNARR+8
GETPROG GETCLN+3
GETPROV GETCOMM+2
GETPROV1 GETPROV1+7
GETTIME GETCPTS1+6, GETEDUC1+3, GETEDUC1+5, GETEDUC1+6, GETNUM+2
GETTOD GETTOD+6, EDTIME+1, EDTIME+2, GETLOC+2
INFORM AMHLEGP+4
PRINT ENDMSG+2
XIT GETDATE+3, DISP+9, DISP+10, ENDMSG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT GETDATE+4*, EDTIME+1*
>> AMHACT GETACT+1*, GETACT+3*, DISP+5
>> AMHC GETPROV+1*, GETPROV1+1, GETPROV1+3, GETPROV1+4, GETPROV1+5, GETPROV1+6*, GETPOVS+1*, GETPOVS1+1, GETPOVS1+4, GETPOVS1+5
, GETPOVS1+6, GETPOVS1+7, GETNARR+7*, GETCPTS+1*, GETCPTS1+5, GETCPTS1+7, GETCPTS1+9*, GETEDUC+1*, GETEDUC1+4, GETEDUC1+6
, GETEDUC1+8*, GETEDUC1+11, GETEDUC1+14, GETEDUC1+16, GETEDUC1+19
>> AMHCLN GETCLN+1*, GETCLN+4*
>> AMHCOMM GETCOMM+1*, GETCOMM+3*, DISP+3
>> AMHCONT GETCONT+1*, GETCONT+3*
>> AMHCONT(0 GETCONT+3*, DISP+5
AMHCPT GETCPTS+1!
AMHCPT( GETCPTS1+9*
>> AMHCPTP GETCPTS1+8*, GETCPTS1+9, GETEDUC1+7*, GETEDUC1+8
>> AMHDATE GETDATE+2*, GETDATE+6*, GETTOD+1*, EDTIME, EDTIME+3*, DISP+2
AMHEDUC GETEDUC+1!
AMHEDUC( GETEDUC1+8*, GETEDUC1+11*, GETEDUC1+14*, GETEDUC1+16*, GETEDUC1+19*
AMHEFT NUM+4!, NUM+8*
AMHEFTH NUM+4!, NUM+8*
>> AMHGROUP GETDATE+1*
>> AMHLEGP("RECS ADDED" , ENDMSG+2
>> AMHLOC GETLOC+1*, GETLOC+5*, DISP+3
>> AMHNARR GETNARR+1*, GETNARR+6*, GETNARR+7
>> AMHNUM GETNUM+1*, GETNUM+3*, DISP+1, DISP+7
>> AMHOL GETLOC+6*
AMHPOV GETPOVS+1!
AMHPOV( GETNARR+7*, DISP+6
>> AMHPOVP GETPOVS1+8*, GETNARR+4, GETNARR+7
>> AMHPROG GETPROG+1*, GETPROG+4*
>> AMHPROG(0 GETPROG+4*, DISP+2
AMHPROV GETPROV+1!
AMHPROV( GETPROV1+6*, DISP+4
>> AMHPTYPE GETPROG+4*, GETLOC+1
>> AMHTIME GETTIME+1*, GETTIME+3*, DISP+7
>> AMHTOD GETTOD+2*, GETTOD+3, GETTOD+5*, GETTOD+8*, EDTIME
>> APCDOVRR GETNARR+5*
DA GETPROG+2!, GETLOC+6!, GETPROV1+1!, GETCOMM+1!, GETPOVS1+1!, GETNARR+2!, GETCPTS1+1!, GETEDUC1+1!, GETEDUC1+10!, GETEDUC1+12!
, GETEDUC1+15!, GETEDUC1+17!, DISP+8!, NUM+6!
DD GETNARR+5!
DIADD GETNARR+5!
DIC GETPROG+2!, GETCLN+1*!, GETLOC+1*!, GETPROV1+1!, GETCOMM+1*!, GETPOVS1+1!, GETNARR+5*!, GETCPTS1+1!, GETEDUC1+1!, GETEDUC1+10!
, GETEDUC1+12!, GETEDUC1+15!, GETEDUC1+17!, DISP+8!
DIC("A" GETCLN+1*, GETCOMM+1*
DIC("B" GETLOC+1*, GETCOMM+1*
DIC(0 GETCLN+1*, GETLOC+1*, GETCOMM+1*, GETNARR+5*
DIR GETDATE+2!, GETPROG+2!, GETLOC+6!, GETPROV1+1!, GETACT+1!, GETCONT+1!, GETPOVS1+1!, GETPOVS1+2!, GETNARR+2!, GETCPTS1+1!
, GETCPTS1+2!, GETEDUC1+1!, GETEDUC1+2!, GETEDUC1+10!, GETEDUC1+12!, GETEDUC1+15!, GETEDUC1+17!, GETTIME+1!, GETNUM+1!, DISP+8!
, PRINT+1!, NUM+6!
DIR("A" GETDATE+2*, GETPROG+2*, GETLOC+6*, GETPROV1+1*, GETACT+1*, GETCONT+1*, GETPOVS1+1*, GETNARR+2*, GETCPTS1+1*, GETEDUC1+1*
, GETEDUC1+10*, GETEDUC1+12*, GETEDUC1+15*, GETEDUC1+17*, GETTIME+1*, GETNUM+1*, DISP+8*, PRINT+1*
DIR("B" DISP+8*, PRINT+1*, NUM+6*
DIR(0 GETDATE+2*, GETPROG+2*, GETLOC+6*, GETPROV1+1*, GETACT+1*, GETCONT+1*, GETPOVS1+1*, GETNARR+2*, GETCPTS1+1*, GETEDUC1+1*
, GETEDUC1+10*, GETEDUC1+12*, GETEDUC1+15*, GETEDUC1+17*, GETTIME+1*, GETNUM+1*, DISP+8*, PRINT+1*, NUM+5*
DIRUT GETDATE+2*, GETDATE+3, GETPROG+2!*, GETPROG+3, GETPROV1+1!*, GETPROV1+3, GETACT+1*, GETACT+2, GETCONT+1*, GETCONT+2
, GETPOVS1+1!, GETPOVS1+4, GETPOVS1+7, GETCPTS1+1!, GETCPTS1+5, GETCPTS1+7, GETEDUC1+1!, GETEDUC1+4, GETEDUC1+6, GETEDUC1+10!
, GETEDUC1+12!, GETEDUC1+13, GETEDUC1+15!, GETEDUC1+17!, GETEDUC1+18, GETTIME+1*, GETTIME+2, GETNUM+1*, GETNUM+2, DISP+8!*
, DISP+9, PRINT+1*, PRINT+2, NUM+7
DLAYGO GETNARR+5*!
DO GETNARR+5!
DT GETDATE+2, GETDATE+5
DTIME GETTOD+3
DTOUT GETPROG+2!, GETPROV1+1!, GETPOVS1+1!, GETCPTS1+1!, GETEDUC1+1!, GETEDUC1+10!, GETEDUC1+12!, GETEDUC1+15!, GETEDUC1+17!, DISP+8!
DUOUT GETDATE+2, GETPROG+2!, GETLOC+6, GETPROV1+1!, GETPROV1+2, GETACT+1, GETCONT+1, GETPOVS1+1!, GETPOVS1+3, GETNARR+3
, GETCPTS1+1!, GETCPTS1+4, GETEDUC1+1!, GETEDUC1+10!, GETEDUC1+12!, GETEDUC1+15!, GETEDUC1+17!, GETTIME+1, GETNUM+1, DISP+8!
, PRINT+1
DUZ(2 GETLOC+1, GETCOMM+1, NUM+6
U GETLOC+1, GETLOC+6, GETPROV1+6, GETNARR+4, GETNARR+7, GETEDUC1+11, GETEDUC1+14, GETEDUC1+16, GETEDUC1+19, DISP+3
, DISP+4, DISP+5, DISP+6, NUM+6
X GETDATE+5!, GETPROG+2!, GETCLN+2, GETTOD+3*, GETTOD+4, GETTOD+5, GETTOD+6, GETTOD+7*, GETTOD+8, EDTIME*
, EDTIME+2, GETLOC+2, GETLOC+3, GETPROV1+1!, GETPOVS1+1!, GETNARR+4*, GETCPTS1+1!, GETEDUC1+1!, GETEDUC1+10!, GETEDUC1+12!
, GETEDUC1+15!, GETEDUC1+17!, DISP+4*, DISP+6*, DISP+8!
>> XBNS NUM+9*
>> XBRC NUM+9*
>> XBRP NUM+9*
>> XBRX NUM+9*
Y GETDATE+4, GETDATE+5, GETDATE+6, GETPROG+2!, GETPROG+4, GETCLN+3, GETCLN+4, EDTIME*, EDTIME+1, EDTIME+3
, GETLOC+2, GETLOC+3, GETLOC+5, GETLOC+6, GETPROV1+1!, GETPROV1+4, GETPROV1+5, GETPROV1+6, GETCOMM+2, GETCOMM+3
, GETACT+3, GETCONT+3, GETPOVS1+1!, GETPOVS1+5, GETPOVS1+6, GETPOVS1+8, GETNARR+4, GETNARR+5, GETNARR+6, GETCPTS1+1!
, GETCPTS1+3, GETCPTS1+6, GETCPTS1+8, GETEDUC1+1!, GETEDUC1+3, GETEDUC1+5, GETEDUC1+7, GETEDUC1+10!, GETEDUC1+11, GETEDUC1+12!
, GETEDUC1+13*, GETEDUC1+14, GETEDUC1+15!, GETEDUC1+16, GETEDUC1+17!, GETEDUC1+18*, GETEDUC1+19, GETTIME+3, GETNUM+3, DISP+2*
, DISP+8!, DISP+10, PRINT+3, NUM+8
Y(0 GETPROG+4, 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