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 |  Marked Items |  All
Print Page as PDF
Routine: AMHLENS

Package: Mental Health Social Services

Routine: AMHLENS


Information

AMHLENS ; IHS/CMI/LAB - add no show record ;

Source Information

Source file <AMHLENS.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Mental Health Social Services 8 EN^AMHEKL  (PCCLINK,RECCHECK)^AMHLE2  OTHER^AMHLEA  EN^AMHLEDEL  (,CALLDIE)^AMHLEIN  REGULAR^AMHLEP2  ^AMHPEDIT  $$PPINT^AMHUTIL  
VA Fileman 5 ^DDS  ^DIC  (FILE,YN)^DICN  ^DIE  ^DIR  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Mental Health Social Services 2 AMHLEA  AMHLENS1  

Entry Points

Name Comments DBIA/ICR reference
GENPOV ;EPgenerate pov of 8
ADDR ;EP
GETPROV ;get providers
EOJ ;EOJ CLEANUP
GETTYPE ;EP
GETPAT ;EP
TEXT ;
START ; Write Header
PAUSE ;EP
DEL ;EP
GETPAT1 ;
GETDATE ;EP - GET DATE OF ENCOUNTER

External References

Name Field # of Occurrence
EN^AMHEKL START+1
PCCLINK^AMHLE2 ADDR+21
RECCHECK^AMHLE2 ADDR+17
OTHER^AMHLEA ADDR+20
EN^AMHLEDEL DEL+3
^AMHLEIN START+6
CALLDIE^AMHLEIN ADDR+11
REGULAR^AMHLEP2 ADDR+19
^AMHPEDIT GETPAT1+5
$$PPINT^AMHUTIL ADDR+12
^DDS ADDR+13
^DIC GETPAT1+2
FILE^DICN ADDR+6, GENPOV+8, GETPROV+5
YN^DICN GETPAT1+7
^DIE ADDR+10
^DIR GETTYPE+5, GETDATE+3, GENPOV+3, GETPROV+2, PAUSE+1
^XBFMK GENPOV+10, GETPAT+1, EOJ+3
$$FMTE^XLFDT GETPAT1+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?80-$L(X)\2,X
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"Please enter the appropriate set of defaults to be used in Data entry.",!,"This applies to default clinic, location, community and program.",!
  • Line Location: GETTYPE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+2
Function Call: WRITE
  • Prompt: !!,"Date not entered."
  • Line Location: ADDR+1
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Behavioral Health Record is NOT complete!! Deleting Record.",!
  • Line Location: ADDR+7
Function Call: WRITE
  • Prompt: !,"No PRIMARY PROVIDER entered!! - Required element"
  • Line Location: ADDR+12
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ***NOTIFY PROGRAMMER***"
  • Line Location: ADDR+14
Function Call: WRITE
  • Prompt: !!,"Incomplete record!! Deleting record!!"
  • Line Location: ADDR+17
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"PLEASE EDIT THIS RECORD!!",!!
  • Line Location: ADDR+18
Function Call: WRITE
  • Prompt: !!,"ERROR - NO PROBLEM 8"
  • Line Location: GENPOV+1
Function Call: WRITE
  • Prompt: !!,"ERROR - NO POV CODE"
  • Line Location: GENPOV+4
Function Call: WRITE
  • Prompt: !,"ERROR - NO POV CODE"
  • Line Location: GENPOV+7
Function Call: WRITE
  • Prompt: !!,"Creating POV Failed!",$C(7),$C(7)
  • Line Location: GENPOV+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETPROV+1
Function Call: WRITE
  • Prompt: !!,"Creating Primary Provider entry failed!!!",$C(7),$C(7)
  • Line Location: GETPROV+6
Function Call: WRITE
  • Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!!
  • Line Location: GETPAT1+6
Function Call: WRITE
  • Prompt: !,"Record deleted."
  • Line Location: DEL+4
Routine Call
  • DIE
  • Line Location:
    • ADDR+10
Routine Call
  • DDS
  • Line Location:
    • ADDR+13
Routine Call
  • DIC
  • Line Location:
    • GETPAT1+2
