©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
IBDF1B1A ;ALB/CJM - ENCOUNTER FORM PRINT (IBDF1B continued - user options for printing- continuation of IBDF1B1); 3/1/93
Source file <IBDF1B1A.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 1 | $$DIVISION^IBDF1B5 |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 3 | IBDF1B1 IBDF1B1B IBDF1B5 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADDON(DFN,IBAPPT) | ;returns 1 if the print manager already printed forms for this appt as an add-on, 0 otherwise
|
|
| ENCL | ;for every clinic choosen find patient appointments on DATE
|
|
| PRINTED(DFN,IBAPPT) | ;returns 1 if the print manager already printed forms for this appt, 0 otherwise
|
|
| MULTIPLE(DFN,APPT) | ;determines if patient=DFN has multiple appts on the list and APPT is the earliest
|
|
| TDG(DFN) | ;reformat patient's SSN into terminal digit order, then turns it into a cannonic number
; returns either 0 or ssn in terminal digit order |
|
| CLNCHAS(CLINIC) | ;returns>0 if the clinic has something to print
|
|
| DIVHAS(IBDIV) | ;returns >0 if the division has anything to print, 0 otherwise
|
|
| GETLIST(DFN,IBDT,DIVISION) | ;creates a list of the patient's appts on IBDT
|
| Name | Field # of Occurrence |
|---|---|
| $$DIVISION^IBDF1B5 | ENCL+6 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | ENCL+19, ENCL+21, TDG+3, PRINTED+1, ADDON+1, GETLIST+5, GETLIST+6 |
| ^IBD(357.09 - [#357.09] | ENCL+23 |
| ^SC - [#44] | ENCL+13, ENCL+16, ENCL+17, ENCL+18, ENCL+19, ENCL+33, ENCL+48, GETLIST+8 |
| ^SD(409.95 - [#409.95] | ENCL+9, CLNCHAS+2, CLNCHAS+3, CLNCHAS+6 |
| ^SD(409.96 - [#409.96] | ENCL+9, DIVHAS+2 |
| ^TMP("IBDF" | ENCL+2, ENCL+33*, ENCL+42*, ENCL+48*, ENCL+51!, GETLIST+4*, GETLIST+11*, MULTIPLE+3, MULTIPLE+5 |
| Name | Line Occurrences |
|---|---|
| $$ADDON | ENCL+27 |
| $$PRINTED | ENCL+26 |
| $$TDG | ENCL+37, ENCL+48 |
| GETLIST | MULTIPLE+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APPT | GETLIST+2~, GETLIST+5*, GETLIST+6, GETLIST+11, MULTIPLE~, MULTIPLE+2 |
| APT | MULTIPLE+1~, MULTIPLE+3*, MULTIPLE+5 |
| CLINIC | CLNCHAS~, CLNCHAS+2, CLNCHAS+6 |
| CLNCNAME | ENCL+1~, ENCL+13*, ENCL+33*, ENCL+48* |
| DFN | ENCL+1~, ENCL+19*, ENCL+21, ENCL+26, ENCL+27, ENCL+33, ENCL+37, ENCL+42, ENCL+48, TDG~ , TDG+3, PRINTED~, PRINTED+1, ADDON~, ADDON+1, GETLIST~, GETLIST+1, GETLIST+4, GETLIST+5, GETLIST+6 , GETLIST+11, MULTIPLE~, MULTIPLE+2, MULTIPLE+3, MULTIPLE+5 |
| DIVISION | GETLIST~, GETLIST+4, GETLIST+8, GETLIST+11, MULTIPLE+2, MULTIPLE+3, MULTIPLE+5 |
| FIRST4 | ENCL+1~, ENCL+37*, ENCL+40 |
| FOUND | CLNCHAS+1~, CLNCHAS+4*, CLNCHAS+5 |
| I | TDG+2~, TDG+4*, CLNCHAS+1~, CLNCHAS+4* |
| >> IBADDONS | ENCL+26, ENCL+27 |
| IBAPPT | ENCL+1~, ENCL+16*, ENCL+17, ENCL+18, ENCL+19, ENCL+21, ENCL+26, ENCL+27, ENCL+33, ENCL+42 , ENCL+48, PRINTED~, PRINTED+1, ADDON~, ADDON+1 |
| IBAPTYP | ENCL+1~, ENCL+21*, ENCL+23 |
| IBCLINIC | ENCL+1~, ENCL+2*, ENCL+6, ENCL+9, ENCL+13, ENCL+16, ENCL+17, ENCL+18, ENCL+19, ENCL+33 , ENCL+42, ENCL+48 |
| >> IBDFTSTP | ENCL+19 |
| IBDIV | ENCL+1~, ENCL+6*, ENCL+9, ENCL+10*, ENCL+13, ENCL+33, ENCL+40, ENCL+42, ENCL+48, DIVHAS~ , DIVHAS+1, DIVHAS+2 |
| IBDT | ENCL+16, GETLIST~, GETLIST+1, GETLIST+3, GETLIST+5 |
| >> IBREPRNT | ENCL+13, ENCL+26, ENCL+27, ENCL+40 |
| >> IBSRT | ENCL+13, ENCL+33, ENCL+36, ENCL+48 |
| >> IBSTRTDV | ENCL+13, ENCL+40 |
| IBX | ENCL+1~, ENCL+17*, ENCL+18, ENCL+19 |
| NODE | GETLIST+2~, GETLIST+6*, GETLIST+7, GETLIST+8, GETLIST+11, CLNCHAS+1~, CLNCHAS+3*, CLNCHAS+4 |
| PNAME | ENCL+1~, ENCL+19*, ENCL+33 |
| SETUP | CLNCHAS+1~, CLNCHAS+2*, CLNCHAS+3 |
| SSN | TDG+2~, TDG+3*, TDG+4 |
| TDIGIT | ENCL+1~, ENCL+37*, ENCL+42, ENCL+48* |
| TO | GETLIST+2~, GETLIST+3*, GETLIST+5 |
| X | TDG+2~, TDG+4* |
| Y | ENCL+1~, TDG+2~, TDG+4*, TDG+5*, TDG+6 |