Routine: PXBAPI21

Information

PXBAPI21 ;ISL/DCM - API for Classification check out ;7/25/96 15:04

Package	Total	Call Graph
Scheduling	5	$$INP^SDAM2 $$CLINIC^SDAMU ($$SEQ,CL,CLOE)^SDCO21 $$EXOE^SDCOU2 $$REQ^SDM1A
Kernel	1	ENDR^%ZISS
PCE Patient Care Encounter	1	ONE^PXBAPI22
VA Fileman	1	YN^DICN

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PXBAPI1 PXCEE800

Name	Comments	DBIA/ICR reference
ON
ENCHK(ENCOWNTR,X0)	;Do outpatient encounter checks
CLASS(ENCOWNTR,DFN,APTDT,LOC,VISIT)	;Edit classification fields ; Input - ENCOWNTR - ien of ^SCE(ien (409.68 Outpatient Encounter file) ; ENCOWNTR optional if DFN,LOC,APTDT params used ; DFN - ien of ^DPT(DFN, (only used if no ENCOWNTR) ; LOC - ien of ^SC(LOC, (only used if no ENCOWNTR) ; APTDT - Appointment Date/time (only used if no ENCOWNTR) ; VISIT - optional if no ENCOWNTR look for main encounter that ; points to this visit ; Output - PXBDATA(Classification type)=OutPT Class ien^Value ; PXBDATA("ERR",Class type)=1 Bad ptr to 409.41 ; =2 DATA entry not applicable ; =3 DATA entry uneditable ; =4 User ^ out of prompt ; Classification type 1 - Agent Orange ; 2 - Ionizing Radiation ; 3 - Service Connected ; 4 - Environmental Contaminants ; Ext References: ^SCE(DA,0) INP^SDAM2 ; REQ^SDM1A CLINIC^SDAMU ; EXOE^SDCOU2 CLOE^SDCO21 ; SEQ^SDCO21 CL^SDCO21 ; In ^PXBAPI22 ; ^DG(43,1,"SCLR") piece 24 ; ^SD(409.41,DA,0) ^SD(409.41,DA,2) ; VAL^SDCODD SC^SDCO23	ICR #2722 Status: Active Usage: Private
TEST	;Test call to CLASS
ASKCL(ENCOWNTR,SDCLOEY,DFN,APTDT)	;Ask classifications on check out
ASK(ENCOWNTR,SDCLOEY,SQUIT)	;Ask classifications

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"--- ",IOINHI,"Classification",IOINORM," --- [",IOINHI,"Required",IOINORM,"]" Line Location: ASK+4
Function Call: WRITE	Prompt: ! Line Location: ASK+5

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CLASS+31, TEST+2
^SCE - [#409.68]	CLASS+27, CLASS+29, CLASS+32, TEST+2
^SCE("AVSIT"	CLASS+26

Name	Field # of Occurrence
^(	TEST+2
^(0	CLASS+29, CLASS+32

Name	Field # of Occurrence
>> %	TEST+2*
APTDT	CLASS~, CLASS+29~, CLASS+30, CLASS+31, ON, ASKCL~, ASKCL+2, ENCHK+1*
CTS	ASK+1~, ASK+6*
DA	CLASS+28~, ENCHK+1*
DFN	CLASS~, CLASS+29~, CLASS+30, CLASS+31, ON, ASKCL~, ASKCL+2, ENCHK+1, ENCHK+4, TEST+2
ENCOWNTR	CLASS~, CLASS+25, CLASS+26, CLASS+27, CLASS+29, CLASS+32*, ON, ON+2, ASKCL~, ASKCL+1 , ASK~, ASK+8, ENCHK~, ENCHK+5
END	CLASS+28~, CLASS+29, CLASS+32, ENCHK+2, ENCHK+3, ENCHK+4, ENCHK+5
I	ASK+1~, ASK+9*
IEN	CLASS+28~
IFN	CLASS+28~
IOINHI	ASK+1~, ASK+4
IOINORM	ASK+1~, ASK+4
LOC	CLASS~, CLASS+29~, CLASS+30, CLASS+32, ENCHK+1*, ENCHK+3
ORG	CLASS+28~, ENCHK+1*, ENCHK+3, ENCHK+4
PXBDATA	TEST+2!
PXBDATA(3	ASK+9
PXIFN	TEST+1~, TEST+2, TEST+3
SDCLOEY	CLASS+28~, ON, ON+1, ON+2, ASKCL~, ASKCL+1, ASKCL+2, ASK~, ASK+3
SDCLOEY(	ASK+7, ASK+8, ASK+9*
SQUIT	CLASS+28~, ON+2, ASK~, ASK+6, ASK+8
TYPI	ASK+1~, ASK+6*, ASK+7, ASK+8, ASK+9
TYPSEQ	ASK+1~, ASK+5*, ASK+6
VISIT	CLASS~, CLASS+25, CLASS+26
X	CLASS+28~, CLASS+31, CLASS+32, ASK+1~, ASK+2
X0	CLASS+29, CLASS+32, ENCHK~, ENCHK+1, ENCHK+2, ENCHK+4