Routine: VENPCCMP

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
PCC New Encounter Form	2	$$DEL^VENPCCMD $$WAIT^VENPCCU

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCCX1

Entry Points

Name	Comments	DBIA/ICR reference
CODE	;
ADD1
S2
PGRP()	;
U1
POS	;
COPY(LIST,STAT,TITLE,EF,CPT)	; COPY IN ANOTHER LIST
LIST(EF,CPT,PGRP)	; EP-LIST THE ITEMS
EF(EF)	;
STATUS(EF,CPT,X)	; SHOW MAX ENTRIES POSSIBLE
SHOW(X)	; DISPLAY THE LIST
ALPH(LIST,PCE)	; ALPHABETIZE THE LIST
CPT(CPT)	;
SAVE(LIST,EF,CPT,PGRP)	; EP-DELETE THE OLD LIST AND SAVE THE NEW ONE
NEW
INIT
DEL1
EN1	; EP FOR LOOPING THROUGH ALL CPT & PATIENT GROUPS IN A TEMPLATE
LST
DEL2
UPDATE(LIST,STAT)	; EDIT AN ENTRY IN THE LIST
NEXT(EF,CPT,PGRP)	;
S1
LCPT
SUBMIT(LIST,EF,CPT,PGRP)	; ENTER THE LIST
P1
MAX(EF,CPT)	; EP-MAX ITEMS
ENT	;
N1
U2	;
DEL(LIST,STAT)	; DELETE AN ENTRY
ADD(LIST,STAT)	; ADD AN ENTRY
NAME	;
RUN
LGRP
LEF
EDIT
TITLE(EF,CPT,G)	; TITLE OF LIST
DEL3
SUB(LIST,EF,CPT,PGRP)	; EP-FOR SUBMITTING AN EXTERNALY GENERATED LIST
LOOP

External References

