©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DGQESC3 ;ALB/JFP - VIC PREADMIT SCAN ROUTINE ; 01/09/96
Source file <DGQESC3.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 3 | $$EVENT^DGQEHL72 ($$EDATE,$$SDATE)^DGQESC0 DIVISION^VAUTOMA |
| VA Fileman | 2 | NOW^%DTC ^DIR |
| Kernel | 1 | (,$$S)^%ZTLOAD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END | ; -- End of Code
|
|
| CHKDIV | ; -- Check to see if clinic is part of Division selected
; -- re-sequences array |
|
| HL7 | ; -- Builds HL7 batch message
|
|
| BATCH | ; -- Batch entry point for placing cards on hold
|
|
| ENS | ; -- Entry point
|
|
| EXIT | ; -- Finish processing
|
|
| PRESCAN | ; -- Scans for scheduled admissions
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | CHKDIV+7 |
| ^DG(43 - [#43] | ENS+21 |
| ^DGS(41.1 - [#41.1] | PRESCAN+5, PRESCAN+8, PRESCAN+9 |
| Name | Line Occurrences |
|---|---|
| BATCH | ENS+38 |
| CHKDIV | PRESCAN+15 |
| EXIT | HL7+8 |
| PRESCAN | ENS+41 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | ENS+16 |
| CLINIC | ENS+11~, PRESCAN+3* |
| CNT | ENS+11~, ENS+19*, EXIT+1, HL7+2* |
| DATE | ENS+11~, ENS+16* |
| DFN | ENS+11~, PRESCAN+3*, PRESCAN+16*, PRESCAN+18, HL7+1*, HL7+2* |
| DFNARR | ENS+11~, ENS+17*, ENS+18, EXIT+2, PRESCAN+18, HL7+2, HL7+3 |
| DGDV | ENS+12~, CHKDIV+5*, CHKDIV+6, CHKDIV+7 |
| DGJ | ENS+12~, CHKDIV+2*, CHKDIV+9* |
| DGSNODE | ENS+12~, PRESCAN+9*, PRESCAN+11, PRESCAN+16, CHKDIV+5 |
| DGSUB | ENS+12~, CHKDIV+2* |
| DGUTD | ENS+12~ |
| DGUTD( | CHKDIV+2*, CHKDIV+9 |
| DIR | ENS+1~ |
| DIR("?" | ENS+6*, ENS+34* |
| DIR("A" | ENS+4*, ENS+32* |
| DIR("B" | ENS+5*, ENS+33* |
| DIR(0 | ENS+3*, ENS+31* |
| >> DIRUT | ENS+36 |
| DIVFLAG | ENS+13~, PRESCAN+15, CHKDIV+4*, CHKDIV+6*, CHKDIV+8*, CHKDIV+10* |
| DIVISION | ENS+13~, CHKDIV+7*, CHKDIV+8, CHKDIV+10 |
| EDATE | ENS+11~, ENS+29*, PRESCAN+5 |
| ERR | ENS+11~, ENS+24*, ENS+25, ENS+26, ENS+27*, ENS+28, ENS+29 |
| G | BATCH+1~, BATCH+8* |
| IFN | ENS+11~, PRESCAN+7*, PRESCAN+8*, PRESCAN+9 |
| >> JPTEST | HL7+4 |
| LDATE | ENS+11~, PRESCAN+4*, PRESCAN+5*, PRESCAN+8 |
| RESULTS | ENS+11~, EXIT+1, HL7+3*, HL7+4, HL7+5, HL7+6 |
| SDATE | ENS+11~, ENS+26*, PRESCAN+4 |
| SELDIV | ENS+13~, CHKDIV+9*, CHKDIV+10 |
| U | CHKDIV+7 |
| VAUTD | ENS+10~, ENS+15*, PRESCAN+15 |
| VAUTD( | CHKDIV+2 |
| Y | ENS+1~, ENS+8, ENS+11~, ENS+21, ENS+37 |
| ZTDESC | BATCH+1~, BATCH+4* |
| ZTDTH | BATCH+1~, BATCH+6! |
| ZTIO | BATCH+1~, BATCH+5* |
| >> ZTQUEUED | EXIT+1, PRESCAN+1, PRESCAN+6, HL7+5 |
| ZTRTN | BATCH+1~, BATCH+3* |
| ZTSAVE | BATCH+1~ |
| ZTSAVE( | BATCH+8* |
| ZTSAVE("VAUTD(" | BATCH+9* |
| >> ZTSK | ENS+39, ENS+40 |
| ZTSTOP | ENS+11~, PRESCAN+14* |