Routine: PXBAPI22

Package	Total	Call Graph
Scheduling	3	$$EC^SDCO22 $$VAL^SDCODD $$SC^SDSCAPI
VA FileMan	2	^DIK ^DIR

Entry Points

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	Prompt: "deleted." Line Location: ONE+9
Function Call: WRITE	Prompt: !,$P(SDCT0,"^",6)_": "_$$VAL^SDCODD(TYPI,$P(DATA,"^",2))_" <Uneditable>" Line Location: ONE+11
Routine Call	DIR Line Location: REASK+5

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

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