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

Package: Contract Health Management Information System

Routine: ACHSHLGQ


Information

ACHSHLGQ ; IHS/ITSC/PMF - QUEUE CHS HOSPITAL LOG SUMMARY ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSHLGQ.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 C^%DTC  ^DIC  WAIT^DICD  ^DIR  
Contract Health Management Information System 3 ($$LOC,$$USR)^ACHS  ^ACHSHLGC  ^ACHSVAR  
Kernel 2 (,HOME)^%ZIS  ^%ZTLOAD  
IHS VA Utilities 1 $$C^XBFUNC  

Entry Points

Name Comments DBIA/ICR reference
SELBEG ;Select beginning date
SELQBY ;Select method of report.
D ; Select diagnosis or all diagnoses
SELEND ;Select ending date
REPTYP ;Choose Report Type
ZTLOAD ; Load Taskman
DICP
P ;Select individual or all patients
S ;Select active/non-active/scheduled/all
END ; Kill vars, quit.
DICV ; Lookup vendor if single vendor.
V ; Select vendor or all vendors
DEVICE ;Device Selection
DICD

External References

Name Field # of Occurrence
C^%DTC SELBEG+1, SELBEG+5
^%ZIS DEVICE+2
HOME^%ZIS DEVICE+4, ZTLOAD+3
^%ZTLOAD ZTLOAD+3
$$LOC^ACHS ACHSHLGQ+5
$$USR^ACHS ACHSHLGQ+5
^ACHSHLGC DEVICE+5
^ACHSVAR ACHSHLGQ+3
^DIC DICP, DICV+4, DICD
WAIT^DICD DEVICE+5
^DIR SELQBY+3, P+2, V+2, D+2, S+7, SELBEG+4, SELEND+3, REPTYP+2, DEVICE+3
$$C^XBFUNC ACHSHLGQ+6, ACHSHLGQ+7, ACHSHLGQ+8, ACHSHLGQ+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("*************************************",80)
  • Line Location: ACHSHLGQ+6
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("* Queue HOSPITAL LOG for "_ACHSFAC_" "_"*",80)
  • Line Location: ACHSHLGQ+7
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("* Enter '?' at any time for HELP."_" "_"*",80)
  • Line Location: ACHSHLGQ+8
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("*************************************",80)
  • Line Location: ACHSHLGQ+9
Function Call: WRITE
  • Prompt: !
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DICP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DICV+1
Function Call: WRITE
  • Prompt: !
  • Line Location: D+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DICD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: S+7
Function Call: WRITE
  • Prompt: *7,*7,!!?5,"*** Scheduled Admissions is unavailable with the Diagnosis option ***"
  • Line Location: S+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SELBEG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELEND+3
Function Call: WRITE
  • Prompt: *7,!!?20,"This report may take awhile to compile.",!?9," It is recommended that you QUEUE your output to a PRINTER.",!
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED - REQUEST ABORTED"
  • Line Location: DEVICE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+4
    • ZTLOAD+3
Routine Call
  • DIC
  • Line Location:
    • DICP
    • DICV+4
    • DICD
