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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMHLEFP

Package: Mental Health Social Services

Routine: AMHLEFP


Information

AMHLEFP ; IHS/CMI/LAB - PRINT ENCOUNTER RECORD ;

Source Information

Source file <AMHLEFP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
Mental Health Social Services 2 ^AMHLEFP2  ($$ALLOWP,$$ALLOWVI,NALLOWP)^AMHUTIL  
IHS VA Utilities 1 ^XBDBQUE  
Kernel 1 HOME^%ZIS  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Mental Health Social Services 6 AMHLE3  AMHLEA  AMHLEE  AMHLELV  AMHLEP1  AMHLEP2  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PRINT1 ;
PAT ;one or all patients
ZIS ;EP
FORMAT ;
PROV ;limit by provider
V1 ;
START ;
GETDATES ;
XIT ;
ED ;get ending date
PRINT ; EP - print individual forms
FORMDIR(R) ;EP
COMP ;EP - do nothing
D ; Run by visit date

External References

Name Field # of Occurrence
DD^%DT ED+1, ED+4
C^%DTC ED+4, D+1
HOME^%ZIS START+1
^AMHLEFP2 PRINT1+5
$$ALLOWP^AMHUTIL PAT+5, V1+6
$$ALLOWVI^AMHUTIL V1+4
NALLOWP^AMHUTIL PAT+5
^DIC PAT+5, PROV+6
^DIR BD+2, ED+1, PAT+2, PROV+3, FORMDIR+7
^XBDBQUE ZIS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @(IOF),!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: "********** ENCOUNTER FORM PRINT **********",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: "This report will produce hard copy computer generated encounter forms.",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"Please enter the date range for which forms should be printed.",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: FORMDIR+4
Routine Call
  • %ZIS
  • Line Location:
    • START+1
Routine Call
  • DIC
  • Line Location:
    • PAT+5
    • PROV+6
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • PAT+2
    • PROV+3
    • FORMDIR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC - [#9002011] V1+1, V1+5, V1+6
^AMHREC("B" D+2, V1+1
^AMHRPROV - [#9002011.02] V1+11
^AMHRPROV("AD" V1+11
^AMHSITE - [#9002013] FORMDIR+6

Label References

Name Line Occurrences
BD ED+2
FORMAT PROV+5
FORMDIR FORMAT+2
GETDATES PAT+3, PROV+4
PAT PAT+5
PRINT1 V1+1
PROV PAT+4, PROV+6, FORMAT+3
V1 D+2
XIT BD+3

Naked Globals

Name Field # of Occurrence
^(0 V1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMH80D XIT+1!
AMHBD BD+4*, ED+1, ED+4, XIT+1!, D+1
AMHBDD ED+4*, XIT+2!
AMHBDO XIT+2!
AMHBT XIT+2!
AMHBTH XIT+1!
AMHC XIT+1!
AMHDOLOG FORMAT+5*, XIT+3!
AMHED ED+3*, ED+4, XIT+1!, D+2
AMHEDD ED+4*, XIT+2!
AMHEDO XIT+2!
AMHEFT FORMAT+1!, FORMAT+4*, XIT+1!, PRINT1+4*
AMHEFTH FORMAT+1!, FORMAT+4*, XIT+1!, PRINT1+4
AMHFOUND XIT+2!
AMHHIT XIT+2!
AMHHRCN XIT+1!
AMHHRN XIT+2!
AMHID XIT+2!
AMHJOB XIT+1!
AMHLENG XIT+1!
AMHLINE XIT+2!
AMHNOLOG XIT+2!
AMHODAT XIT+2!, D+2*, V1+1
AMHP XIT+2!
AMHPAT PAT+1*, PAT+5*, FORMAT+5, XIT+1!, V1+5
AMHPCNT XIT+1!
AMHPG XIT+1!
AMHPRNM XIT+2!
AMHPRNT XIT+2!
AMHPROB XIT+2!
AMHPROV PROV+2*, PROV+6*, XIT+1!, V1+10, V1+11
AMHPRV XIT+2!
AMHQUIT XIT+2!, PRINT+1*, D+2, V1+1
AMHR XIT+2!, V1+1*, V1+4, V1+5, V1+6, V1+11
AMHR0 XIT+2!
AMHRCNT XIT+2!, V1+1*
AMHRLOC XIT+2!
AMHSD ED+4*, XIT+2!, D+1*, D+2
AMHTICL XIT+2!
AMHTNRQ XIT+2!
AMHTOT XIT+2!
AMHTQ XIT+2!
AMHTTXT XIT+2!
AMHX XIT+1!
D XIT+1!
DA FORMDIR+7!
DFN XIT+1!
DIC PAT+5*, PROV+1!, PROV+6*, XIT+1!
DIC("A" PAT+5*, PROV+6*
DIC(0 PAT+5*, PROV+6*
DIR BD+2!, ED+1!, PAT+2!, PROV+3!, XIT+1!, FORMDIR+3!, FORMDIR+7!
DIR("A" BD+2*, ED+1*, PAT+2*, PROV+3*, FORMDIR+7*
DIR("B" PAT+2*, PROV+3*, FORMDIR+6*
DIR(0 BD+2*, ED+1*, PAT+2*, PROV+3*, FORMDIR+4*
DIRUT BD+2*, BD+3, ED+1*, ED+2, PAT+2*, PAT+3, PROV+3*, PROV+4, FORMAT+3, XIT+1!
DTOUT XIT+1!
DUOUT BD+2, ED+1, PAT+2, PROV+3, XIT+1!
DUZ PAT+5, V1+4, V1+6
DUZ(2 FORMDIR+6
>> F V1+1, V1+3*, V1+7*, V1+9*, V1+10*, V1+11*
IO("Q" XIT+1!
IOF START+1, START+2, PRINT1+1
R FORMDIR~, FORMDIR+2*
U V1+1, V1+5, V1+6, V1+11, FORMDIR+6
>> X ED+4, D+1, V1+11*
>> X1 ED+4*, D+1*
>> X2 ED+4*, D+1*
XBNS ZIS+1*, XIT+1!
XBRC ZIS+1*, XIT+1!
XBRP ZIS+1*, XIT+1!
>> XBRX ZIS+1*
XBTX XIT+1!
Y BD+4, ED+1*, ED+3, ED+4*, PAT+4, PAT+5, PROV+5, PROV+6, FORMAT+4, XIT+1!
ZTSK XIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All