Routine Call
  • DIR
  • Line Location:
    • GETTYPE+5
    • GETDATE+3
    • GENPOV+3
    • GETPROV+2
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AMHREC - [#9002011] Classic Fileman Calls
^AMHRPRO - [#9002011.01] Classic Fileman Calls
^AMHRPROV - [#9002011.02] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHPROB - [#9002012.2] GENPOV+8
^AMHPROB("B" GENPOV+1, GENPOV+6
^AMHREC - [#9002011] DEL+1
^VA(200 - [#200] GETPROV+2

Label References

Name Line Occurrences
DEL ADDR+11, ADDR+12, ADDR+17
EOJ GETTYPE+6, ADDR+22
GENPOV ADDR+16
GETPAT ADDR+11
GETPAT1 GETPAT1+5
GETPROV ADDR+12
PAUSE ADDR+7, DEL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % GETPAT1+7*
>> AMHACTN ADDR+2*, ADDR+4*
>> AMHADPTV GETTYPE+1*, ADDR+19, ADDR+20, ADDR+21
AMHC GETPAT+2*, GETPAT1+3!, GETPAT1+5*, GETPAT1+7!, GETPAT1+8!
>> AMHDATE GETDATE+1*, GETDATE+3*, GETDATE+5*, ADDR+1, ADDR+5
>> AMHERROR ADDR+18
>> AMHOKAY ADDR+17*
>> AMHPAT ADDR+11, GENPOV+8, GETPROV+5, GETPAT1+1*, GETPAT1+4*, GETPAT1+5, GETPAT1+7*
>> AMHPATCE GETTYPE+2
>> AMHPTYPE GETTYPE+3*, GETTYPE+7*
>> AMHQUIT ADDR+2*, ADDR+4*, ADDR+14*
>> AMHR ADDR+9*, ADDR+10, ADDR+11, ADDR+12, ADDR+13, GENPOV+8, GETPROV+5, DEL+1, DEL+2
>> AMHRDEL DEL+2*
AMHVDLT DEL+1*, EOJ+1!
AMHVTYPE ADDR+5, EOJ+1!
>> APCDOVRR ADDR+3*
>> AUPNDOD GETPAT1+6
D0 ADDR+6!, GENPOV+8!, GETPROV+5!
DA GETTYPE+5!, ADDR+10*!, ADDR+11*, ADDR+13*, GENPOV+3!, GETPROV+2!, GETPROV+5!, GETPAT1+2!
DD GENPOV+8!, GETPROV+5!
>> DDSFILE ADDR+13*
DG GETPROV+5!
DH GETPROV+5!
DI GETPROV+5!
DIADD ADDR+5*, ADDR+6!, GENPOV+8*, GENPOV+10!, GETPROV+5*!, GETPAT1+2!
DIC ADDR+5!*, ADDR+6!, GENPOV+8*, GETPROV+2!, GETPROV+5*!, GETPAT1+2*!
DIC("DR" ADDR+5*, GENPOV+8*, GETPROV+5*
DIC(0 ADDR+5*, GENPOV+8*, GETPROV+5*, GETPAT1+2*
DIE ADDR+6!, ADDR+10*!, ADDR+11*, GETPROV+5!
DIMSG ADDR+14!
DIR GETTYPE+5!, GETDATE+3!, GENPOV+3!, GETPROV+2!, PAUSE+1!
DIR("A" GETTYPE+5*, GETDATE+3*, GENPOV+3*, GETPROV+2*, PAUSE+1*
DIR("B" GENPOV+3*, GETPROV+2*
DIR(0 GETTYPE+5*, GETDATE+3*, GENPOV+2*, GETPROV+2*, PAUSE+1*
DIRUT GETTYPE+6, GETDATE+3*, GETDATE+4, GENPOV+4, GETPROV+2!*, GETPROV+3, PAUSE+1*
DIU GETPROV+5!
DIW GETPROV+5!
DLAYGO ADDR+5*, ADDR+6!, GENPOV+8*, GENPOV+10!, GETPROV+5*!, GETPAT1+2!
DO GENPOV+8!, GETPROV+5!
DQ GETPROV+5!
DR ADDR+6!, ADDR+10*!, ADDR+11*, ADDR+13*, GETPAT1+2!
DR(2 ADDR+10*
DT GETDATE+3
DTOUT GETPROV+2!
DUOUT GETDATE+3, GETPROV+2!, PAUSE+1
DUZ ADDR+5, GETPROV+2
IOF START+2, GETTYPE+2
J START+3*, START+4!
U GENPOV+8, GETPROV+2, DEL+1
X START+3*, START+4!, ADDR+5*, ADDR+6!, GENPOV+1*, GENPOV+5*, GENPOV+6*, GENPOV+7, GENPOV+8, GETPROV+2!
, GETPROV+5*, GETPAT1+5*
Y GETTYPE+7, GETDATE+5, ADDR+7, ADDR+9, GENPOV+5, GENPOV+9, GETPROV+2!, GETPROV+4, GETPROV+5, GETPROV+6
, GETPAT1+3, GETPAT1+4

Marked Items

Name Field # of Occurrence
$T(TEXT+J START+3
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 |  Marked Items |  All