Routine: VENPCCMA

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

Entry Points

Name	Comments	DBIA/ICR reference
CKD
CODE	;
ADD1
S2
S1
U1
U2	;
NEW
EF(EF)	;
SHOW(X)	; DISPLAY THE LIST
EN1	; EP FOR LOOPING THROUGH ALL ICD & PATIENT GROUPS IN A TEMPLATE
NEXT(EF,PRV,PGRP)	;
POS	;
DEL1
COPY(LIST,STAT,TITLE,EF,PRV)	; COPY IN ANOTHER LIST
LST
DEL2
EOJ
LPRV
LIST(EF,PRV,PGRP)	;
STATUS(EF,X)	; SHOW MAX ENTRIES POSSIBLE
CVT	;
ALPH(LIST,TYPE)	; ORDER THE LIST: APLPHABETICAL OR BY CODE
P1
SUBMIT(LIST,EF,PRV,PGRP)	; ENTER THE LIST
PRV(PRV)	;
UPDATE(LIST,STAT)	; EDIT AN ENTRY IN THE LIST
TITLE(EF,PRV,G)	; TITLE OF LIST
PGRP(DFLT)	;
INIT
DEL(LIST,STAT)	; DELETE AN ENTRY
SUB(LIST,EF,PRV,PGRP)	; EP FOR SUBMITTING AN EXTERNALY GENERATED LIST
ADD(LIST,STAT)	; ADD AN ENTRY
NAME	;
RUN
LGRP
LEF
EDIT
SAVE(LIST,EF,PRV,PGRP)	; DELETE THE OLD LIST AND SAVE THE NEW ONE
DEL3
DLOOP
ENT	;
LOOP

External References