Routine Call
  • DIR
  • Line Location:
    • SELQBY+3
    • P+2
    • V+2
    • D+2
    • S+7
    • SELBEG+4
    • SELEND+3
    • REPTYP+2
    • DEVICE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD9 - [#80] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls
^AUTTVNDR - [#9999999.11] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSF - [#9002080] ACHSHLGQ+3
^TMP($J ACHSHLGQ+4!

Label References

Name Line Occurrences
@( SELQBY+7
DEVICE DEVICE+6
DICD DICD+3
DICP DICP+3
DICV DICV+8
END SELQBY+4, P+4, DICP+1, V+4, DICV+6, D+4, DICD+1, S+8, SELBEG+4, SELEND+3
, REPTYP+3, DEVICE+4
S P+5, DICP+2, V+5, DICV+7, D+5, DICD+2, S+9, SELBEG+4
SELBEG SELEND+3, REPTYP+3
SELQBY P+3, V+3, D+3, S+8, DEVICE+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ZTLOAD+2*
>> %ZIS DEVICE+2*
ACHSADM SELQBY+1!
ACHSATYP S+1!, S+10*, SELBEG+2, SELBEG+3, SELEND+1, SELEND+2, END+1!
ACHSBEG SELBEG+5*, END+1!
ACHSDIAG SELQBY+1!, D+3!, DICD+1, DICD+2, S+9
ACHSDIAG( DICD+3*
ACHSDIAG(0 D+5*
ACHSEND SELEND+4*, END+1!
ACHSFAC ACHSHLGQ+5*, ACHSHLGQ+7, END+1!
ACHSMAX SELBEG+1*, SELBEG+2, SELBEG+5*, SELEND+1, END+1!
ACHSPAT SELQBY+1!, P+3!, DICP+1, DICP+2
ACHSPAT( DICP+3*
ACHSPAT(0 P+5*
ACHSQBY SELQBY+1!, SELQBY+4!, SELQBY+5*, SELQBY+6, SELQBY+7
ACHSQIO ZTLOAD+1*, END+1!
>> ACHSRTYP REPTYP+4*
ACHSSTAT SELQBY+6*, END+1!
ACHSUSR ACHSHLGQ+5*, END+1!
ACHSVNDR SELQBY+1!, V+3!, DICV+6, DICV+7
ACHSVNDR( DICV+8*
ACHSVNDR(0 V+5*
DIC DICP!*, DICV+2!, DICV+3*, DICV+5!, DICD!*
DIC(0 DICP*, DICV+3*, DICD*
DIR SELQBY+1!, SELQBY+3!, P+2!, V+2!, D+2!, S+1!, S+7!, SELBEG+4!, SELEND+3!, REPTYP+2!
, DEVICE+3!, END+2!
DIR("?" SELQBY+2*, P+1*, V+1*, D+1*, S+3*, S+4*, S+5*, S+6*, REPTYP+1*
DIR("A" SELQBY+2*, P+1*, V+1*, D+1*, S+2*, SELBEG+3*, SELEND+2*, REPTYP+1*
DIR("B" SELQBY+2*, P+1*, V+1*, D+1*, S+2*, REPTYP+1*
DIR(0 SELQBY+2*, P+1*, V+1*, D+1*, S+2*, SELBEG+2*, SELEND+1*, REPTYP+1*, DEVICE+3*
DIROUT SELQBY+4, P+4, V+4, D+4, S+8, SELBEG+4, SELEND+3, REPTYP+3, END+2!
DIRUT SELQBY+4, P+3, V+3, D+3, S+8, SELBEG+4, SELEND+3, REPTYP+3, END+2!
DT SELBEG+1, SELBEG+5
DTOUT S+8, SELBEG+4, SELEND+3, REPTYP+3, END+2!
DUOUT S+8, SELBEG+4, SELEND+3, REPTYP+3, END+2!
DUZ(2 ACHSHLGQ+3
IO("Q" DEVICE+5, ZTLOAD+3!
IO("S" DEVICE+5, DEVICE+6
IOM ZTLOAD+1
ION ZTLOAD+1
IOSL ZTLOAD+1
IOST DEVICE+6, ZTLOAD+1
>> POP DEVICE+3
>> X SELBEG+1, SELBEG+5
>> X1 SELBEG+1*, SELBEG+5*
>> X2 SELBEG+1*, SELBEG+5*
>> Y SELQBY+5, P+5, DICP+1, DICP+2, DICP+3, V+5, DICV+6, DICV+7, DICV+8, D+5
, DICD+1, DICD+2, DICD+3, S+9, S+10, SELBEG+5, SELEND+4, REPTYP+4, DEVICE+4
>> ZTDESC ZTLOAD+1*
>> ZTIO ZTLOAD+1*
>> ZTRTN ZTLOAD+1*
>> ZTSAVE( ZTLOAD+2*
ZTSK ZTLOAD+3!
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