©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
IBOVOP1 ;ALB/RLW - Report of Visits for NSC Outpatients ; 12-JUN-92
Source file <IBOVOP1.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 4 | $$INSURED^IBCNS1 $$PT^IBEFUNC $$STOP^IBOUTL (HDR,PRINT)^IBOVOP2 |
| Scheduling | 2 | $$STATUS^SDAM1 CL^SDCO21 |
| Registration | 1 | $$BIL^DGMTUB |
| VA Fileman | 1 | Y^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| END | ||
| APPT | ; scan visits for NSC patients
|
|
| REGS | ; registrations for day
|
|
| FLD3(Y) | ; time - convert date/time to time only, no seconds
|
|
| STOPCD | ; scan ADD/EDIT STOP CODES for day
|
|
| MAIN | ; perform report for day(s)
|
|
| FLD5(I) | ; get appointment type name
|
|
| FLD1(DFN) | ; get patient name, l-4 ssn id, classification, insured?
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | FLD3+2 |
| ^DD(2.101 | REGS+5, REGS+7 |
| ^DIC(40.7 - [#40.7] | STOPCD+8 |
| ^DPT - [#2] | APPT+10, REGS+4 |
| ^DPT("ADIS" | REGS+1, REGS+2, REGS+3 |
| ^SC - [#44] | APPT+6, APPT+7, APPT+8 |
| ^SC("AC" | APPT+6 |
| ^SD(409.1 - [#409.1] | FLD5+1 |
| ^SDV - [#409.5] | STOPCD+5, STOPCD+6, STOPCD+7 |
| ^TMP("IBOVOP" | END!, APPT+11*, STOPCD+8*, REGS+8* |
| Name | Line Occurrences |
|---|---|
| $$FLD1 | APPT+11, STOPCD+8, REGS+8 |
| $$FLD3 | APPT+11, STOPCD+8, REGS+8 |
| $$FLD5 | APPT+11, STOPCD+8 |
| APPT | MAIN+3 |
| END | MAIN+2 |
| REGS | MAIN+3 |
| STOPCD | MAIN+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | APPT+8, STOPCD+6 |
| ^("AT" | APPT+6 |
| ^(0 | APPT+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> C | REGS+5*, REGS+7* |
| DFN | END!, APPT+8*, APPT+9, APPT+10, APPT+11, STOPCD+5*, STOPCD+8, REGS+2*, REGS+3, REGS+4 , REGS+8, FLD1~, FLD1+1, FLD1+2, FLD1+3, FLD1+7 |
| I | STOPCD+6*, STOPCD+7, FLD5~, FLD5+1 |
| IB | END!, STOPCD+6* |
| >> IBAIEN | REGS+3*, REGS+4 |
| IBAPPT | END! |
| >> IBCL | APPT+5*, APPT+6*, APPT+7, APPT+8, APPT+11 |
| >> IBDATA | STOPCD+7*, STOPCD+8, REGS+4*, REGS+5, REGS+7, REGS+8 |
| >> IBDATE | APPT+7, STOPCD+4, STOPCD+5, REGS+1, FLD1+3, FLD1+7 |
| >> IBFLD4 | APPT+6*, APPT+11, REGS+6*, REGS+8 |
| >> IBIEN | APPT+8* |
| IBJ | END!, APPT+7*, APPT+8, APPT+9, APPT+10, APPT+11, STOPCD+4*, STOPCD+5*, STOPCD+6, STOPCD+7 , STOPCD+8, REGS+1*, REGS+2, REGS+3, REGS+8 |
| >> IBQUIT | MAIN+2* |
| >> IBSDATA | APPT+10*, APPT+11 |
| >> IBSEQ | APPT+5*, APPT+11, STOPCD+4*, STOPCD+8*, REGS+8 |
| IBX | FLD1+2~*, FLD1+7 |
| IBY | FLD1+2~, FLD1+3 |
| IBY(1 | FLD1+4 |
| IBY(2 | FLD1+5 |
| IBY(4 | FLD1+6 |
| IBZ | FLD1+2~*, FLD1+4*, FLD1+5*, FLD1+6*, FLD1+7 |
| Y | REGS+5*, REGS+6, REGS+7*, REGS+8, FLD3~, FLD3+1, FLD3+2 |