PXBAPI22 ;ISL/DCM - API for Classification check out ; 16 Oct 2006 9:42 PM
Source file <PXBAPI22.m>
Package | Total | Call Graph |
---|---|---|
Scheduling | 3 | $$EC^SDCO22 $$VAL^SDCODD $$SC^SDSCAPI |
VA FileMan | 2 | ^DIK ^DIR |
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 |
Package | Total | Caller Graph |
---|---|---|
PCE Patient Care Encounter | 1 | PXBAPI21 |
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 |
|
VAL(TYPI,SDCT0,DATA) | ;Get Outpatient Classification
|
|
REASK | ||
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 - SW Asia Conditions ; 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 |
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 | 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, VAL+9 |
>> DIK | ONE+9* |
DIR | VAL+1~ |
DIR("?" | REASK+4* |
DIR("A" | REASK* |
DIR("B" | REASK+1*, REASK+2* |
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, VAL+9 |
>> PXBDATA( | STORE+12* |
>> PXBDATA("ERR" | ONE+6*, ONE+7*, ONE+10*, ONE+13* |
>> PXD | VAL+7, VAL+8 |
>> PXDX | VAL+7, VAL+8 |
SDCNI | STORE~, STORE+12 |
SDCNV | STORE~, STORE+12 |
SDCT0 | ONE+5~, ONE+6*, ONE+8, ONE+11, ONE+12, VAL~, VAL+12, REASK, REASK+1, REASK+2 , REASK+6 |
SDEF | VAL+1~, VAL+10*, REASK+1, REASK+2 |
>> SDSCEDIT | VAL+7, VAL+11 |
SDVAL | ONE+5~, ONE+12*, ONE+13, ONE+14 |
SDXS | VAL+1~, VAL+9 |
SDXS( | VAL+8* |
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, VAL+7, REASK+1, REASK+3, REASK+4, STORE~, STORE+12 |
>> VISIT | VAL+9 |
Y | VAL+1~, VAL+5*, VAL+7, VAL+9*, VAL+10*, VAL+13, REASK+6, REASK+7, REASK+9*, VALQ+1 |