Routine: PXCE

Package	Total	Call Graph
PCE Patient Care Encounter	9	$$SOURCE^PXAPIUTL GETVIEN^PXCEAE DATE9S^PXCEDATE EN^PXCEEXP PAUSE^PXCEHELP (MAKELIST,NEWHOSL1)^PXCENEW (NEWPAT1,PATKILL)^PXCEPAT ($$SELAPPM,FNL)^PXCESDAM $$PKG2IEN^VSIT
Registration	4	KVA^VADPT EN^VALM ($$SETSTR,FULL)^VALM1 CLEAN^VALM10
Scheduling	3	EN^SDGAF $$PCLINE^SDPPTEM ($$COLLAT,$$ELSTAT,$$MHCLIN,$$NEWGAF)^SDUTL2
VA Fileman	2	C^%DTC ^DIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
PCE Patient Care Encounter	10	PXCE ENCOUNTER DATA ENTRY PXCE ENCOUNTER ENTRY & DELETE PXCE ENCOUNTER ENTRY NO DELETE PXCE ENCOUNTER ENTRY SUPER PXCE ENCOUNTER VIEWER PXCEAE PXCEEXP PXCEINTR PXCENEW PXCEPAT

Entry Points

Name	Comments	DBIA/ICR reference
ASKLOOP
HDR	; -- header code
SKIP
EN1(PXCEKEYS)	;Does not checks for provider
START1	;
EN(PXCEKEYS)	;Checks for provider
EXPND	; -- expand code
SEL1(HELP,PXCEADD)	; Select 1 visit ; If the $GET(PXCEADD) is non zero then will ; add to the prompt "add a new encounter"
SETDATES	;
START	;
INIT	; -- init variables and list array
EXIT	; -- exit code
EXITALL	; Exit of whole program
GAF	;;
DONE	; -- exit action for protocol
GAFQ
SETUP	;

External References

Name	Field # of Occurrence
C^%DTC	SETUP+5, SETUP+7, SETUP+9, SETUP+11
^DIR	SETUP+4, SEL1+18, ASKLOOP+5, GAF+6, GAF+15, GAF+32
$$SOURCE^PXAPIUTL	START1+15
GETVIEN^PXCEAE	GAF+8
DATE9S^PXCEDATE	SETDATES+7
EN^PXCEEXP	EXPND+1
PAUSE^PXCEHELP	SEL1+9
MAKELIST^PXCENEW	INIT+1
NEWHOSL1^PXCENEW	SETUP+17
NEWPAT1^PXCEPAT	SETUP+16
PATKILL^PXCEPAT	EXITALL+1
$$SELAPPM^PXCESDAM	GAF+9
FNL^PXCESDAM	EXIT+5
EN^SDGAF	GAF+27
$$PCLINE^SDPPTEM	HDR+6
$$COLLAT^SDUTL2	HDR+32, GAF+20
$$ELSTAT^SDUTL2	HDR+28, GAF+19
$$MHCLIN^SDUTL2	HDR+23, HDR+32, GAF+2, GAF+20
$$NEWGAF^SDUTL2	HDR+33, GAF+21
KVA^VADPT	EXITALL+2
EN^VALM	START1+25, START1+26, START1+28, START1+29
$$SETSTR^VALM1	HDR+23, HDR+25
FULL^VALM1	START1+30, EXIT+1, GAF+22
CLEAN^VALM10	EXIT+2
$$PKG2IEN^VSIT	START1+16
$$FMTE^XLFDT	HDR+16, HDR+36, GAF+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Selection '",Y,"' is not a valid choice." Line Location: SEL1+8
Function Call: WRITE	Prompt: ! Line Location: GAF+23
Function Call: WRITE	Prompt: !,"Warning: Patient is deceased." Line Location: GAF+24
Function Call: WRITE	Prompt: !,"Current GAF: "_+$P(PXGAF,U,2) Line Location: GAF+25
Function Call: WRITE	Prompt: $S($P(PXGAF,U,3)>0:", from "_$$FMTE^XLFDT($P(PXGAF,U,3),"D"),1:", Date Unavailable") Line Location: GAF+26
Routine Call	VALM Line Location: START1+25 START1+26 START1+28 START1+29
Routine Call	DIR Line Location: SETUP+4 SEL1+18 ASKLOOP+5 GAF+6 GAF+15 GAF+32

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	HDR+31, GAF+16, GAF+17, GAF+18
^DPT - [#2]	GAF+18
^PX(815 - [#815]	START1+14, SETUP+5, SETUP+7, SETUP+9, SETUP+11
^SC - [#44]	HDR+11
^TMP("PXCE"	EXIT+3!
^TMP("PXCEIDX"	HDR+30, HDR+31, EXIT+4!, SEL1+4, GAF+8
^TMP("SDAMIDX"	GAF+9
^VA(200 - [#200]	START+2

Label References

Name	Line Occurrences
ASKLOOP	ASKLOOP+9
EXITALL	START1+31
SETDATES	SETUP+15
SETUP	START1+19
SKIP	GAF+2
START	PXCE+19
START1	EN1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%B	START1+5!
DA	START1+5!, SETUP+1~, SETUP+4!, SEL1+12~, SEL1+20~, ASKLOOP+6!
DFN	START1+12~, SETUP+3
DIE	START1+5!
DIR	SETUP+1~, SETUP+4!, SEL1+12~, SEL1+20~, ASKLOOP+6!, GAF+6!, GAF+15!, GAF+32!
DIR("?"	SEL1+16, SEL1+17, ASKLOOP+2, ASKLOOP+3, ASKLOOP+4*
DIR("A"	SETUP+4, SEL1+13, SEL1+14, SEL1+15, ASKLOOP+1, GAF+4, GAF+5, GAF+12, GAF+13, GAF+14 , GAF+30, GAF+31
DIR("B"	SEL1+15*
DIR(0	SETUP+4, SEL1+13, ASKLOOP, GAF+3, GAF+11, GAF+29
DIRUT	START1+18!, START1+19, SETUP+4, ASKLOOP+7
DNM	START1+5!
DQ	START1+5!
DR	START1+5!
DT	SETUP+5, SETUP+7, SETUP+9, SETUP+11, HDR+6
>> DTOUT	SEL1+18
DUZ	START+2
HELP	SEL1~, SEL1+17, ASKLOOP+3, ASKLOOP+4
I	START1+5!
MAX	SEL1+3~, SEL1+4*, SEL1+7, SEL1+13, SEL1+14, SEL1+15, ASKLOOP, ASKLOOP+1, ASKLOOP+9
PXCE9BEG	START1+8~
PXCE9END	START1+8~
PXCEADD	SEL1~, SEL1+11
PXCECONT	START1+10~, START1+21, START1+22!
PXCEDBEG	START1+8~, SETDATES+2, SETDATES+5, HDR+16
PXCEDBHL	START1+9~, SETUP+10*, SETDATES+2
PXCEDBP	START1+9~, SETUP+6*, SETDATES+5
PXCEDEHL	START1+9~, SETUP+12*, SETDATES+3
PXCEDEND	START1+8~, SETDATES+3, SETDATES+6, HDR+16
PXCEDEP	START1+9~, SETUP+8*, SETDATES+6
>> PXCEGAF	HDR+33*, HDR+34, HDR+36
>> PXCEGDT	HDR+36*, HDR+37
>> PXCEGPR	HDR+36*
>> PXCEGSC	HDR+36*, HDR+37
>> PXCEGST	HDR+34*, HDR+35
PXCEHIT	HDR+27!, HDR+30, HDR+37*
PXCEHLC	HDR+26~, HDR+31*, HDR+32
PXCEHLOC	START1+7~, SETUP+17*, HDR+11, HDR+23, GAF+2
PXCEKEYS	PXCE+17~, PXCE+18, EN1~, EN~, START+2, START1+3, START1+23
PXCEPAT	START1+7~, SETUP+16*, HDR+6, HDR+28, HDR+33
PXCEPAT("NAME"	HDR+7
PXCEPAT("SSN"	HDR+8
PXCEPKG	START1+11~, START1+16*
PXCESOR	START1+11~, START1+15*
PXCESTA	HDR+26~, HDR+28*, HDR+32
PXCEUSEL	SETUP+2~, SETUP+3, SETUP+4, SETUP+13, SETUP+14, SETUP+16, SETUP+17
PXCEVIEN	GAF+1~, GAF+9*, GAF+10, GAF+12, GAF+13, GAF+16, GAF+17, GAF+18
PXCEVIEW	START1+6~, START1+14, START1+21, START1+24, START1+27, SETUP+13, SETUP+14*, SETDATES+1, HDR+5, HDR+11 , HDR+19, HDR+23, HDR+24
>> PXCEZZ	HDR+29, HDR+30, HDR+31
PXDATA	GAF+1~, GAF+18*, GAF+20
PXDFN	GAF+1~, GAF+16*, GAF+18, GAF+19, GAF+21, GAF+27
PXDSS	GAF+1~, GAF+17*, GAF+20
PXELIG	GAF+1~, GAF+19*, GAF+20
>> PXGAF	GAF+21*, GAF+24, GAF+25, GAF+26
PXLNX	HDR+1!, HDR+2, HDR+7, HDR+8, HDR+9, HDR+11, HDR+12, HDR+13, HDR+16, HDR+19 , HDR+20, HDR+23, HDR+25, HDR+37
PXPCP	HDR+1!, HDR+2, HDR+6, HDR+13
>> SDAMLIST	HDR+19
SDAMTYP	START1+6~, SETUP+13, SETUP+14
SDB	START1+5!
SDBEG	START1+8~
SDCLN	START1+5!
SDEND	START1+8~
SDFN	START1+5!, HDR+33
U	GAF+18, GAF+20, GAF+24, GAF+25, GAF+26
>> VALMBCK	DONE+1, GAF+10, SKIP*
VALMHDR	HDR+1!
VALMHDR(	HDR+7, HDR+8, HDR+9, HDR+11, HDR+13, HDR+16, HDR+19, HDR+23, HDR+25, HDR+37
>> VALMSG	HDR+39, DONE+2
X	START1+5!, SETUP+1~, SETUP+6, SETUP+8, SETUP+10, SETUP+12, SEL1+3~, SEL1+18, ASKLOOP+7
X1	SETUP+2~, SETUP+5, SETUP+7, SETUP+9, SETUP+11
X2	SETUP+2~, SETUP+5, SETUP+7, SETUP+9, SETUP+11
XQORNOD	START1+5!
XQORNOD(0	SEL1+5
Y	SETUP+1~, SETUP+4, SEL1+3~, SEL1+5, SEL1+6, SEL1+7, SEL1+8, SEL1+10, SEL1+18, ASKLOOP+7 , ASKLOOP+8*, ASKLOOP+9, ASKLOOP+10

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXCE

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: