Routine: PXBAPI21

Information

PXBAPI21 ;ISL/DCM - API for Classification check out ; 3/16/23 12:55pm

Package	Total	Call Graph
Scheduling	5	$$INP^SDAM2 $$CLINIC^SDAMU ($$SEQ,CL,CLOE)^SDCO21 $$EXOE^SDCOU2 $$REQ^SDM1A
PCE Patient Care Encounter	2	ONE^PXBAPI22 SC^PXCEVFI2
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
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

External References

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

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: ENCHK+4 OPCHK+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	CLASS+25, ASK+9, ASK+10, ASK+11, ASK+12, ASK+13, ASK+14, ASK+15, ASK+16
^DPT - [#2]	CLASS+34, TEST+2
^SCE - [#409.68]	CLASS+24, CLASS+27, CLASS+29, CLASS+35, TEST+2
^SCE("AVSIT"	CLASS+23

Label References

Name	Line Occurrences
ASK	ON+12
ASKCL	ON
CLASS	TEST+3
ENCHK	CLASS+30, CLASS+35
ON	CLASS+32, CLASS+35
OPCHK	CLASS+36

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	TEST+2*
APTDT	CLASS~, CLASS+28~, CLASS+33, CLASS+34, CLASS+36, ON, ASKCL~, ASKCL+2, ENCHK+1*, ENCHK+2 , OPCHK~, OPCHK+1, OPCHK+4, OPCHK+6
CTS	ASK+1~, ASK+6, ASK+22
DA	CLASS+26~, ENCHK+1*
DFN	CLASS~, CLASS+25, CLASS+28~, CLASS+31, CLASS+33, CLASS+34, CLASS+36, ON, ON+1, ASKCL~ , ASKCL+2, ENCHK+1, ENCHK+7, OPCHK~, OPCHK+6, TEST+2
DIR	ENCHK+2!, OPCHK+1!
DIR("A"	ENCHK+3, ENCHK+4, OPCHK+2, OPCHK+3
DIR(0	ENCHK+3, OPCHK+2
>> DIRUT	ENCHK+2, OPCHK+1
ENCOWNTR	CLASS~, CLASS+22, CLASS+23, CLASS+24, CLASS+27, CLASS+29, CLASS+30, CLASS+31, CLASS+32, CLASS+35* , ON, ON+12, ASKCL~, ASKCL+1, ASK~, ASK+17, ENCHK~, ENCHK+8
END	CLASS+26~, CLASS+29, CLASS+30, CLASS+35, CLASS+36, ASK+20~, ASK+21, ASK+23, ASK+24, ENCHK+2 , ENCHK+5, ENCHK+6, ENCHK+7, ENCHK+8, OPCHK+1, OPCHK+4, OPCHK+5, OPCHK+6
I	ASK+1~, ASK+18*
IEN	CLASS+26~
IFN	CLASS+26~
IOINHI	ASK+1~, ASK+4
IOINORM	ASK+1~, ASK+4
LOC	CLASS~, CLASS+28~, CLASS+33, CLASS+35, CLASS+36, ENCHK+1*, ENCHK+6, OPCHK~, OPCHK+5
ORG	CLASS+26~, ENCHK+1*, ENCHK+6, ENCHK+7
PXANS	ASK+1~
PXBDATA	TEST+2!
PXBDATA(	ASK+23
PXBDATA(3	ASK+18, ASK+19
>> PXCEAFTR(800	ON+4, ON+5, ON+6, ON+7, ON+8, ON+9, ON+10, ON+11
>> PXCECAT	ON+3, ASK+8, ASK+9, ASK+10, ASK+11, ASK+12, ASK+13, ASK+14, ASK+15, ASK+16
>> PXDOD	ENCHK+2, OPCHK+1
PXEOCNUM	ASK+1~
PXIFN	TEST+1~, TEST+2, TEST+3
PXPOS	ASK+20~, ASK+21*
PXVST	ASK+1~, ASK+8*, ASK+9, ASK+10, ASK+11, ASK+12, ASK+13, ASK+14, ASK+15, ASK+16
SDCLOEY	CLASS+26~, ON, ON+2, ON+12, ASKCL~, ASKCL+1, ASKCL+2, ASK~, ASK+3
SDCLOEY(	ASK+7, ASK+17, ASK+18*
SDCLOEY(1	ON+5*
SDCLOEY(2	ON+6*
SDCLOEY(3	ON+4*
SDCLOEY(4	ON+7*
SDCLOEY(5	ON+8*
SDCLOEY(6	ON+9*
SDCLOEY(7	ON+10*
SDCLOEY(8	ON+11*
SQUIT	CLASS+26~, ON+12, ASK~, ASK+6, ASK+17
TYPI	ASK+1~, ASK+6, ASK+7, ASK+9, ASK+10, ASK+11, ASK+12, ASK+13, ASK+14, ASK+15 , ASK+16, ASK+17, ASK+18, ASK+22, ASK+23
TYPSEQ	ASK+1~, ASK+5*, ASK+6, ASK+22
U	CLASS+25, CLASS+31, ASK+8, ASK+9, ASK+10, ASK+11, ASK+12, ASK+13, ASK+14, ASK+15 , ASK+16
>> VADM(6	ENCHK+2, OPCHK+1
>> VADM(7	ENCHK+4, OPCHK+3
VISIT	CLASS~, CLASS+22, CLASS+23, CLASS+25
X	CLASS+26~, CLASS+34, CLASS+35, ASK+1~, ASK+2
X0	CLASS+29, CLASS+30, CLASS+31, CLASS+35, ASK+8, ENCHK~, ENCHK+1, ENCHK+5, ENCHK+7

Customize PDF page

Package: PCE Patient Care Encounter