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 |  All
Print Page as PDF
Routine: AMHEYDI2

Package: Mental Health Social Services

Routine: AMHEYDI2


Information

AMHEYDI2 ; IHS/CMI/LAB - OHPRD-TUCSON/EDE AMHDR SPECIFIC INITIALIZATION AUGUST 14, 1992 ;

Source Information

Source file <AMHEYDI2.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIR  
Mental Health Social Services 1 (CURRUN,INFORM)^AMHEYDI3  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Mental Health Social Services 3 AMHEYC  AMHEYDI  AMHEYRE1  

Entry Points

Name Comments DBIA/ICR reference
GENLOG ; GENERATE NEW LOG ENTRY
QERR ;
PERR ;
RERR ;
GETLOG ;EP GET LAST LOG ENTRY
DISPLOG ; DISPLAY LAST LOG DATA
CONFIRM ; SEE IF THEY REALLY WANT TO DO THIS
START ;
EERR ;
FERR ;
CFLP ;
CHKMHSS ; CHECK MHSS RECORD "AEX" XREF
ERROR ;
CHKOLD ;EP - CHECK FOR DATA LEFT BY OLD RUN

External References

Name Field # of Occurrence
CURRUN^AMHEYDI3 START+6
INFORM^AMHEYDI3 START+1
^DIC GENLOG+4
^DIR CFLP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"*****ERROR ENCOUNTERED*****",!,"The last BH Data Export never successfully completed to end of job!!!",!,"This must be resolved before any other exports can be done.",!
  • Line Location: EERR+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"*****ERROR ENCOUNTERED*****",!,"Whoa! The Transaction global from the previous run was NEVER successfully",!,"written to an output device (unix uucppublic file, cartridge, diskette).",!
  • Line Location: PERR+4
Function Call: WRITE
  • Prompt: !,"You must execute the menu option called 'OUTP (OUTPUT)' before any further",!,"processing."
  • Line Location: PERR+5
Function Call: WRITE
  • Prompt: !,"You may also need to determine whether or not the transaction global for ",!,"LOG ENTRY ",AMH("LAST LOG")," was ever received by your Area Office.",!
  • Line Location: PERR+6
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"BH Data Transmission is currently running!!"
  • Line Location: RERR+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"BH Data Transmission is already queued to run!!"
  • Line Location: QERR+4
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"The last BH Export failed and has never been reset.",!,"See your site manager for assistence",!
  • Line Location: FERR+4
Function Call: WRITE
  • Prompt: !!,"Last run was for ",AMH("LAST BEGIN")," through ",AMH("LAST END"),"."
  • Line Location: DISPLOG+3
Function Call: WRITE
  • Prompt: !,"The location for this run is ",$P(^DIC(4,DUZ(2),0),U),"."
  • Line Location: CONFIRM+2
Routine Call
  • DIC
  • Line Location:
    • GENLOG+4
Routine Call
  • DIR
  • Line Location:
    • CFLP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMHXLOG - [#9002014] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMHREC("AEX" CHKMHSS+2, CHKMHSS+3
^AMHXLOG - [#9002014] GETLOG+1, GETLOG+5, ERROR+2, DISPLOG+1
^AMHXLOG(0 GETLOG+1
^BHSXDATA CHKOLD+1, GENLOG+7!
^DD("DD" DISPLOG+1, GENLOG+3
^DIC(4 - [#4] CONFIRM+2
^XTMP("AMHDR" CHKOLD+2
^XTMP("AMHREDO" CHKOLD+3
^XTMP("AMHSF" CHKOLD+4

Label References

Name Line Occurrences
@( ERROR+4
CHKMHSS START+8
CHKOLD START+4
CONFIRM START+10
DISPLOG GETLOG+4
EERR ERROR+3
ERROR GETLOG+6
GENLOG START+12
GETLOG START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AMH("LAST BEG IN" , DISPLOG+1*, DISPLOG+3
>> AMH("LAST END " , DISPLOG+1*, DISPLOG+3
>> AMH("LAST LOG " , GETLOG+1*, GETLOG+3, GETLOG+5, ERROR+2, PERR+6, DISPLOG+1
>> AMH("PREV STA TUS" , ERROR+2*, ERROR+3, ERROR+4
>> AMH("QFLG" START+3, START+5, START+7, START+9, START+11, CHKOLD+1*, CHKOLD+2*, CHKOLD+3*, CHKOLD+4*, ERROR+1*
, EERR+1*, PERR+1*, RERR+1*, QERR+1*, FERR+1*, CHKMHSS+4*, CFLP+2*, GENLOG+5*
>> AMH("RUN BEGI N" , CHKMHSS+4, GENLOG+3
>> AMH("RUN END" , GENLOG+3
>> AMH("RUN LOG" , GENLOG+6*
>> AMHV("R DATE" , CHKMHSS+1*, CHKMHSS+2*, CHKMHSS+3*, CHKMHSS+4
DA CFLP+1!, GENLOG+2!
DD GENLOG+2!
DIC GENLOG+2!, GENLOG+3*, GENLOG+4!
DIC("DR" GENLOG+3*
DIC(0 GENLOG+3*
DINUM GENLOG+2!
DIR CFLP+1!
DIR("A" CFLP+1*
DIR("B" CFLP+1*
DIR(0 CFLP+1*
>> DIRUT CFLP+2
DLAYGO GENLOG+2!, GENLOG+3*, GENLOG+4!
DR GENLOG+2!, GENLOG+4!
DUZ(2 CONFIRM+2, GENLOG+3
U GETLOG+1, GETLOG+5, ERROR+2, DISPLOG+1, CONFIRM+2
X GETLOG+1*, GENLOG+2!, GENLOG+3*
>> Y DISPLOG+1*, CFLP+2, GENLOG+3*, GENLOG+5, GENLOG+6
>> ZTQUEUED CHKOLD+1, CHKOLD+2, CHKOLD+3, CHKOLD+4, EERR+3, PERR+3, RERR+3, QERR+3, FERR+3, DISPLOG+2
, CHKMHSS+4, CONFIRM+1, GENLOG+1
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 |  All