Routine: PXBAPI21

Information

PXBAPI21 ;ISL/DCM - API for Classification check out ;Aug 04, 2025@11:51:40

Package	Total	Call Graph
Scheduling	6	$$INP^SDAM2 $$CLINIC^SDAMU (CL,CLOE)^SDCO21 $$EXOE^SDCOU2 $$REQ^SDM1A $$SC^SDSCAPI
PCE Patient Care Encounter	2	SC^PXCEVFI2 GETPATSA^PXSPECAUTH
VA FileMan	2	YN^DICN ^DIR
Kernel	1	ENDR^%ZISS

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
PCE Patient Care Encounter	4	PXBAPI1 PXCEC800 PXCED800 PXCEE800
Event Capture	1	ECUTL1

Entry Points

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	;D ASKCL($G(ENCOWNTR),.SDCLOEY,DFN,APTDT)
ASKCL(ENCOWNTR,SDCLOEY,DFN,APTDT)	;Ask classifications on check out
ASK(CODES,VISIT)	;
ENCHK(ENCOWNTR,X0)	;Do outpatient encounter checks
OPCHK(DFN,LOC,APTDT)	;Do standalone outpatient encounter checks
TEST	;Test call to CLASS

External References

Name	Field # of Occurrence
ENDR^%ZISS	ASK+3
YN^DICN	TEST+2
^DIR	ASK+12, ENCHK+4, OPCHK+3
SC^PXCEVFI2	ON+1
GETPATSA^PXSPECAUTH	ON+2
$$INP^SDAM2	ENCHK+7, OPCHK+6
$$CLINIC^SDAMU	ENCHK+6, OPCHK+5
CL^SDCO21	ASKCL+2
CLOE^SDCO21	ASKCL+1
$$EXOE^SDCOU2	ENCHK+8
$$REQ^SDM1A	ENCHK+5, OPCHK+4
$$SC^SDSCAPI	ON+7

Interaction Calls

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
Routine Call	DIR Line Location: ASK+12 ENCHK+4 OPCHK+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	CLASS+25, ASK+16, ASK+17, ASK+20
^DPT - [#2]	CLASS+29, TEST+2
^PXIND(820 - [#820]	ON+5, ON+6
^SCE - [#409.68]	CLASS+24, CLASS+27, CLASS+30, CLASS+32, TEST+2
^SCE("AVSIT"	CLASS+23

Label References

Name	Line Occurrences
ASK	ON+10
CLASS	TEST+3
ENCHK	CLASS+27, CLASS+30
ON	CLASS+27, CLASS+30
OPCHK	CLASS+31

Naked Globals

Name	Field # of Occurrence
^(	TEST+2
^(0	CLASS+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TEST+2*
APTDT	CLASS~, CLASS+27~, CLASS+28, CLASS+29, CLASS+31, ON+2, ASKCL~, ASKCL+2, ENCHK+1*, ENCHK+2 , OPCHK~, OPCHK+1, OPCHK+4, OPCHK+6
CNT	ASK+1~, ASK+2~, ASK+7, ASK+16, ASK+20, ASK+21, ASK+22*
CODE	CLASS+26~, ON+3*, ON+4, ON+5, ON+7, ON+8
CODES	CLASS+26~, ON+9, ON+10, ASK~
CODES(	ON+8*, ASK+8, ASK+9
CTS	ASK+1~
DA	CLASS+26~, ENCHK+1*
DFN	CLASS~, CLASS+25, CLASS+27~, CLASS+28, CLASS+29, CLASS+31, ON+1, ON+2, ON+7, ASKCL~ , ASKCL+2, ENCHK+1, ENCHK+7, OPCHK~, OPCHK+6, TEST+2*
DIR	ASK+1~, ASK+2~, ENCHK+2!, OPCHK+1!
DIR("A"	ASK+10, ENCHK+3, ENCHK+4, OPCHK+2, OPCHK+3*
DIR("B"	ASK+11*
DIR(0	ASK+7, ENCHK+3, OPCHK+2*
DIRUT	ASK+2~, ASK+13, ENCHK+2, OPCHK+1
DONE	ASK+1~, ASK+2~, ASK+8, ASK+13
DTOUT	ASK+2~, ASK+13
DUOUT	ASK+2~, ASK+13
ENCOWNTR	CLASS~, CLASS+22, CLASS+23, CLASS+24, CLASS+27, CLASS+30*, CLASS+32, ON+7, ASKCL~, ASKCL+1 , ENCHK~, ENCHK+8
END	CLASS+26~, CLASS+27, CLASS+30, CLASS+31, ENCHK+2, ENCHK+5, ENCHK+6, ENCHK+7, ENCHK+8, OPCHK+1* , OPCHK+4, OPCHK+5, OPCHK+6*
I	ASK+1~
IDX	ASK+1~, ASK+2~, ASK+17*, ASK+18
IEN	CLASS+26~
IFN	CLASS+26~
IOINHI	ASK+1~, ASK+2~, ASK+4
IOINORM	ASK+1~, ASK+2~, ASK+4
LOC	CLASS~, CLASS+27~, CLASS+28, CLASS+30, CLASS+31, ON+2, ENCHK+1*, ENCHK+6, OPCHK~, OPCHK+5
NODE	CLASS+26~, ON+6, ON+8, ASK+1~, ASK+2~, ASK+9, ASK+10, ASK+11, ASK+16, ASK+17 , ASK+18, ASK+21*, ASK+22
NOTFILED	ASK+1~, ASK+2~, ASK+19
NOTFILED(	ASK+17*, ASK+21
ORG	CLASS+26~, ENCHK+1*, ENCHK+6, ENCHK+7
PXANS	ASK+1~
PXBDATA	TEST+2!
PXBDATA(	ASK+16, ASK+18, ASK+21, ASK+22
>> PXCECAT	ASK+6, ASK+14
PXDIAG	CLASS+26~, ON+7
>> PXDOD	ENCHK+2, OPCHK+1
PXEOCNUM	ASK+1~
PXIFN	TEST+1~, TEST+2, TEST+3
PXVST	ASK+1~, ASK+6*
SAS	CLASS+26~, ON+2
SAS(	ON+3, ON+4, ON+7*, ON+8
SDCLOEY	CLASS+26~, ASKCL~, ASKCL+1, ASKCL+2
SEQ	CLASS+26~, ON+6, ON+8, ASK+1~, ASK+2~, ASK+8, ASK+9
SIDX	CLASS+26~, ON+5, ON+6, ON+8, ASK+1~, ASK+2~, ASK+17
SQUIT	CLASS+26~
TYPI	ASK+1~
TYPSEQ	ASK+1~
U	CLASS+25, CLASS+32, ON+4, ON+6, ON+7, ON+8, ASK+6, ASK+10, ASK+11, ASK+16 , ASK+17, ASK+18, ASK+22
>> VADM(6	ENCHK+2, OPCHK+1
>> VADM(7	ENCHK+4, OPCHK+3
VISIT	CLASS~, CLASS+22, CLASS+23, CLASS+25, CLASS+32*, ON+2, ON+7, ON+10, ASK~, ASK+15 , ASK+16, ASK+17, ASK+20
X	CLASS+26~, CLASS+29, CLASS+30, ASK+1~, ASK+2~, ASK+3
X0	CLASS+27, CLASS+30, ASK+6, ENCHK~, ENCHK+1, ENCHK+5, ENCHK+7
Y	ASK+1~, ASK+2~, ASK+16, ASK+17, ASK+18, ASK+22

Customize PDF page

Package: PCE Patient Care Encounter