IBOVOP1 ;ALB/RLW-Report of Visits for NSC Outpatients ;12-JUN-92
Source file <IBOVOP1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN(IBQUERY) | ; perform report for day(s)
; IBQUERY = the query object to use to search for outpt encounters ; if not a valid #, a new QUERY will be created |
|
| END | ||
| IBCBK(IBENC,IBENCZ,IBCK) | ;
|
|
| OPTENC(IBOE,IBOE0) | ; Extract outpatient encounter
|
|
| CKENC(IBOE,IBOE0,IBSEQ) | ;
|
|
| FLD1(DFN) | ; get patient name, l-4 ssn id, classification, insured?
|
|
| FLD3(Y,IBMID) | ; time - convert date/time to time only, no seconds
|
|
| FLD5(I) | ; get appointment type name
|
| Name | Field # of Occurrence |
|---|---|
| $$BIL^DGMTUB | IBCBK+7, OPTENC+3 |
| $$EXTERNAL^DILFD | OPTENC+10, OPTENC+19, OPTENC+20 |
| CL^IBACV | FLD1+3 |
| $$LTCST^IBAECU | IBCBK+7 |
| $$BILLCK^IBAMTEDU | IBCBK+3 |
| $$INSURED^IBCNS1 | FLD1+12 |
| IBOVOP^IBECEAU5 | MAIN+14 |
| $$DISCT^IBEFUNC | OPTENC+17 |
| $$PT^IBEFUNC | FLD1+2 |
| $$STOP^IBOUTL | MAIN+4 |
| HDR^IBOVOP2 | MAIN+3 |
| PRINT^IBOVOP2 | MAIN+15 |
| $$DISND^IBSDU | OPTENC+18 |
| SCAN^IBSDU | MAIN+12 |
| FileNo | Call Tags |
|---|---|
| 2.101 | EXTERNAL^DILFD |
| ^SCE - [#409.68] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | FLD3+3 |
| ^DIC(40.7 - [#40.7] | OPTENC+14 |
| ^SC - [#44] | OPTENC+8, OPTENC+9 |
| ^SD(409.1 - [#409.1] | FLD5+1 |
| ^TMP("DIERR" | MAIN+12! |
| ^TMP("IBOVOP" | END!, OPTENC+10*, OPTENC+14*, OPTENC+21* |
| Name | Line Occurrences |
|---|---|
| $$FLD1 | OPTENC+10, OPTENC+14, OPTENC+21 |
| $$FLD3 | OPTENC+10, OPTENC+14, OPTENC+21 |
| $$FLD5 | OPTENC+10, OPTENC+14 |
| END | MAIN+4 |
| OPTENC | IBCBK+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | END!, OPTENC+1~, OPTENC+2*, OPTENC+3, OPTENC+10, OPTENC+14, OPTENC+21, CKENC+1*, FLD1~, FLD1+1 , FLD1+2, FLD1+3, FLD1+12 |
| I | FLD5~, FLD5+1 |
| IB | END! |
| IBAPDT | OPTENC+23! |
| IBAPPT | END! |
| IBAPTYP | OPTENC+23! |
| IBB | OPTENC+23! |
| IBCBK | MAIN+6~, MAIN+10*, MAIN+12 |
| IBCK | MAIN+6~, IBCBK~, IBCBK+3 |
| IBCK( | MAIN+11* |
| IBCL | OPTENC+1~, OPTENC+2*, OPTENC+8, OPTENC+9 |
| IBCLN | OPTENC+23! |
| IBDAT | IBCBK+1~, IBCBK+4*, IBCBK+7 |
| >> IBDATA | OPTENC+18*, OPTENC+19, OPTENC+20 |
| >> IBDATE | MAIN+7, MAIN+14, FLD1+3, FLD1+12 |
| IBDFN | OPTENC+23! |
| IBE | OPTENC+23! |
| IBENC | IBCBK~, IBCBK+3, IBCBK+8 |
| IBENCZ | IBCBK~, IBCBK+3, IBCBK+4, IBCBK+5, IBCBK+8 |
| IBFILTER | MAIN+6~, MAIN+8* |
| IBFLD4 | OPTENC+1~, OPTENC+8*, OPTENC+9*, OPTENC+10, OPTENC+19*, OPTENC+21 |
| IBJ | END!, OPTENC+1~, OPTENC+2*, OPTENC+3, OPTENC+10, OPTENC+14, OPTENC+21, CKENC+1* |
| IBMID | FLD3~, FLD3+1 |
| IBOE | MAIN+6~, OPTENC~, OPTENC+10, OPTENC+14, OPTENC+17, OPTENC+18, OPTENC+21, CKENC~ |
| IBOE0 | MAIN+6~, OPTENC~, OPTENC+2, OPTENC+4, OPTENC+10, OPTENC+12, OPTENC+14, OPTENC+16, OPTENC+17, OPTENC+18 , CKENC~, CKENC+1 |
| IBPAT | IBCBK+1~, IBCBK+5*, IBCBK+7 |
| IBPB | MAIN+6~ |
| IBQUERY | MAIN~, MAIN+12 |
| >> IBQUIT | MAIN+4* |
| IBSEQ | OPTENC+1~, OPTENC+2*, OPTENC+14*, CKENC~ |
| IBVAL | MAIN+6~, MAIN+12 |
| IBVAL("BDT" | MAIN+7* |
| IBVAL("EDT" | MAIN+7* |
| IBX | OPTENC+23!, FLD1+2~*, FLD1+12 |
| IBXP | OPTENC+23! |
| IBY | OPTENC+23!, FLD1+2~, FLD1+3 |
| IBY(1 | FLD1+4 |
| IBY(2 | FLD1+5 |
| IBY(3 | FLD1+6 |
| IBY(4 | FLD1+7 |
| IBY(5 | FLD1+8 |
| IBY(6 | FLD1+9 |
| IBY(7 | FLD1+10 |
| IBY(8 | FLD1+11 |
| IBZ | MAIN+6~, MAIN+11*, FLD1+2~*, FLD1+4*, FLD1+5*, FLD1+6*, FLD1+7*, FLD1+8*, FLD1+9*, FLD1+10* , FLD1+11*, FLD1+12 |
| U | IBCBK+5, OPTENC+2, OPTENC+4, OPTENC+8, OPTENC+10, OPTENC+12, OPTENC+14, OPTENC+16, OPTENC+19, OPTENC+20 , OPTENC+21, CKENC+1, FLD1+12, FLD5+1 |
| X | IBCBK+1~, OPTENC+23! |
| Y | IBCBK+1~, OPTENC+20*, OPTENC+21, OPTENC+23!, FLD3~, FLD3+1, FLD3+2, FLD3+3 |
| Y0 | IBCBK+1~ |
