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

Package: Registration

Routine: DGQESC2


Information

DGQESC2 ;ALB/JFP - VIC OUTPATIENT CLINIC SCAN ROUTINE ; 03/29/2004

Source Information

Source file <DGQESC2.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Registration 3 $$EVENT^DGQEHL72  ($$EDATE,$$SDATE)^DGQESC0  (CLINIC,DIVISION)^VAUTOMA  
VA Fileman 2 NOW^%DTC  ^DIR  
Kernel 1 (,$$S)^%ZTLOAD  
Scheduling 1 $$SDAPI^SDAMA301  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGQE DATA CARD OUT  

Entry Points

Name Comments DBIA/ICR reference
OUTSCAN ; Scan the clinics for appointments to create VIC cards
END ; -- End of Code
CHKDIV ; -- Check to see if clinic is part of Division selected
; -- re-sequences array
SDAMA ; Build TMP Global with Appointment API Data for Report
BLDHL7 ; -- Building HL7 batch message
BATCH ; -- Entry point for placing cards on hold
ENO ; -- Entry Point
EXIT ; -- Finish Process
CBLD3(CLINIC) ; Build array of specified Clinics for specified Divisions
BLDTMP ;
; -- Building Temporary Storage Data

External References

Name Field # of Occurrence
NOW^%DTC ENO+16
^%ZTLOAD BATCH+10
$$S^%ZTLOAD BLDTMP+3
$$EVENT^DGQEHL72 BLDHL7+3
$$EDATE^DGQESC0 ENO+31
$$SDATE^DGQESC0 ENO+28
^DIR ENO+7, ENO+39
$$SDAPI^SDAMA301 SDAMA+5
CLINIC^VAUTOMA ENO+25
DIVISION^VAUTOMA ENO+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,CNT_" Outpatients down loaded to VIC work station"
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,"Note: Each Dot equals a clinic",!
  • Line Location: OUTSCAN+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: CBLD3+3
Routine Call
  • DIR
  • Line Location:
    • ENO+7
    • ENO+39

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] CHKDIV+6, CHKDIV+8
^DG(43 - [#43] ENO+21
^SC - [#44] OUTSCAN+7, OUTSCAN+8, OUTSCAN+12, OUTSCAN+13, CHKDIV+6
^TMP($J OUTSCAN+3!, OUTSCAN+18!, SDAMA+5*, SDAMA+6!, BLDTMP+2, BLDTMP+4, BLDTMP+5, BLDTMP+6

Label References

Name Line Occurrences
BATCH ENO+42
BLDHL7 OUTSCAN+17
BLDTMP OUTSCAN+17
CBLD3 OUTSCAN+8, OUTSCAN+13, OUTSCAN+15
EXIT BLDHL7+7
OUTSCAN ENO+45
SDAMA OUTSCAN+17

Naked Globals

Name Field # of Occurrence
^(0 CHKDIV+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ENO+16
CLINDATE OUTSCAN+2~, BLDTMP+5*, BLDTMP+6
CLINIC OUTSCAN+2~, OUTSCAN+7*, OUTSCAN+8, OUTSCAN+12*, OUTSCAN+13, OUTSCAN+15*, CBLD3~, CBLD3+1, BLDTMP+2*, BLDTMP+4
, BLDTMP+5, BLDTMP+6, CHKDIV+5
CLNARRAY OUTSCAN+2~
CLNARRAY( CBLD3+1*, CBLD3+2, SDAMA+3, SDAMA+4
CNT ENO+11~, ENO+19*, EXIT+1, BLDHL7+2*
DATE ENO+11~, ENO+16*
DFN ENO+11~, BLDHL7+1*, BLDHL7+2*, BLDTMP+4*, BLDTMP+5, BLDTMP+6
DFNARR ENO+11~, ENO+17*, ENO+18, EXIT+2, BLDHL7+2, BLDHL7+3, BLDTMP+6
DGARRAY OUTSCAN+2~, OUTSCAN+18!, SDAMA+5
DGARRAY("FLDS" SDAMA+2*
DGARRAY(1 SDAMA+1*
DGARRAY(2 SDAMA+4*
DGDIV OUTSCAN+2~, OUTSCAN+10*, OUTSCAN+11*, OUTSCAN+13
DGDV ENO+13~, CHKDIV+6*, CHKDIV+7, CHKDIV+8
DGJ ENO+13~, CHKDIV+2*, CHKDIV+11*
DGSUB ENO+13~, CHKDIV+2*
DGUTD ENO+13~
DGUTD( CHKDIV+2*, CHKDIV+11
DGWD ENO+13~, CHKDIV+5*, CHKDIV+6
DIR ENO+1~
DIR("?" ENO+6*, ENO+38*
DIR("A" ENO+4*, ENO+36*
DIR("B" ENO+5*, ENO+37*
DIR(0 ENO+3*, ENO+34*
>> DIRUT ENO+40
DIVFLAG ENO+12~, CHKDIV+4*, CHKDIV+7*, CHKDIV+9*, CHKDIV+13*
DIVISION ENO+12~, CHKDIV+8*, CHKDIV+9, CHKDIV+13
DPTINFO OUTSCAN+2~
EDATE ENO+11~, ENO+33*, SDAMA+1
ERR ENO+11~, ENO+28*, ENO+29, ENO+30, ENO+31*, ENO+32, ENO+33
G BATCH+1~, BATCH+8*
I OUTSCAN+2~*, CBLD3+1, CBLD3+2*, SDAMA+3*, SDAMA+4
RESULTS ENO+11~, EXIT+1, BLDHL7+3*, BLDHL7+4, BLDHL7+5
SDATE ENO+11~, ENO+30*, SDAMA+1
SDCNT OUTSCAN+2~, OUTSCAN+18!
SELDIV ENO+12~, CHKDIV+11*, CHKDIV+13
U OUTSCAN+8, OUTSCAN+13, BLDTMP+6, CHKDIV+8
VAUTC ENO+10~, OUTSCAN+6, OUTSCAN+10, OUTSCAN+15
VAUTC( OUTSCAN+15
VAUTD ENO+10~, ENO+15*, OUTSCAN+6, OUTSCAN+10
VAUTD( OUTSCAN+11, CHKDIV+2
VAUTNI ENO+10~, ENO+24*
Y ENO+1~, ENO+8, ENO+11~, ENO+21, ENO+26, ENO+41
ZTDESC BATCH+1~, BATCH+4*
ZTDTH BATCH+1~, BATCH+6!
ZTIO BATCH+1~, BATCH+5*
>> ZTQUEUED EXIT+1, OUTSCAN+5, CBLD3+3, BLDHL7+4
ZTRTN BATCH+1~, BATCH+3*
ZTSAVE BATCH+1~
ZTSAVE( BATCH+8*
ZTSAVE("VAUTC(" BATCH+9*
ZTSAVE("VAUTD(" BATCH+9*
>> ZTSK ENO+43, ENO+44
ZTSTOP ENO+13~, BLDTMP+2*, BLDTMP+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All