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

Package: Mental Health Social Services

Routine: AMHRDISP


Information

AMHRDISP ; IHS/CMI/LAB - DISPLAY A RECORD (FILEMAN INQUIRE FORMAT) ;

Source Information

Source file <AMHRDISP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Mental Health Social Services 4 ^AMHDVD  PAUSE^AMHLEA  ^AMHRLKUP  ($$ALLOWP,NALLOWP)^AMHUTIL  
VA Fileman 3 ^%DT  ^DIC  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
RECLKUP ;
GETLOC ;get location of encounter
EOJ ; END OF JOB
GETPAT ; GET PATIENT
TEXT ;
DSPLY ;
GETDATE ; GET DATE OF ENCOUNTER

External References

Name Field # of Occurrence
^%DT GETDATE+5
^AMHDVD DSPLY+1
PAUSE^AMHLEA GETPAT+7
^AMHRLKUP RECLKUP+1
$$ALLOWP^AMHUTIL GETPAT+7
NALLOWP^AMHUTIL GETPAT+7
^DIC GETPAT+4, GETLOC+2
^DIR GETDATE+3
$$FMTE^XLFDT GETPAT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Date entered!"
  • Line Location: AMHRDISP+4
Function Call: WRITE
  • Prompt: !!,"No patient selected."
  • Line Location: AMHRDISP+7
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+8
Routine Call
  • DIC
  • Line Location:
    • GETPAT+4
    • GETLOC+2
Routine Call
  • DIR
  • Line Location:
    • GETDATE+3

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
DSPLY AMHRDISP+10
EOJ AMHRDISP+4, AMHRDISP+7, AMHRDISP+9, AMHRDISP+11
GETDATE AMHRDISP+3, GETDATE+5, GETDATE+6
GETLOC AMHRDISP+5
GETPAT AMHRDISP+6
RECLKUP AMHRDISP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT GETDATE+5*
AMHDATE AMHRDISP+4, GETDATE+2*, GETDATE+8*, EOJ+1!
>> AMHIAMDE AMHRDISP+7, GETPAT+3
>> AMHLOC GETLOC+1*, GETLOC+4*
AMHODAT GETDATE+7!, EOJ+1!
AMHPAT AMHRDISP+7, GETPAT+1*, GETPAT+6*, GETPAT+7*, EOJ+1!
AMHPROV EOJ+1!
AMHR AMHRDISP+9, EOJ+1!
>> AUPNDOD GETPAT+8
DA GETLOC+2!
DIC GETPAT+2*, GETPAT+4!, GETLOC+2*!
DIC("A" GETPAT+2*, GETPAT+3*, GETLOC+2*
DIC(0 GETPAT+2*, GETLOC+2*
DIR GETDATE+3!
DIR("A" GETDATE+3*
DIR(0 GETDATE+3*
>> DIRUT GETDATE+3*, GETDATE+4
DT GETDATE+3, GETDATE+6
>> DUOUT GETDATE+3
DUZ GETPAT+7
X GETDATE+6!
>> Y GETDATE+5, GETDATE+6, GETDATE+8, GETPAT+5, GETPAT+6, GETLOC+3, GETLOC+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All