Name	Field # of Occurrence
^DIC	EF+5, PRV+5, SAVE+16
WAIT^DICD	SAVE+5
YN^DICN	ENT+6, CKD+2, DEL3+6, COPY+11, S1+6, U2+9
^DIE	SAVE+19, CVT+8
^DIK	SAVE+10
ENALL^DIK	SAVE+8
^DIR	EDIT+5, PGRP+5, POS+3, NAME+1, CODE+1, DEL2+2, S1+10, U1, U1+5, U2+2
$$WAIT^VENPCCU	SHOW+6
^XBFMK	EOJ

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 FOR DIAGNOSES ***" 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+5
Function Call: WRITE	Prompt: I,?5,NAME," ",CODE Line Location: SHOW+7
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: !,HELP Line Location: DEL2+7
Function Call: WRITE	Prompt: !,"Select a number between 1 and ",$P(STAT,U,2) Line Location: CKD+0
Function Call: WRITE	Prompt: !,"Sure you want to delete "_$S(Y=+Y:$P($P(LIST,U,POS),";"),Y["-":Y,1:"ALL") Line Location: CKD+1
Function Call: WRITE	Prompt: !," Deleting ",ITEM Line Location: DEL3+1
Function Call: WRITE	Prompt: !!,"Want to delete another entry" Line Location: DEL3+5
Function Call: WRITE	Prompt: !,"Enter name of provider to copy from =>" Line Location: COPY+2
Function Call: WRITE	Prompt: !!,"Define the Patient Group to copy from =>" Line Location: COPY+4
Function Call: WRITE	Prompt: !,"Unable to copy because no entries found!" Line Location: COPY+6
Function Call: WRITE	Prompt: !,CTITLE Line Location: COPY+8
Function Call: WRITE	Prompt: ! Line Location: COPY+9
Function Call: WRITE	Prompt: !,"OK to copy non-redundant entries from this list" Line Location: COPY+10
Function Call: WRITE	Prompt: !!,"Target list: ",TITLE Line Location: COPY+13
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 you want to submit this list" Line Location: S1+5
Function Call: WRITE	Prompt: !,"Invalid parameters. No changes made. Contact site manager)" Line Location: SAVE+2
Function Call: WRITE	Prompt: !,"Changes are now in effect..." Line Location: EOJ+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 CVT+8
Routine Call	DIC Line Location: EF+5 PRV+5 SAVE+16
Routine Call	DIR Line Location: EDIT+5 PGRP+5 POS+3 NAME+1 CODE+1 DEL2+2 S1+10 U1 U1+5 U2+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.1 - [#19707.1]	Classic Fileman Calls
^VEN(7.41 - [#19707.41]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	SAVE+1
^VEN(7.1 - [#19707.1]	LIST+3, LIST+4, SAVE+10, SAVE+18, SAVE+19, CVT+2, CVT+3, CVT+8
^VEN(7.41 - [#19707.41]	STATUS+4, S1+2, SAVE+1
^VEN(7.91 - [#19707.91]	CVT+5

Label References

Name	Line Occurrences
$$ADD	EDIT+8
$$ALPH	S2, S2+1
$$COPY	EDIT+10
$$DEL	EDIT+9
$$EF	LEF, NEXT+2, NEXT+5
$$LIST	LST, COPY+6
$$NEXT	LOOP
$$PGRP	LGRP, COPY+5, NEXT+7
$$PRV	LPRV, COPY+3, NEXT+6
$$STATUS	EDIT
$$SUBMIT	EDIT+12
$$TITLE	LST+1, COPY+7
$$UPDATE	EDIT+11
ADD1	ENT+7
CKD	DEL2+4, DEL2+5
CODE	NAME+2
DEL1	DEL3+4, DEL3+8
DEL2	DEL2+7, CKD, CKD+3
DEL3	DLOOP+1, DLOOP+2
DLOOP	DEL3+2
EDIT	EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12
LOOP	EDIT+7
LPRV	EDIT+13
LST	LOOP
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+7, COPY+9, 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~, PRV+1~, PGRP+1~, PGRP+4, ADD+1~, ENT+2, ENT+3, ENT+5* , ENT+6, DEL+1~, DEL1, DEL1+1, CKD+2, CKD+3, DEL3, DEL3+5, DEL3+6, COPY+11 , S1~, S1+2, S1+6, S1+7, SAVE+3~, SAVE+6, SAVE+7, SAVE+13, SAVE+14, EOJ+2* , UPDATE+1~, U2+8*, U2+9
%Y	NEW~, SAVE+3~
CIEN	NEXT+1~
CLIST	COPY+1~, COPY+6*, COPY+9, COPY+12
CNT	DEL+1~, CKD+4, DEL3+2, DEL3+3!
CODE	LIST+1~, LIST+5, LIST+7, SHOW+1~, SHOW+5, SHOW+7, ADD+1~, CODE+1, CODE+3, ENT+1 , ENT+2, S1~, S1+7, S1+8, ALPH+1~, ALPH+5, ALPH+6, ALPH+7, SAVE+3~, SAVE+14* , SAVE+17, UPDATE+1~, U2+1, U2+4, U2+5
CTAG	SAVE+3~
CTITLE	COPY+1~, COPY+7*, COPY+8
D	SAVE+3~
D0	SAVE+3~
DA	EDIT+5!, PGRP+5!, POS+3!, NAME+1!, CODE+1!, DEL2!, S1+10!, SAVE+3~, SAVE+10, SAVE+17 , SAVE+18, SAVE+19, U1!, CVT+1, CVT+2, CVT+3, CVT+8
DFLT	PGRP~, PGRP+4
DI	SAVE+3~
DIC	EF+1~, EF+2, PRV+1~, PRV+2, PGRP+1~, ADD+1~, SAVE+3~, SAVE+11*
DIC("A"	EF+3, PRV+3
DIC("B"	EF+4, PRV+4
DIC(0	EF+2, PRV+2, SAVE+11*
DICR	SAVE+3~
DIE	SAVE+3~, SAVE+11, CVT+1
DIG	SAVE+3~
DIH	SAVE+3~
DIK	SAVE+3~, SAVE+8!, SAVE+9, SAVE+11
DIK(1	SAVE+8*
DIR	EDIT+5!, PGRP+2~, PGRP+5!, POS+3!, NAME+1!, CODE+1!, DEL2+2!, S1~, S1+10!, UPDATE+1~ , U1!, U1+5!, U2+2!
DIR("?"	DEL2+1*
DIR("A"	EDIT+5, PGRP+5, 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, PGRP+4, POS+3, NAME+1, CODE+1, DEL2, S1+8, S1+9* , U1, U1+4, U2+1*
DIROUT	POS+4!
DIRUT	NEW~, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, DEL+1~, CKD+2, 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+3~, SAVE+11*
DQ	SAVE+3~
DR	SAVE+3~, SAVE+17, CVT+7
DTOUT	NEW~, EDIT+6, PGRP+2~, ADD+1~, POS+4!, NAME+2, NAME+3!, CODE+2, DEL+1~, CKD+2 , 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	SAVE+4
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+6, COPY+7, SUB~ , SUBMIT~, S1+2, S2, S2+1, S2+2, SAVE~, SAVE+1, NEXT~, NEXT+2, NEXT+4 , NEXT+5*, NEXT+8
EFLAG	SUB+1~*, S1+1
ENT	ALPH+1~, ALPH+13, ALPH+14, ALPH+15
ENTRY	UPDATE+1~, U1+3, U1+4, U2+1, U2+5, U2+6
G	TITLE~
HDR	LIST+1~, SAVE+3~
>> HELP	DEL2+1*, DEL2+7
I	SHOW+1~, SHOW+2, SHOW+3, SHOW+4, SHOW+6, SHOW+7, COPY+1~, COPY+12, ALPH+1~, ALPH+4* , ALPH+6, ALPH+7, ALPH+9, ALPH+11, ALPH+15
INDX	LIST+1~, LIST+2*, LIST+3
IOF	RUN
ITEM	DEL+1~, DLOOP*, DEL3+1, DEL3+3!
IX	SAVE+3~, SAVE+9*, SAVE+10
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+3, CKD+1, CKD+2, DLOOP, DLOOP+1, DLOOP+2, DLOOP+3, DEL3+4, DEL3+6 , DEL3+7, COPY~, COPY+3, COPY+5, COPY+6, COPY+11, COPY+12, COPY+14, SUB~, SUBMIT~ , S1+2, S1+7, S2, S2+1, S2+2, ALPH~, ALPH+2, ALPH+4, SAVE~, SAVE+1 , SAVE+12, SAVE+13, UPDATE~, U1+1, U1+3, U1+7, U2+3, U2+6*, U2+7, U2+9
LIST(	ALPH+6, ALPH+7, ALPH+10, ALPH+12
LOOP	NEW+1~, LOOP, EDIT+7, EN1+1~
MAX	STATUS+1~, STATUS+4*, STATUS+5, STATUS+6
MN	SAVE+3~
NAME	LIST+1~, LIST+5, LIST+7, SHOW+1~, SHOW+5, SHOW+7, ADD+1~, NAME+2, ENT+1, ENT+2 , SAVE+14, SAVE+17, NEXT+1~, UPDATE+1~, U1+6*, U2+5
NARR	ALPH+1~, ALPH+5*, ALPH+6, ALPH+7
PCE	SAVE+3~, SAVE+12*, SAVE+13
PGRP	NEW~, INIT, LOOP, LGRP, LST, LST+1, EDIT+12, TITLE+1, LIST~, LIST+2 , COPY+1~, COPY+5, COPY+6, COPY+7, SUB~, SUBMIT~, S2, S2+1, S2+2, SAVE~ , SAVE+1, SAVE+9, SAVE+17, NEXT~, NEXT+3, NEXT+4, NEXT+7, NEXT+8
POS	ADD+1~, POS+1, POS+3, P1, P1+1, ENT+1, ENT+2, DEL+1~, DEL2+4, DEL2+5* , DEL2+6, DEL2+7, CKD!, CKD+1, CKD+4, DLOOP, DLOOP+1, DLOOP+2, DLOOP+3, DEL3+3! , UPDATE+1~, U1+2, U1+3, U2+6
POS(1	DEL2+5, DEL2+6, CKD, CKD+4, DEL3+2
PRV	NEW~, INIT, LOOP, LPRV, LST, LST+1, EDIT+10, EDIT+12, PRV~, PRV+4 , TITLE~, TITLE+1, LIST~, LIST+2, COPY~, SUB~, SUBMIT~, S2, S2+1, S2+2 , SAVE~, SAVE+1, SAVE+9, SAVE+15, NEXT~, NEXT+4, NEXT+6, NEXT+8
>> PRV1	COPY+3*, COPY+6, COPY+7
REC	LIST+1~, LIST+2, LIST+6, LIST+7*, LIST+9
SIEN	LIST+1~, LIST+2, LIST+3, LIST+4
STAT	ADD~, ADD1, P1, P1+1, ENT+3, DEL~, DEL1, DEL1+1, DEL2+5, CKD , DLOOP+1, DEL3, COPY~, UPDATE~, U1
STATUS	NEW~, EDIT*, EDIT+8, EDIT+9, EDIT+10, EDIT+11
STG	ALPH+1~, ALPH+9, ALPH+15, ALPH+17
STOP	SHOW+1~, SHOW+2, SHOW+6*
TITLE	NEW~, LST+1*, EDIT+1, EDIT+10, COPY~, COPY+13, S1+3
TOT	DEL+1~, CKD+4*, DEL3+2, DEL3+3!
TYPE	ALPH~, ALPH+3, ALPH+6, ALPH+7, ALPH+13, ALPH+14
U	EDIT, EDIT+6, EF+4, PRV+4, PGRP+4, PGRP+7, STATUS+2, STATUS+4, STATUS+6, TITLE+1 , LIST+5, LIST+6, SHOW+2, SHOW+3, ADD1, P1, P1+1, ENT+1, ENT+2, ENT+3 , DEL1, DEL1+1, DEL2+5, CKD, CKD+1, DLOOP, DLOOP+1, DLOOP+2, DLOOP+3, DEL3 , COPY+12, S1+2, S1+7, ALPH+4, ALPH+15, SAVE+12, SAVE+13, U1, U1+3, U2+6 , CVT+3, CVT+5
VENDUZ0	SAVE+3~, SAVE+4*, EOJ+2
X	NEW~, EF+1~, PRV+1~, PGRP+1~, STATUS~, STATUS+2, STATUS+3, STATUS+5, STATUS+6, LIST+1~ , LIST+4, LIST+5, SHOW~, SHOW+2, SHOW+3, ADD+1~, ADD1, ADD1+1, DEL+1~, COPY+12 , ALPH+1~, ALPH+4, ALPH+5, ALPH+12, ALPH+13, ALPH+14, SAVE+15, UPDATE+1~, CVT+3, CVT+4 , CVT+5
Y	NEW~, EDIT+6, EDIT+7, EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12, EDIT+13, EF+1~ , EF+5, EF+6, PRV+1~, PRV+5, PRV+6, PGRP+1~, PGRP+6, PGRP+7, SHOW+1~, SHOW+3* , SHOW+4, SHOW+5, ADD+1~, POS+3, NAME+2, CODE+3, DEL+1~, DEL2+3, DEL2+4, DEL2+5* , DEL2+6, CKD+1, S1~, S1+1, S2, S2+1, S2+2, ALPH+1~, ALPH+10, ALPH+12 , ALPH+13, ALPH+14, SAVE+16, SAVE+17, UPDATE+1~, U1+1, U1+2, U1+6, U2+4, CVT+5* , CVT+6
Y(0	PGRP+7
Z	ALPH+1~, ALPH+10, ALPH+12, CVT+6, CVT+7

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCMA

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: