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

Package: Mental Health Social Services

Routine: AMHLEOD


Information

AMHLEOD ; IHS/CMI/LAB - enter outside rx ;

Source Information

Source file <AMHLEOD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  ^DIC  ^DIE  ^DIR  
IHS Patient 1 (,KILL)^AUPNPAT  
Patient Care Component 1 ^APCDALV  
Registration 1 FULL^VALM1  

Entry Points

Name Comments DBIA/ICR reference
GETOL ;
GETDRUG ;
BEGIN ;
GENVISIT ;
HDR ;write header
PROCESS ;
TEXT ;
NODRUG ;
START ;EP - called from option
INIT ;EP
EXIT ;cleanup and exit
GENVMED ;
GETLOC ; GET LOCATION OF ENCOUNTER
GETDATE ;EP GET DATE OF ENCOUNTER

External References

Name Field # of Occurrence
^%DT GETDATE+3
^APCDALV GENVISIT+10
^AUPNPAT GENVISIT+12
KILL^AUPNPAT EXIT+3
^DIC GETLOC+4, GETDRUG+5
^DIE GENVMED+3
^DIR GETDATE+1, GETOL+2, GETDRUG+2, NODRUG+2, NODRUG+6
FULL^VALM1 START+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Patient not defined"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !?80-$L(X)\2,X
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"OUTSIDE DRUG not defined in DRUG file, notify programmer."
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !!,"Please enter your service unit's OTHER or UNDESIG location.",!,"If you don't know what that is please ask your PCC Data Entry Operator",!,"for the location of encounter to use for historical activities performed"
  • Line Location: GETLOC+1
Function Call: WRITE
  • Prompt: !,"outside this facility.",!
  • Line Location: GETLOC+2
Function Call: WRITE
  • Prompt: " <Future dates not allowed>",$C(7),$C(7)
  • Line Location: GETDATE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: GETDRUG+2
Function Call: WRITE
  • Prompt: !,"No drug entered!!"
  • Line Location: GETDRUG+4
Function Call: WRITE
  • Prompt: !,"That drug cannot be found in the Drug file."
  • Line Location: NODRUG+1
Function Call: WRITE
  • Prompt: !,"Exiting..."
  • Line Location: NODRUG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NODRUG+6
Function Call: WRITE
  • Prompt: !!,"Exiting..."
  • Line Location: NODRUG+7
Function Call: WRITE
  • Prompt: !!,$C(7),"Creating PCC Visit Failed....Notify Supervisor"
  • Line Location: GENVISIT+11
Function Call: WRITE
  • Prompt: !!,"Error.... no drug entry"
  • Line Location: GENVMED+1
Function Call: WRITE
  • Prompt: !!,"Please enter all available information about this prescription.",!
  • Line Location: GENVMED+2
Function Call: WRITE
  • Prompt: !!,"Creating V Medication entry failed!! Notify supervisor!"
  • Line Location: GENVMED+4
Routine Call
  • DIE
  • Line Location:
    • GENVMED+3
Routine Call
  • DIC
  • Line Location:
    • GETLOC+4
    • GETDRUG+5
