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

Package: Mental Health Social Services

Routine: AMHLEER


Information

AMHLEER ; IHS/CMI/LAB - EDIT A RECORD ;

Source Information

Source file <AMHLEER.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Mental Health Social Services 7 START^AMHBPL  DISPDG^AMHLE  RECCHECK^AMHLE2  (OTHER,PAUSE,PCCLINK)^AMHLEA  XIT^AMHLEE  ^AMHRLKUP  PTSEC^AMHUTIL2  
VA Fileman 5 ^%DT  ^DDS  ^DIC  ^DIE  ^DIR  
Registration 2 NOTICE^DGSEC4  FULL^VALM1  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
RECLKUP ;
PL1 ;
GETLOC ;get location of encounter
EOJ ; END OF JOB
DGSECDS ;
GETPAT ; GET PATIENT
EDIT ;
TEXT ;
PL ;EP - called from SDE to update the problem list
GETDATE ; GET DATE OF ENCOUNTER

External References

Name Field # of Occurrence
^%DT GETDATE+5
START^AMHBPL PL1+1
DISPDG^AMHLE DGSECDS+6, DGSECDS+7
RECCHECK^AMHLE2 EDIT+6
OTHER^AMHLEA EDIT+5
PAUSE^AMHLEA EDIT+6, PL+7, PL+11, PL+12, DGSECDS+1, DGSECDS+6
PCCLINK^AMHLEA EDIT+7
XIT^AMHLEE PL+7, PL+9, PL+10, PL+11, PL+12, DGSECDS+1, DGSECDS+6, DGSECDS+9, PL1+2
^AMHRLKUP RECLKUP+1
PTSEC^AMHUTIL2 DGSECDS+4
^DDS EDIT+4
NOTICE^DGSEC4 DGSECDS+11
^DIC GETPAT+2, GETLOC+2
^DIE EDIT+3
^DIR GETDATE+3, PL+8, DGSECDS+8
FULL^VALM1 PL+1
$$FMTE^XLFDT GETPAT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Date entered!"
  • Line Location: AMHLEER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+1
Function Call: WRITE
  • Prompt: " <Future dates not allowed>",$C(7),$C(7)
  • Line Location: GETDATE+6
Function Call: WRITE
  • Prompt: !!?10,"***** PATIENT'S DATE OF DEATH IS ",$$FMTE^XLFDT(AUPNDOD),!!
  • Line Location: GETPAT+5
Function Call: WRITE
  • Prompt: !!,"ERROR IN SCREENMAN FORM!! ** NOTIFY PROGRAMMER **"
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !,"Problem List updates must be attached to a visit. If you are updating the "
  • Line Location: PL+2
Function Call: WRITE
  • Prompt: !,"Problem List in the context of a patient visit select the appropriate existing"
  • Line Location: PL+3
Function Call: WRITE
  • Prompt: !,"visit and then update the Problem List. If you are updating the Problem List "
  • Line Location: PL+4
Function Call: WRITE
  • Prompt: !,"outside of the context of a patient visit, first create a chart review visit "
  • Line Location: PL+5
Function Call: WRITE
  • Prompt: !,"and then update the Problem List."
  • Line Location: PL+6
Function Call: WRITE
  • Prompt: !,"There are no visits to select."
  • Line Location: PL+7
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: PL+9
Function Call: WRITE
  • Prompt: !,"No record selected."
  • Line Location: PL+10
Function Call: WRITE
  • Prompt: !,"Not a valid BH RECORD."
  • Line Location: PL+12
Function Call: WRITE
  • Prompt: !!,"This is not a patient visit."
  • Line Location: DGSECDS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DGSECDS+8
Routine Call
  • DIE
  • Line Location:
    • EDIT+3
Routine Call
  • DDS
  • Line Location:
    • EDIT+4
Routine Call
  • DIC
  • Line Location:
    • GETPAT+2
    • GETLOC+2
Routine Call
  • DIR
  • Line Location:
    • GETDATE+3
    • PL+8
    • DGSECDS+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^AMHREC - [#9002011] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] EDIT+1, EDIT+5, PL+12, DGSECDS+1, DGSECDS+2, DGSECDS+3
^TMP("AMHVRECS" PL+11

Label References

Name Line Occurrences
EDIT AMHLEER+9
EOJ AMHLEER+4, AMHLEER+8, AMHLEER+10
GETDATE AMHLEER+3, GETDATE+5, GETDATE+6
GETLOC AMHLEER+5
GETPAT AMHLEER+6
PL1 DGSECDS+5
RECLKUP AMHLEER+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT GETDATE+5*
>> AMHACTN EDIT+2*
AMHDATE AMHLEER+4, GETDATE+2*, GETDATE+8*, EOJ+1!
>> AMHERROR EDIT+6*
>> AMHLOC GETLOC+1*, GETLOC+4*, DGSECDS+3*
AMHODAT GETDATE+7!, EOJ+1!
AMHPAT GETPAT+1*, GETPAT+4*, EDIT+1*, EDIT+4, EOJ+1!, DGSECDS+2*, DGSECDS+4, DGSECDS+11
AMHPROV EOJ+1!
>> AMHQUIT EDIT+4*
AMHR AMHLEER+8, EDIT+1, EDIT+3, EDIT+4, EDIT+5, EOJ+1!, PL+11*!, PL+12!, DGSECDS+1, DGSECDS+2
, DGSECDS+3, PL1+1
>> AMHR1 PL+10*, PL+11
>> AMHRCNT PL+7, PL+8
AMHRDEL PL+11!, PL+12!
AMHRESU DGSECDS+4, DGSECDS+10!, DGSECDS+11
AMHRESU(1 DGSECDS+5, DGSECDS+6
>> AUPNDOD GETPAT+5
DA GETPAT+2!, GETLOC+2!, EDIT+3*!, EDIT+4*, DGSECDS+8!
>> DDSFILE EDIT+4*
DIADD EDIT+3*!
DIC GETPAT+2*!, GETLOC+2*!
DIC("A" GETPAT+2*, GETLOC+2*
DIC(0 GETPAT+2*, GETLOC+2*
DIE EDIT+3*!
DIMSG EDIT+4!
DIR GETDATE+3!, PL+8!, DGSECDS+8!
DIR("A" GETDATE+3*, PL+8*, DGSECDS+8*
DIR("B" DGSECDS+8*
DIR(0 GETDATE+3*, PL+8*, DGSECDS+8*
>> DIRUT GETDATE+3*, GETDATE+4, PL+8*, PL+9
DR GETPAT+2!, EDIT+3*!, EDIT+4*
DR(2 EDIT+3*
DT GETDATE+3, GETDATE+6
>> DUOUT GETDATE+3, PL+8
U EDIT+1, EDIT+5, DGSECDS+1, DGSECDS+2, DGSECDS+3
VALMY PL+10!
X GETDATE+6!
XQORNOD PL+10!
>> Y GETDATE+5, GETDATE+6, GETDATE+8, GETPAT+3, GETPAT+4, GETLOC+3, GETLOC+4, PL+10, DGSECDS+9
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