©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
IBDFQB ;ALB/MAF - MAIN QUEUE JOB FOR ENCOUNTER FORM PRINTING - FEB 2 1995
Source file <IBDFQB.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 4 | HOME^%ZIS ^%ZISC (,STAT)^%ZTLOAD ($$DOW,$$FMADD,$$FMTH,$$NOW)^XLFDT |
| VA Fileman | 3 | (C,NOW)^%DTC ^DIC ^DIE |
| Automated Information Collection System | 1 | ^IBDF1B1 |
| Registration | 1 | PAUSE^VALM1 |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDF BACKGRD EF PRINT QUEUE IBDFQS |
| Integrated Billing | 1 | IBDF BACKGRD EF PRINT QUEUE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
; -- Goes through the "SEQ" cross reference to print the ; highest priority jobs first (lowest sequence number). |
|
| UP(IBTASK) | ; -- store results of tasking
|
|
| CLEAR | ; -- Clean up variables if task is not queued
|
|
| UPDT | ; -- Update start and finish times
|
|
| ZTDTH | ; -- Set up the variable ZTDTH to pass the queue date time of the
; queued job. |
|
| TASK | ; -- Update Task number and last date printed
|
|
| EXIT | ||
| ENTRY | ; -- Calc date and do checks on special instructions
|
|
| QUEUE(IBDFIFN) | ; -- Set up Queue variables
|
|
| SET | ; -- Set up variables needed for priniting of forms
|
|
| WEEKEND(DATE) | ;
; -- DATE (defaulted to current date if not passed) ; -- output = 1 if date is a weekend |
|
| HOLIDAY(DATE) | ;
; -- DATE (defaulted to current date if not passed) ; -- output = 1 if date is a holiday |
|
| DQ | ; -- Generic entry points to edit
; -- only called by jobs tasked by this routine |
| Name | Field # of Occurrence |
|---|---|
| C^%DTC | ZTDTH+6 |
| NOW^%DTC | EN+6, UPDT+2 |
| HOME^%ZIS | QUEUE+11 |
| ^%ZISC | QUEUE+18, EXIT+2 |
| ^%ZTLOAD | QUEUE+11 |
| STAT^%ZTLOAD | QUEUE+7 |
| ^DIC | HOLIDAY+6 |
| ^DIE | UPDT+2, TASK+2 |
| ^IBDF1B1 | DQ+3 |
| PAUSE^VALM1 | SET+3, SET+7 |
| $$DOW^XLFDT | WEEKEND+4 |
| $$FMADD^XLFDT | ENTRY+18 |
| $$FMTH^XLFDT | ZTDTH+17 |
| $$NOW^XLFDT | ENTRY+4, WEEKEND+3, HOLIDAY+3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^HOLIDAY - [#40.5] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBD(357.09 - [#357.09] | EN+8, SET+1 |
| ^IBD(357.99 - [#357.99] | SET+17, SET+18 |
| ^TMP("IB" | CLEAR+1! |
| ^TMP("IBDF" | QUEUE+2!, QUEUE+4, CLEAR+1!, SET+17*, SET+18* |
| Name | Line Occurrences |
|---|---|
| $$HOLIDAY | ENTRY+9, ENTRY+10, ENTRY+20, ENTRY+21 |
| $$QUEUE | EN+8 |
| $$WEEKEND | ENTRY+8, ENTRY+10, ENTRY+19, ENTRY+21 |
| CLEAR | QUEUE+4, QUEUE+7 |
| ENTRY | SET+11 |
| EXIT | EN+9 |
| SET | QUEUE+3 |
| TASK | UP+2, DQ+5 |
| UP | EN+8 |
| UPDT | DQ+2, DQ+4 |
| ZTDTH | ENTRY+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN+6, UPDT+2 |
| DA | UPDT+1~, UPDT+2*, TASK+1~, TASK+2* |
| DA(1 | UPDT+2*, TASK+2* |
| DATE | WEEKEND~, WEEKEND+3*, WEEKEND+4, HOLIDAY~, HOLIDAY+3*, HOLIDAY+5 |
| DIC | HOLIDAY+4~, HOLIDAY+5* |
| DIC(0 | HOLIDAY+5* |
| DIE | UPDT+1~, UPDT+2*, TASK+1~, TASK+2* |
| DR | UPDT+1~, UPDT+2*, TASK+1~, TASK+2* |
| GROUPS | SET+12~, SET+14*, SET+16*, SET+17, SET+18 |
| GROUPS( | SET+15*, SET+16 |
| >> IB1FLAG | TASK+3 |
| >> IB1TASK | TASK+3* |
| IBADDONS | EXIT!, SET+10* |
| IBCLN | EXIT!, SET+17* |
| IBDFARY | EN+8~, ENTRY+1! |
| IBDFARY( | QUEUE+9, ENTRY+23* |
| IBDFCTR | ENTRY+2~, ENTRY+16*, ENTRY+17, ENTRY+22* |
| IBDFDATE | ENTRY+2~, ENTRY+16*, ENTRY+18*, ENTRY+19, ENTRY+20, ENTRY+21, ENTRY+23 |
| IBDFDAY | EXIT! |
| IBDFDAY1 | EXIT! |
| IBDFDAYS | ENTRY+2~, ENTRY+16*, ENTRY+17 |
| >> IBDFFLD | DQ+2*, DQ+4*, UPDT+2 |
| IBDFIFN | EN+5*, EN+8*, QUEUE~, UPDT+2, TASK+2, EXIT!, SET+1 |
| IBDFINST | EXIT!, ENTRY+2~, ENTRY+4*, ENTRY+8, ENTRY+9, ENTRY+10, ENTRY+19, ENTRY+20, ENTRY+21 |
| IBDFJQ | ZTDTH+2~, ZTDTH+4*, ZTDTH+5*, ZTDTH+6*, ZTDTH+7*, ZTDTH+11*, ZTDTH+12*, ZTDTH+14*, ZTDTH+15*, ZTDTH+16* , ZTDTH+17 |
| IBDFLAST | EXIT! |
| IBDFNAME | EN+5*, QUEUE+11, EXIT! |
| IBDFNODE | QUEUE+7, QUEUE+11, EXIT!, SET+1*, SET+2, SET+6, SET+10, SET+15, ENTRY+4, ENTRY+16 |
| IBDFNOW | EXIT!, ENTRY+2~, ENTRY+4*, ENTRY+8, ENTRY+9, ENTRY+10, ENTRY+16 |
| IBDFNUM | EN+5*, EN+8*, UPDT+2, TASK+2, EXIT!, SET+1 |
| IBDFONE | EXIT! |
| IBDFQ | EXIT! |
| IBDFQD | EN+3~, EN+6*, ZTDTH+4, ZTDTH+11, ZTDTH+14 |
| IBDFQDT | EN+3~, EN+6*, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+12, ZTDTH+15, ZTDTH+16 |
| IBDFQT | EN+3~, EN+6*, ENTRY+4, ZTDTH+3, ZTDTH+4, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+9, ZTDTH+10* , ZTDTH+11, ZTDTH+12, ZTDTH+14, ZTDTH+15, ZTDTH+16 |
| IBDFQTIM | ENTRY+2~, ENTRY+4*, ZTDTH+4, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+11, ZTDTH+12, ZTDTH+14, ZTDTH+15 , ZTDTH+16 |
| IBDFQUE | EN+3~, EN+4*, SET+3, SET+7 |
| IBDFSEQ | EN+5*, EN+8*, EXIT! |
| >> IBDFSING | ENTRY+5 |
| IBDFTSTP | EN+3~, EN+4* |
| >> IBDFX | UPDT+2* |
| IBDFXX | EXIT! |
| IBDIV | EXIT!, SET+18* |
| IBDT | QUEUE+9*, TASK+2, EXIT! |
| IBREPRNT | EXIT!, SET+10* |
| IBSRT | EXIT!, SET+10* |
| IBSTRTDV | EXIT!, SET+10* |
| IBTASK | UP~, UP+1, DQ+5*, TASK+2, TASK+3 |
| IBZTSK | QUEUE+17*, CLEAR+5*, CLEAR+8, EXIT! |
| IEN | SET+12~, SET+17*, SET+18* |
| QUIT | EN+5*, QUEUE+4, QUEUE+7*, QUEUE+18*, CLEAR+3, CLEAR+7*, EXIT!, SET+2, SET+4*, SET+6 , SET+8*, SET+11, ENTRY+8*, ENTRY+9*, ENTRY+10* |
| >> SELECTBY | SET+10* |
| X | QUEUE+1~, HOLIDAY+4~, HOLIDAY+5*, ZTDTH+6 |
| >> X1 | ZTDTH+6* |
| >> X2 | ZTDTH+6* |
| Y | QUEUE+1~, HOLIDAY+4~, HOLIDAY+6 |
| ZTDESC | QUEUE+1~, QUEUE+11* |
| ZTDTH | QUEUE+1~, QUEUE+10*, ZTDTH+17* |
| >> ZTIO | QUEUE+11* |
| ZTION | QUEUE+1~ |
| >> ZTQUEUED | QUEUE+18, EXIT+1 |
| >> ZTREQ | EXIT+1* |
| ZTRTN | QUEUE+1~, QUEUE+11* |
| ZTSAVE | QUEUE+1~ |
| ZTSAVE("IB*" | QUEUE+11* |
| ZTSAVE("^TMP(""IBDF"",$J," | QUEUE+11* |
| ZTSK | QUEUE+1~, QUEUE+7*, QUEUE+17, CLEAR+4!, CLEAR+5 |
| ZTSK(1 | QUEUE+7, CLEAR+4 |