Name	Field # of Occurrence
^DIC	EF+5, CPT+6, SAVE+14
YN^DICN	ENT+6, DEL2+4, DEL3+3, COPY+9, S1+6, U2+9
^DIE	SAVE+17
^DIK	SAVE+7
^DIR	EDIT+5, PGRP+3, POS+3, NAME+1, CODE+1, DEL2, S1+10, U1, U1+5, U2+2
$$DEL^VENPCCMD	EDIT+9
$$WAIT^VENPCCU	SHOW+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: RUN+0
Function Call: WRITE	Prompt: !!!?20,"*** USER PREFERENCE MANAGER ***" Line Location: RUN+0
Function Call: WRITE	Prompt: !!! Line Location: RUN+1
Function Call: WRITE	Prompt: !!! Line Location: LOOP+0
Function Call: WRITE	Prompt: !!,$P(STATUS,U,3) Line Location: EDIT+0
Function Call: WRITE	Prompt: !,TITLE Line Location: EDIT+1
Function Call: WRITE	Prompt: ! Line Location: EDIT+2
Function Call: WRITE	Prompt: !!,"Select from 'ADD', 'EDIT', 'DELETE', 'COPY', 'SUBMIT', 'NEXT LIST', 'QUIT'" Line Location: EDIT+3
Function Call: WRITE	Prompt: !!,"Select from 'ADD', 'COPY', 'NEXT LIST', 'QUIT'" Line Location: EDIT+4
Function Call: WRITE	Prompt: ! Line Location: SHOW+3
Function Call: WRITE	Prompt: I,?5,NAME," ",CODE Line Location: SHOW+8
Function Call: WRITE	Prompt: !,"You have room for "_X_" more "_$S(X>1:"entries",1:"entry") Line Location: ADD1+1
Function Call: WRITE	Prompt: !,"You are over the limit for adding new entries!" Line Location: ADD1+2
Function Call: WRITE	Prompt: ! Line Location: ADD1+3
Function Call: WRITE	Prompt: $E("END of list",$L(POS)+1,99) Line Location: P1+0
Function Call: WRITE	Prompt: " ??" Line Location: P1+2
Function Call: WRITE	Prompt: ! Line Location: ENT+4
Function Call: WRITE	Prompt: ! Line Location: ENT+4
Function Call: WRITE	Prompt: !!,"Want to add another entry" Line Location: ENT+5
Function Call: WRITE	Prompt: !,"There are no entries to delete!" Line Location: DEL1+0
Function Call: WRITE	Prompt: !,"You should delete at least "_%_" entries..." Line Location: DEL1+1
Function Call: WRITE	Prompt: !,"Sure you want to delete "_$P($P(LIST,U,POS),";") Line Location: DEL2+3
Function Call: WRITE	Prompt: ! Line Location: DEL3+1
Function Call: WRITE	Prompt: ! Line Location: DEL3+1
Function Call: WRITE	Prompt: !!,"Want to delete another entry" Line Location: DEL3+2
Function Call: WRITE	Prompt: !!,"Define the Patient Group to copy from =>" Line Location: COPY+2
Function Call: WRITE	Prompt: !,"Unable to copy because no entries found!" Line Location: COPY+4
Function Call: WRITE	Prompt: !,CTITLE Line Location: COPY+6
Function Call: WRITE	Prompt: ! Line Location: COPY+7
Function Call: WRITE	Prompt: !,"OK to copy non-redundant entries from this list" Line Location: COPY+8
Function Call: WRITE	Prompt: !!,"Source list: ",TITLE Line Location: COPY+11
Function Call: WRITE	Prompt: ! Line Location: COPY+12
Function Call: WRITE	Prompt: !!,"You have exceeded the maximum number of items allowed!",!,"Delete ",%," item",$S(%>1:"s",1:"")," before proceeding",! Line Location: S1+2
Function Call: WRITE	Prompt: !,"The following list will be saved: ",TITLE Line Location: S1+3
Function Call: WRITE	Prompt: !,"Are you sure everything is OK" Line Location: S1+5
Function Call: WRITE	Prompt: !!,"You have successfully edited this template!" Line Location: N1+1
Function Call: WRITE	Prompt: ! Line Location: U2+7
Function Call: WRITE	Prompt: ! Line Location: U2+7
Function Call: WRITE	Prompt: !!,"Want to edit another entry" Line Location: U2+8
Routine Call	DIE Line Location: SAVE+17
Routine Call	DIC Line Location: EF+5 CPT+6 SAVE+14
Routine Call	DIR Line Location: EDIT+5 PGRP+3 POS+3 NAME+1 CODE+1 DEL2 S1+10 U1 U1+5 U2+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.41 - [#19707.41]	Classic Fileman Calls
^VEN(7.93 - [#19707.93]	Classic Fileman Calls
^VEN(7.98 - [#19707.98]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^VEN(7.41 - [#19707.41]	SAVE+1, SAVE+15, MAX+7
^VEN(7.42 - [#19707.42]	SAVE+13
^VEN(7.93 - [#19707.93]	LIST+4, LIST+5, LIST+7, LIST+8, SAVE+7, SAVE+16, SAVE+17
^VEN(7.98 - [#19707.98]	LIST+2, SAVE+1, SAVE+5, N1, MAX+2

Label References

Name	Line Occurrences
$$ADD	EDIT+8
$$ALPH	S2, S2+1
$$COPY	EDIT+10
$$CPT	LCPT
$$EF	LEF, NEXT+2
$$LIST	LST, COPY+4
$$MAX	STATUS+4, S1+2
$$NEXT	LOOP
$$PGRP	LGRP, COPY+3
$$STATUS	EDIT
$$SUBMIT	EDIT+12
$$TITLE	LST+1, COPY+5
$$UPDATE	EDIT+11
ADD1	ENT+7
CODE	NAME+2
DEL1	DEL3+4
DEL2	DEL2+5
DEL3	DEL2+6, DEL2+7
EDIT	EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12
LCPT	EDIT+13
LOOP	EDIT+7
LST	LOOP
N1	N1+2, N1+3
NAME	POS+1, P1
NEW	EN1+2
POS	P1+2
RUN	EDIT+12
S1	SUB+2
S2	S1+1
SAVE	S2, S2+1, S2+2
SHOW	EDIT+2, ENT+4, DEL3+1, COPY+7, COPY+12, S1+4, U2+7
U1	U2+10
U2	U1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW~, LOOP, EF+1~, CPT+1~, PGRP+1~, ADD+1~, ENT+2, ENT+3, ENT+5, ENT+6 , DEL+1~, DEL1, DEL1+1, DEL2+4, DEL2+5, DEL3, DEL3+2, DEL3+3, COPY+9, S1~ , S1+2, S1+6, S1+7, SAVE+3~, SAVE+10, SAVE+11, SAVE+12, UPDATE+1~, U2+8*, U2+9
%Y	NEW~, SAVE+3~
CIEN	NEXT+1~, N1*
CLIST	COPY+1~, COPY+4*, COPY+7, COPY+10
CODE	LIST+1~, LIST+6, LIST+10, SHOW+1~, SHOW+7, SHOW+8, ADD+1~, CODE+1, CODE+3, ENT+1 , ENT+2, S1~, S1+7, S1+8, SAVE+3~, SAVE+11, SAVE+15, UPDATE+1~, U2+1, U2+4 , U2+5
CPT	NEW~, INIT, LOOP, LCPT, LST, LST+1, EDIT, EDIT+10, EDIT+12, CPT~ , CPT+4, STATUS~, STATUS+4, TITLE~, TITLE+1, LIST~, LIST+2, COPY~, COPY+4, COPY+5 , SUB~, SUBMIT~, S1+2, S2, S2+1, S2+2, SAVE~, SAVE+1, SAVE+5, NEXT~ , NEXT+4, N1, N1+1, N1+4, MAX~, MAX+2
CTAG	LIST+1~, LIST+7, LIST+10, SAVE+3~, SAVE+11, SAVE+15
CTITLE	COPY+1~, COPY+5*, COPY+6
D	SAVE+3~
D0	SAVE+3~
DA	EDIT+5!, PGRP+3!, POS+3!, NAME+1!, CODE+1!, DEL2!, S1+10!, SAVE+3~, SAVE+7, SAVE+15 , SAVE+16, SAVE+17, U1!
DI	SAVE+3~
DIC	EF+1~, EF+2, CPT+1~, CPT+2, PGRP+1~, ADD+1~, SAVE+3~, SAVE+8*
DIC("A"	EF+3, CPT+3
DIC("B"	EF+4, CPT+4
DIC("S"	CPT+5*
DIC(0	EF+2, CPT+2, SAVE+8*
DICR	SAVE+3~
DIE	SAVE+3~, SAVE+8*
DIG	SAVE+3~
DIH	SAVE+3~
DIK	SAVE+3~, SAVE+4*, SAVE+8
DIR	EDIT+5!, PGRP+2~, PGRP+3!, POS+3!, NAME+1!, CODE+1!, DEL2!, S1~, S1+10!, UPDATE+1~ , U1!, U1+5!, U2+2!
DIR("A"	EDIT+5, PGRP+3, POS+2, NAME+1, CODE+1, DEL2, S1+10, U1, U1+4, U2+1
DIR("B"	POS+3, U1+4, U2+1*
DIR(0	EDIT+3, EDIT+4, PGRP+3, POS+3, NAME+1, CODE+1, DEL2, S1+8, S1+9, U1 , U1+4, U2+1
DIROUT	ADD+1~, POS+4!, NAME+3!
DIRUT	NEW~, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, DEL+1~, DEL2+4, COPY+1~, S1~ , UPDATE+1~, U1+6
DISP	STATUS+1~, STATUS+2, STATUS+3, STATUS+5, STATUS+6
DIU	SAVE+3~
DIV	SAVE+3~
DIW	SAVE+3~
>> DLAYGO	SAVE+8*
DQ	SAVE+3~
DR	SAVE+3~, SAVE+15*
DTOUT	NEW~, EDIT+6, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, CODE+2, DEL+1~, DEL2+4 , COPY+1~, S1~, UPDATE+1~, U1+6, U2+3
DUOUT	NEW~, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, CODE+2, DEL+1~, COPY+1~, S1~ , UPDATE+1~, U1+6, U2+3
EF	NEW~, INIT, LOOP, LEF, LST, LST+1, EDIT, EDIT+10, EDIT+12, EF~ , EF+4, STATUS~, STATUS+4, TITLE~, TITLE+1, LIST~, COPY~, COPY+4, COPY+5, SUB~ , SUBMIT~, S1+2, S2, S2+1, S2+2, SAVE~, SAVE+1, SAVE+15, NEXT~, NEXT+2 , NEXT+4, N1+4, MAX~, MAX+7
EFLAG	SUB+1~*, S1+1
ENTRY	UPDATE+1~, U1+3, U1+4, U2+1, U2+5, U2+6
G	TITLE~, TITLE+1
GRP	LIST+1~, LIST+3*, LIST+4
HDR	LIST+1~, SAVE+3~, SAVE+12*, SAVE+13
HIEN	SAVE+3~, SAVE+13*, SAVE+15
I	SHOW+1~, SHOW+2, SHOW+4, SHOW+5, SHOW+6, SHOW+8, COPY+1~, COPY+10, ALPH+1~, ALPH+2* , ALPH+4, ALPH+6, ALPH+8, ALPH+9, MAX+1~, MAX+5*
IOF	RUN
IX	SAVE+3~, SAVE+6*, SAVE+7
LIST	NEW~, LST, EDIT, EDIT+2, EDIT+3, EDIT+4, EDIT+8, EDIT+9, EDIT+10, EDIT+11* , EDIT+12, ADD~, POS+1, POS+4, NAME+3, CODE+2, ENT+1, ENT+2, ENT+4, ENT+6 , DEL~, DEL2+1, DEL2+3, DEL2+4, DEL2+6, DEL2+7, DEL2+8, DEL3+1, DEL3+3, COPY~ , COPY+3, COPY+4, COPY+9, COPY+10, COPY+12, COPY+13, SUB~, SUBMIT~, S1+2, S1+4 , S1+7, S2, S2+1, S2+2, ALPH~, ALPH+2, ALPH+9, SAVE~, SAVE+1, SAVE+9 , SAVE+10, UPDATE~, U1+1, U1+3, U1+7, U2+3, U2+6*, U2+7, U2+9
LIST(	ALPH+4*, ALPH+7, ALPH+9
LOOP	NEW+1~, LOOP, EDIT+7, EN1+1~
MAX	STATUS+1~, STATUS+4, STATUS+5, STATUS+6, MAX+1~, MAX+7, MAX+8
MN	LIST+1~, LIST+2, LIST+3, SAVE+3~, SAVE+5, SAVE+6, SAVE+12, MAX+1~, MAX+2*, MAX+3 , MAX+5
NAME	LIST+1~, LIST+6, LIST+10, SHOW+1~, SHOW+7, SHOW+8, ADD+1~, NAME+2, ENT+1, ENT+2 , NEXT+1~, N1, N1+2, N1+3, UPDATE+1~, U1+6*, U2+5
PCE	ALPH~, ALPH+3, SAVE+3~, SAVE+9, SAVE+10, SAVE+12, MAX+1~, MAX+5, MAX+6, MAX+7
PGRP	NEW~, INIT, LOOP, LGRP, LST, LST+1, EDIT+12, LIST~, LIST+3, COPY+1~ , COPY+3, COPY+4, COPY+5, SUB~, SUBMIT~, S2, S2+1, S2+2, SAVE~, SAVE+1 , SAVE+6, SAVE+15, NEXT~, NEXT+3*, NEXT+4, N1+4
POS	ADD+1~, POS+1, POS+3, P1, P1+1, ENT+1, ENT+2, DEL+1~, DEL2+2, DEL2+3 , DEL2+6, DEL2+7, DEL2+8, UPDATE+1~, U1+2*, U1+3, U2+6
REC	LIST+1~, LIST+3, LIST+9, LIST+10*, LIST+12
SIEN	LIST+1~, LIST+3, LIST+4, LIST+5, LIST+7, LIST+8
SS	MAX+1~, MAX+5*, MAX+7
STAG	LIST+1~, LIST+8, LIST+10, SAVE+3~, SAVE+11, SAVE+15
STAT	ADD~, ADD1, P1, P1+1, ENT+3, DEL~, DEL1, DEL1+1, DEL2, DEL2+6 , DEL3, COPY~, UPDATE~, U1
STATUS	NEW~, EDIT*, EDIT+8, EDIT+9, EDIT+10, EDIT+11
STOP	SHOW+1~, SHOW+2, SHOW+4, SHOW+6
TITLE	NEW~, LST+1*, EDIT+1, EDIT+10, COPY~, COPY+11, S1+3
U	EDIT, EDIT+6, EF+4, CPT+4, STATUS+2, STATUS+6, TITLE+1, LIST+2, LIST+6, LIST+7 , LIST+8, LIST+9, SHOW+2, SHOW+5, ADD1, P1, P1+1, ENT+1, ENT+2, ENT+3 , DEL1, DEL1+1, DEL2, DEL2+3, DEL2+6, DEL2+7, DEL2+8, DEL3, COPY+10, S1+2 , S1+7, ALPH+2, ALPH+9, SAVE+5, SAVE+9, SAVE+10, SAVE+15, N1, MAX+2, MAX+5 , MAX+7, U1, U1+3, U2+6
X	NEW~, EF+1~, CPT+1~, PGRP+1~, STATUS~, STATUS+2, STATUS+3, STATUS+5, STATUS+6, LIST+1~ , LIST+5, LIST+6, SHOW~, SHOW+2, SHOW+5, ADD+1~, ADD1, ADD1+1, DEL+1~, COPY+10 , ALPH+1~, ALPH+2, ALPH+3, SAVE+12, MAX+1~, MAX+4*, MAX+5, UPDATE+1~
Y	NEW~, EDIT+6, EDIT+7, EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12, EDIT+13, EF+1~ , EF+5, EF+6, CPT+1~, CPT+6, CPT+7, PGRP+1~, PGRP+4, PGRP+5, SHOW+1~, SHOW+5* , SHOW+6, SHOW+7, ADD+1~, POS+3, NAME+2, CODE+3, DEL+1~, DEL2+1, DEL2+2, S1~ , S1+1, S2, S2+1, S2+2, ALPH+1~, ALPH+3, ALPH+4, ALPH+7, ALPH+9, SAVE+14 , SAVE+15, MAX+1~, MAX+5, UPDATE+1~, U1+1, U1+2, U1+6, U2+4
Z	ALPH+1~, ALPH+6, ALPH+9, ALPH+11

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCMP

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: