©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
PXBAPI22 ;ISL/DCM - API for Classification check out ;8/30/96
Source file <PXBAPI22.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 2 | $$EC^SDCO22 $$VAL^SDCODD |
| VA Fileman | 2 | ^DIK ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ONE(TYPI,DATA,ENCOWNTR,SQUIT) | ;Process One Classification
; Input -- TYPI Outpatient Classification Type IEN ; DATA Null or 409.42 IEN^Internal Value^1=n/a^1=unedt ; ENCOWNTR Outpatient Encounter file IEN (optional) ; Output -- SQUIT User entered '^' or timeout |
|
| VALQ | ||
| STORE(SDCNI,SDCNV,TYPI) | ;File Outpatient Classification
; Input -- SDCNI Outpatient Classification IEN ; SDCNV Outpatient Classification Value ; TYPI Classification type 1 - Agent Orange ; 2 - Ionizing Radiation ; 3 - Service Connected ; 4 - Environmental Contaminants ; Output -- PXBDATA array ; Error codes -- PXBDATA("ERR",TYPI)=1 - Bad ptr to 409.41 in TYPI ; 2 - DATA entry not applicable ; 3 - DATA entry uneditable ; 4 - User ^ out of prompt |
|
| VAL(TYPI,SDCT0,DATA) | ;Get Outpatient Classification
|
|
| REASK |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^SDD(409.42 - [#409.42] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(43 - [#43] | REASK+6 |
| ^DPT - [#2] | VAL+2, VAL+3, VAL+4 |
| ^SCE - [#409.68] | VAL+5 |
| ^SD(409.41 - [#409.41] | ONE+6, REASK+3 |
| Name | Line Occurrences |
|---|---|
| $$VAL | ONE+12 |
| REASK | REASK+6 |
| STORE | ONE+14 |
| VALQ | VAL+2, VAL+3, VAL+4, VAL+5 |
| Name | Field # of Occurrence |
|---|---|
| ^(2 | REASK+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ONE+9*, VAL+1~ |
| DATA | ONE~, ONE+7, ONE+9, ONE+10, ONE+11, ONE+12, ONE+14, VAL~, REASK+1, REASK+6 |
| >> DFN | VAL+2, VAL+3, VAL+4 |
| >> DIK | ONE+9* |
| DIR | VAL+1~ |
| DIR("?" | REASK+4* |
| DIR("A" | REASK* |
| DIR("B" | REASK+1* |
| DIR(0 | REASK+2*, REASK+3* |
| DIRUT | REASK+8!, REASK+9, VALQ! |
| DTOUT | REASK+6, VALQ! |
| DUOUT | REASK+8!, VALQ! |
| ENCOWNTR | ONE~, VAL+4, VAL+5 |
| >> PXBDATA( | STORE+12* |
| >> PXBDATA("ERR" | ONE+6*, ONE+7*, ONE+10*, ONE+13* |
| SDCNI | STORE~, STORE+12 |
| SDCNV | STORE~, STORE+12 |
| SDCT0 | ONE+5~, ONE+6*, ONE+8, ONE+11, ONE+12, VAL~, REASK, REASK+1, REASK+2, REASK+6 |
| SDVAL | ONE+5~, ONE+12*, ONE+13, ONE+14 |
| SQUIT | ONE~, ONE+13* |
| TYPI | ONE~, ONE+6, ONE+7, ONE+10, ONE+11, ONE+12, ONE+13, ONE+14, VAL~, VAL+2 , VAL+3, VAL+4, VAL+5, REASK+1, REASK+3, REASK+4, STORE~, STORE+12 |
| Y | VAL+1~, VAL+5*, REASK+6, REASK+7, REASK+9*, VALQ+1 |