©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
IBDF18C ;ALB/CJM/AAS - ENCOUNTER FORM - form ID utilities ;04-OCT-94
Source file <IBDF18C.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | FILE^DICN ^DIE Y^DIQ |
| Automated Information Collection System | 1 | LOGERR^IBDF18E2 |
| Kernel | 1 | $$FMTE^XLFDT |
| Registration | 1 | DEM^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXID(ID) | ; -- converts external id format to internal id format
; -- we need to decide on external id format |
|
| INIDQ | ||
| FIDSTQ | ||
| FIDQ | ||
| FINDPT(FORMID) | ;
; -- find patient from form id ; -- Output :Patient Name ^ PID ^ clinic Name ^ appt date/time (external) ; ^form ID ^ form status ^ DFN ^ clinic ien ^ appt date/time (fm format) |
|
| FINDIDQ | ||
| INID(ID) | ; -- find internal id number from external format
; -- Input ID = form id in external format ; Output = form id in internal format or NULL if nonexistant |
|
| FSCND(ID,STAT,ERR) | ; -- update form tracking file that
; -- Input ID = entry to flag as scanned (internal format) ; STAT = NEW status, 1=printed, 2=scanned,3=sent to pce okay, ; 4=pce returned err ; 11=pending pages, 12=input data error ; ERR = pce error message (required only if stat=4) |
|
| FIDST(ID) | ; -- form id status
; -- Input ID = form id (internal entry number) |
|
| FID(DFN,APPT,SOURCE,FORMTYPE,CLIN) | ; -- Form ID Tracking
; -- create record in the ENCOUNTER FORM TRACKING file ; and returned a unique FORM ID ; -- Input DFN = patient internal entry number ; APPT = appointment date time (fm format) ; SOURCE = the source of the form, ie ; IB = 1 ; Pandas = 2 ; Telefr = 3 ; FORMTYPE = the package form definition ID - may have been exterally assigned ; CLIN = pointer to 44 (optional) |
|
| FINDPTQ | ||
| FINDID(DFN,APPT,FORM,DUP) | ; -- Find a form id for a patient and appointment
; -- input DFN = patient ; APPT = appointment date time ; FORM = (Optional) type of form, pointer to 357.95 or field 10 ; DUP = (Optional) if true, No duplicates of same form (357) ; returns last printing of same form with different ; form definitions, will also exclude nonscannable form |
|
| FSCNDQ |
| FileNo | Call Tags |
|---|---|
| ^IBD(357.96 - [#357.96] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(357.96 | FINDPT+12 |
| ^DPT - [#2] | FINDID+16 |
| ^IBD(357.95 - [#357.95] | FID+24, FINDID+24, FINDID+26, FINDPT+13 |
| ^IBD(357.96 - [#357.96] | FID+27, FID+33, FID+42, INID+5, FIDST+12, FINDID+18, FINDID+19, FINDID+21, FINDID+23, FINDID+24 , FINDID+25, FINDID+26, FINDID+29, FINDID+30, FINDID+32, FINDPT+8 |
| ^IBD(357.97 - [#357.97] | FID+31, FID+32, FID+34*, FID+35 |
| ^IBE(357 - [#357] | FINDID+24, FINDPT+14 |
| ^SC - [#44] | FINDPT+16 |
| ^TMP("IBD-FINDID" | FINDID+29 |
| ^TMP($J | FINDID+15!, FINDID+28*, FINDID+31*, FINDID+33, FINDIDQ! |
| Name | Line Occurrences |
|---|---|
| $$EXID | FID+39 |
| $$FINDID | FID+27 |
| FIDQ | FID+17, FID+27, FID+37 |
| FIDSTQ | FIDST+11, FIDST+12 |
| FINDIDQ | FINDID+14 |
| FINDPTQ | FINDPT+7, FINDPT+9 |
| FSCNDQ | FSCND+11, FSCND+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | FID+43! |
| %H | FID+43! |
| %I | FID+43! |
| APPT | FID~, FID+17, FID+21, FID+27, FINDID~, FINDID+14, FINDID+16, FINDID+18, FINDID+23 |
| >> C | FINDPT+12* |
| CLIN | FID~ |
| CLN | FID+14~, FINDID+16*, FINDID+19, FINDID+25 |
| D0 | FID+28! |
| DA | FID+14~, FID+28!, FID+40*, FID+43!, FSCND+9~, FSCND+16* |
| DD | FID+28! |
| DFN | FID~, FID+17, FID+27, FINDID~, FINDID+14, FINDID+16, FINDID+18, FINDID+23, FINDPT+5~, FINDPT+10* , FINDPT+16 |
| DIC | FID+14~, FID+28!, FID+29*, FID+43!, FSCND+9~ |
| DIC(0 | FID+29* |
| DIE | FID+14~, FID+40*, FID+43!, FSCND+9~, FSCND+16* |
| DINUM | FID+14~, FID+28!, FID+29*, FID+33*, FID+43! |
| DLAYGO | FID+14~, FID+29*, FID+43! |
| DO | FID+28! |
| DR | FID+14~, FID+41*, FID+43!, FSCND+9~, FSCND+16* |
| DUP | FINDID~, FINDID+18, FINDID+23, FINDID+33 |
| ERR | FSCND~, FSCND+12 |
| EXID | FID+14~, FID+15*, FID+27*, FID+39*, FIDQ, INID+4~, INID+5*, INIDQ |
| FORM | FINDID~, FINDID+20, FINDID+21, FINDID+27, FINDID+32, FINDID+33, FINDPT+5~, FINDPT+13*, FINDPT+14, FINDPT+17 |
| FORMID | FID+14~, FID+37, FINDPT~, FINDPT+7, FINDPT+8, FINDPT+19 |
| FORMID("APPT" | FID+21* |
| FORMID("SOURCE" | FID+21* |
| FORMNM | FINDPT+5~, FINDPT+14*, FINDPT+17 |
| FORMTYPE | FID~, FID+20*, FID+24, FID+27 |
| I | FID+14~, FSCND+9~, FIDST+9~, FINDID+12~, FINDID+21*, FINDID+32*, FINDPT+5~ |
| IBI | FSCND+9~ |
| IBNODE | FINDPT+5~, FINDPT+8*, FINDPT+9, FINDPT+10, FINDPT+12, FINDPT+13, FINDPT+16, FINDPT+17, FINDPT+19 |
| IBXX | FINDPT+5~, FINDPT+6*, FINDPT+16*, FINDPT+17*, FINDPT+19*, FINDPTQ |
| ID | FID+14~, FID+15*, FID+27*, FID+29, FID+32*, FID+33*, FID+34, FID+37*, FID+38, FID+39 , FID+40, FID+42, FIDQ, EXID~, EXID+2, INID~, INID+5, FSCND~, FSCND+11, FSCND+16 , FIDST~, FIDST+11, FIDST+12, FINDID+12~, FINDID+13*, FINDID+20*, FINDID+21*, FINDID+32*, FINDID+33*, FINDIDQ+1 |
| INTERNAL | FID+14~, FID+24* |
| J | FID+14~, FSCND+9~, FIDST+9~, FINDID+12~, FINDPT+5~ |
| NEWDATE | FINDID+12~, FINDID+30*, FINDID+31 |
| NODE | FID+14~ |
| OLDDATE | FINDID+12~, FINDID+29*, FINDID+31 |
| ORIGIN | FINDID+12~, FINDID+26*, FINDID+28, FINDID+29, FINDID+31, FINDID+33* |
| SOURCE | FID~, FID+17, FID+24 |
| STAT | FSCND~, FSCND+12 |
| STATNM | FINDPT+5~, FINDPT+12*, FINDPT+17 |
| STATUS | FIDST+9~, FIDST+10*, FIDST+13*, FIDST+14*, FIDSTQ |
| SUCCESS | FSCND+9~, FSCND+10*, FSCND+18*, FSCNDQ |
| VA | FINDPT+5~ |
| VA("PID" | FINDPT+16 |
| VADM | FINDPT+5~ |
| VADM(1 | FINDPT+16 |
| VAERR | FINDPT+5~ |
| X | FID+14~, FID+29*, FID+33*, FSCND+9~, FIDST+9~, FIDST+12*, FIDST+13, FIDST+14, FINDID+12~, FINDID+18* , FINDID+19, FINDID+20, FINDID+21, FINDID+23*, FINDID+24, FINDID+25, FINDID+26, FINDID+28, FINDID+30, FINDID+31 , FINDID+32, FINDPT+5~ |
| Y | FID+14~, FID+33, FID+37, FSCND+9~, FIDST+9~, FINDPT+5~, FINDPT+12* |