Routine Call
  • DIR
  • Line Location:
    • GETDATE+1
    • GETOL+2
    • GETDRUG+2
    • NODRUG+2
    • NODRUG+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^AUPNVSIT - [#9000010] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSDRUG("B" INIT+2

Label References

Name Line Occurrences
EXIT START+2, BEGIN+2, BEGIN+3, BEGIN+6
GENVISIT PROCESS+5
GENVMED PROCESS+7
GETDATE PROCESS+1, GETDATE+3, GETDATE+4
GETDRUG BEGIN+5, NODRUG+4
GETLOC BEGIN+4
GETOL PROCESS+3
INIT BEGIN+1
NODRUG GETDRUG+6
PROCESS BEGIN+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT GETDATE+3*
AMHDATE PROCESS+2, EXIT+2!, GETDATE+1*, GETDATE+5*, GENVISIT+3
AMHDIEN BEGIN+5, EXIT+2!, GETDRUG+1*, GETDRUG+7*, NODRUG+5*, GENVMED+1
AMHDRUG EXIT+2!, GETDRUG+1*, GETDRUG+5*, GETDRUG+7*, NODRUG+6, NODRUG+8*, NODRUG+9*
AMHLOC EXIT+2!, GETLOC+3*, GETLOC+6*, GENVISIT+6
AMHOIEN EXIT+2!, INIT+2*, NODRUG+5
AMHOL PROCESS+4, EXIT+2!, GETOL+1*, GETOL+3*, GENVISIT+9
AMHQUIT BEGIN+2, BEGIN+5, PROCESS+6, EXIT+2!, INIT+1*, INIT+2*, NODRUG+3*, NODRUG+7*, GENVISIT+11*
APCDALVR EXIT+1!, GENVISIT+1!
APCDALVR("APCDAFLG" GENVISIT+11
APCDALVR("APCDANE" GENVISIT+8*
APCDALVR("APCDAUTO" GENVISIT+8*
APCDALVR("APCDCAT" GENVISIT+7*
APCDALVR("APCDDATE" GENVISIT+3*
APCDALVR("APCDLOC" GENVISIT+6*
APCDALVR("APCDOLOC" GENVISIT+9*
APCDALVR("APCDPAT" GENVISIT+5*, GENVISIT+12
APCDALVR("APCDTYPE" GENVISIT+4*
APCDALVR("APCDVSIT" GENVISIT+12
APCDALVR("AUPNTALK" GENVISIT+2*
APCDANE EXIT+1!
APCDLOOK EXIT+1!
APCDPAT EXIT+1!, GENVISIT+12*
APCDVSIT EXIT+1!, GENVISIT+12*, GENVMED+3
>> AUPNLK("ALL" EXIT+3!
AUPNTALK EXIT+3!
D EXIT+4!
D0 EXIT+4!
DA EXIT+4!, GETOL+2!, GETDRUG+7!, GENVMED+3*
DD EXIT+4!, GETDRUG+2!, NODRUG+6!
DDH EXIT+4!
>> DFN START+2, BEGIN+3, GENVISIT+5, GENVISIT+12
DI EXIT+4!
DIC EXIT+4!, GETLOC+4*!, GETDRUG+5*!
DIC(0 GETLOC+4*, GETDRUG+5*
DIE EXIT+4!, GENVMED+3*
DIR EXIT+4!, GETDATE+1!, GETOL+2!, GETDRUG+2!, GETDRUG+7!, NODRUG+2!, NODRUG+6!
DIR("A" GETDATE+1*, GETOL+2*, GETDRUG+2*, NODRUG+2*, NODRUG+6*
DIR("B" NODRUG+2*, NODRUG+6*
DIR(0 GETDATE+1*, GETOL+2*, GETDRUG+2*, NODRUG+2*, NODRUG+6*
DIRUT EXIT+4!, GETDATE+1*, GETDATE+2, GETDRUG+2*, GETDRUG+4, GETDRUG+7!, NODRUG+2*, NODRUG+3, NODRUG+6*, NODRUG+7
DIV EXIT+4!
DIW EXIT+4!
DQ EXIT+4!
DR EXIT+4!, GENVMED+3*
DT GETDATE+1, GETDATE+4
DTOUT EXIT+4!, GETDRUG+2, GETDRUG+7!, NODRUG+6
DUOUT EXIT+4!, GETDATE+1, GETDRUG+7!, NODRUG+2
I EXIT+4!
IOF HDR+1
J HDR+2*, HDR+3!
X HDR+2*, HDR+3!, EXIT+4!, GETDATE+4!, GETDRUG+5*
Y EXIT+4!, GETLOC+5, GETLOC+6, GETDATE+3, GETDATE+4, GETDATE+5, GETOL+3, GETDRUG+3, GETDRUG+5, GETDRUG+6
, GETDRUG+7, NODRUG+4, NODRUG+8, GENVISIT+12*, GENVMED+4

Marked Items

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