Routine: PXBAPI21

Information

PXBAPI21 ;ISL/DCM - API for Classification check out ; 04/16/24 01:49pm

Name	Comments	DBIA/ICR reference
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 - SW Asia Coditions ; 5 - Military Sexual Trauma ; 6 - Head and/or Neck Cancer ; 7 - Combat Veteran ; 8 - Project 112/SHAD	ICR #2722 Status: Active Usage: Private
ON
ASKCL(ENCOWNTR,SDCLOEY,DFN,APTDT)	;Ask classifications on check out
ASK(ENCOWNTR,SDCLOEY,SQUIT)	;Ask classifications
ENCHK(ENCOWNTR,X0)	;Do outpatient encounter checks
OPCHK(DFN,LOC,APTDT)	;Do standalone outpatient encounter checks
TEST	;Test call to CLASS

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