Routine: VENPCCMB

Package	Total	Call Graph
VA Fileman	6	^DIC WAIT^DICD YN^DICN ^DIE (,ENALL)^DIK ^DIR
PCC New Encounter Form	2	$$DEL^VENPCCMD $$WAIT^VENPCCU
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
FLY
CODE	;
ADD1
LIST1(SIEN)	; EP-BUILD THE ORDERABLE STRING REC
S2
PGRP()	;
U1
POS	;
COPY(LIST,STAT,TITLE,EF,CPT)	; COPY IN ANOTHER LIST
LIST(EF,CPT,PGRP)	; EP-LIST THE ITEMS
NEW
STATUS(EF,CPT,X)	; SHOW MAX ENTRIES POSSIBLE
SHOW(X)	; DISPLAY THE LIST
DEL1
ALPH(LIST,PCE)	; ALPHABETIZE THE LIST
CPT(CPT)	;
SAVE(LIST,EF,CPT,PGRP)	; EP-DELETE THE OLD LIST AND SAVE THE NEW ONE
INIT
DEL(LIST,STAT)	; DELETE AN ENTRY
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)	;
U2	;
S1
LCPT
SUBMIT(LIST,EF,CPT,PGRP)	; ENTER THE LIST
P1
MAX(EF,CPT)	; EP-MAX ITEMS
ENT	;
N1
OS()	; ORDER SET
EF(OS)	; RETURN THE PRIMARY ENCOUNTER FORM FOR THE OS
ADD(LIST,STAT)	; ADD AN ENTRY
NAME	;
RUN
LGRP
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	OS+11, CPT+6, SAVE+16
WAIT^DICD	RUN+3
YN^DICN	ENT+6, DEL2+4, DEL3+3, COPY+9, S1+6, U2+9
^DIE	SAVE+19
^DIK	SAVE+8, SAVE+9
ENALL^DIK	RUN+6
^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
^XBFMK	RUN+6, EDIT+14

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: $C(13),?79,$C(13) Line Location: RUN+7
Function Call: WRITE	Prompt: !!! Line Location: LOOP+0
Function Call: WRITE	Prompt: !!,"No order set defined! Request terminated...",!! Line Location: LOOP+3
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: !,"No order sets defined!" Line Location: OS+3
Function Call: WRITE	Prompt: !,"Order set and associated templates...",! Line Location: OS+4
Function Call: WRITE	Prompt: !,SET Line Location: OS+6
Function Call: WRITE	Prompt: !?5,TEMP Line Location: OS+7
Function Call: WRITE	Prompt: ! Line Location: OS+10
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: !!,"Done!" Line Location: SAVE+21
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+19
Routine Call	DIC Line Location: OS+11 CPT+6 SAVE+16
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.92 - [#19707.92]	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]	EF+2, OS+7, LIST+4, SAVE+7, SAVE+17, MAX+7
^VEN(7.42 - [#19707.42]	SAVE+15, FLY+3
^VEN(7.92 - [#19707.92]	LOOP+1, LOOP+2, OS+3, OS+5
^VEN(7.93 - [#19707.93]	RUN+2, LIST+5, LIST+6, LIST1+2, LIST1+4, LIST1+5, SAVE+8, SAVE+9, SAVE+18, SAVE+19
^VEN(7.98 - [#19707.98]	LIST+2, SAVE+1, SAVE+5, N1, MAX+2, FLY+1

Label References

Name	Line Occurrences
$$ADD	EDIT+8
$$ALPH	S2, S2+1
$$COPY	EDIT+10
$$CPT	LCPT
$$EF	LOOP+4, NEXT+2
$$LIST	LST, COPY+4
$$MAX	STATUS+4, S1+2
$$NEXT	LOOP
$$OS	LOOP+3
$$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	LOOP+1, LOOP+2, EDIT+13
LIST1	LIST+5, LIST+6
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, U2+7
U1	U2+10
U2	U1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW~, RUN+4, LOOP, LOOP+1, LOOP+2, EDIT+15, OS+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+12, SAVE+13 , SAVE+14, FLY+3, UPDATE+1~, U2+8, U2+9
%D	NEW~
%E	NEW~
%Y	NEW~, SAVE+3~
CIEN	NEXT+1~, N1*
CLIST	COPY+1~, COPY+4*, COPY+7, COPY+10
CNT	MAX+1~, FLY, FLY+1, FLY+3
CODE	LIST1+1~, LIST1+3, LIST1+7, SHOW+1~, SHOW+7, SHOW+8, ADD+1~, CODE+1, CODE+3, ENT+1 , ENT+2, S1~, S1+7, S1+8, SAVE+3~, SAVE+13, SAVE+17, 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, FLY+1
CTAG	LIST1+1~, LIST1+4, LIST1+7, SAVE+3~, SAVE+13, SAVE+17
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+6, SAVE+8 , SAVE+9, SAVE+17, SAVE+18, SAVE+19, U1!
DG	NEW~
DI	SAVE+3~
DIC	OS+9, CPT+1~, CPT+2, PGRP+1~, ADD+1~, SAVE+3~, SAVE+10*
DIC("A"	OS+10, CPT+3
DIC("B"	CPT+4*
DIC("S"	CPT+5*
DIC(0	OS+9, CPT+2, SAVE+10*
DICR	SAVE+3~
DIE	SAVE+3~, SAVE+10*
DIG	SAVE+3~
DIH	SAVE+3~
DIK	RUN+5, SAVE+3~, SAVE+4, SAVE+10
DIK(1	RUN+5*
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+10*
DQ	SAVE+3~
DR	SAVE+3~, SAVE+17*
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
DUZ(0	INIT+1*
EF	NEW~, INIT, LOOP, LOOP+4, LST, LST+1, EDIT, EDIT+10, EDIT+12, STATUS~ , STATUS+4, TITLE~, TITLE+1, LIST~, LIST+4, COPY~, COPY+4, COPY+5, SUB~, SUBMIT~ , S1+2, S2, S2+1, S2+2, SAVE~, SAVE+7, SAVE+17, NEXT~, NEXT+2, NEXT+4 , N1+4, MAX~, MAX+7
EFIEN	EF+1~, EF+2*, EF+3
EFLAG	SUB+1~*, S1+1
ENTRY	UPDATE+1~, U1+3, U1+4, U2+1, U2+5, U2+6
FMN	MAX+1~, FLY+1*, FLY+2, FLY+3
G	TITLE~, TITLE+1
GRP	LIST+1~, LIST+3*, LIST+5, LIST+6
HDR	LIST+1~, SAVE+3~, SAVE+14*, SAVE+15
HIEN	SAVE+3~, SAVE+15*, SAVE+17
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+8, SAVE+9
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+7 , S2, S2+1, S2+2, ALPH~, ALPH+2, ALPH+9, SAVE~, SAVE+1, SAVE+11, SAVE+12 , UPDATE~, U1+1, U1+3, U1+7, U2+3, U2+6*, U2+7, U2+9
LIST(	ALPH+4*, ALPH+7
LOOP	NEW+1~, LOOP, EDIT+7, EN1+1~
MAX	STATUS+1~, STATUS+4, STATUS+5, STATUS+6, MAX+1~, MAX+7, FLY*, FLY+5
MN	LIST+1~, LIST+2, LIST+3, SAVE+3~, SAVE+5, SAVE+6, SAVE+14, MAX+1~, MAX+2*, MAX+3 , MAX+5
NAME	LIST1+1~, LIST1+3, LIST1+7, 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
OS	EF~, EF+2, OS+1~, OS+2, OS+3, OS+12, OS+13
OSET	NEW~, LOOP+1, LOOP+2, LOOP+3*, LOOP+4
PCE	ALPH~, ALPH+3, SAVE+3~, SAVE+11, SAVE+12, SAVE+14, 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+17, 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+7, LIST1+6, LIST1+7*
SET	OS+1~, OS+5, OS+6, LIST+1~, LIST+3, LIST+4, LIST+5, LIST+6, SAVE+3~, SAVE+6 , SAVE+7*, SAVE+8, SAVE+9
SIEN	OS+1~, OS+5, OS+7, LIST+1~, LIST+3, LIST+5, LIST+6, LIST1~, LIST1+2, LIST1+4 , LIST1+5
SS	MAX+1~, MAX+5*, MAX+7
STAG	LIST1+1~, LIST1+5, LIST1+7, SAVE+3~, SAVE+13, SAVE+17
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
STG	ALPH+1~, ALPH+6, ALPH+9, ALPH+11
STOP	SHOW+1~, SHOW+2, SHOW+4, SHOW+6
TEMP	OS+1~, OS+7*
TIEN	OS+1~, OS+7*
TITLE	NEW~, LST+1*, EDIT+1, EDIT+10, COPY~, COPY+11, S1+3
U	EDIT, EDIT+6, OS+7, CPT+4, STATUS+2, STATUS+6, TITLE+1, LIST+2, LIST+4, LIST1+3 , LIST1+4, LIST1+5, LIST1+6, 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+7, SAVE+11, SAVE+12, SAVE+17, N1 , MAX+2, MAX+5, MAX+7, FLY+1, U1, U1+3, U2+6
VENDUZ0	NEW~, INIT+1*, EDIT+15
X	NEW~, OS+1~, CPT+1~, PGRP+1~, STATUS~, STATUS+2, STATUS+3, STATUS+5, STATUS+6, LIST1+1~ , LIST1+2, LIST1+3, SHOW~, SHOW+2, SHOW+5, ADD+1~, ADD1, ADD1+1, DEL+1~, COPY+10 , ALPH+1~, ALPH+2, ALPH+3, SAVE+14, 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, OS+12 , 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, SAVE+16, SAVE+17, MAX+1~, MAX+5* , UPDATE+1~, U1+1, U1+2, U1+6, U2+4
Z	ALPH+1~, ALPH+7*, ALPH+9

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCMB

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: