©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
DGQESC1 ;ALB/JFP - VIC INPATIENT SCAN ROUTINE ; 01/09/96
Source file <DGQESC1.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | $$EVENT^DGQEHL72 (DIVISION,WARD)^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
|
|
| ENI | ; -- Entry Point
|
|
| BATCH | ; -- Entry point for placing cards on hold
|
|
| INSCAN | ; -- Scans all ward locations for inpatients
|
|
| EXIT | ; -- Finish processing
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | CHKDIV+6, CHKDIV+8 |
| ^DG(43 - [#43] | ENI+20 |
| ^DIC(42 - [#42] | CHKDIV+5, CHKDIV+6 |
| ^DPT("CN" | INSCAN+4, INSCAN+11 |
| Name | Line Occurrences |
|---|---|
| BATCH | ENI+34 |
| CHKDIV | INSCAN+8 |
| EXIT | HL7+7 |
| INSCAN | ENI+38 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CHKDIV+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | ENI+16 |
| CLINIC | ENI+9~, INSCAN+3*, INSCAN+4*, INSCAN+11, CHKDIV+5 |
| CNT | ENI+9~, ENI+15*, EXIT+1, HL7+2* |
| DATE | ENI+9~, ENI+16* |
| DFN | ENI+9~, INSCAN+3*, INSCAN+10*, INSCAN+11*, INSCAN+13, HL7+1*, HL7+2* |
| DFNARR | ENI+9~, ENI+17*, ENI+18, EXIT+2, INSCAN+13, HL7+2, HL7+3 |
| DGDV | ENI+11~, CHKDIV+6*, CHKDIV+7, CHKDIV+8 |
| DGJ | ENI+11~, CHKDIV+2*, CHKDIV+11* |
| DGSUB | ENI+11~, CHKDIV+2* |
| >> DGUTD( | CHKDIV+2*, CHKDIV+11 |
| DGUTP | ENI+11~ |
| DGWD | ENI+11~, CHKDIV+5*, CHKDIV+6 |
| DIR | ENI+1~ |
| DIR("?" | ENI+5*, ENI+30* |
| DIR("A" | ENI+3*, ENI+28* |
| DIR("B" | ENI+4*, ENI+29* |
| DIR(0 | ENI+2*, ENI+27* |
| >> DIRUT | ENI+32 |
| DIVFLAG | ENI+12~, INSCAN+8, CHKDIV+4*, CHKDIV+7*, CHKDIV+9*, CHKDIV+13* |
| DIVISION | ENI+12~, CHKDIV+8*, CHKDIV+9, CHKDIV+13 |
| G | BATCH+1~, BATCH+8* |
| RESULTS | ENI+9~, EXIT+1, HL7+3*, HL7+4, HL7+5 |
| SELDIV | ENI+12~, CHKDIV+11*, CHKDIV+13 |
| U | CHKDIV+8 |
| VAUTD | ENI+10~, ENI+14*, INSCAN+8 |
| VAUTD( | CHKDIV+2 |
| VAUTNI | ENI+10~, ENI+23* |
| Y | ENI+1~, ENI+7, ENI+20, ENI+25, ENI+33 |
| >> ZTDESC | BATCH+4* |
| ZTDESCO | BATCH+1~ |
| ZTDTH | BATCH+1~, BATCH+6! |
| ZTIO | BATCH+1~, BATCH+5* |
| >> ZTQUEUED | EXIT+1, INSCAN+1, INSCAN+9, HL7+4 |
| ZTRTN | BATCH+1~, BATCH+3* |
| ZTSAVE | BATCH+1~ |
| ZTSAVE( | BATCH+8* |
| ZTSAVE("VAUTD(" | BATCH+9* |
| >> ZTSK | ENI+35, ENI+36 |
| ZTSTOP | ENI+9~, INSCAN+7* |