Routine: VENPCCMG

Package	Total	Call Graph
VA Fileman	4	^DIC WAIT^DICD YN^DICN ^DIR
Kernel	2	^%ZIS ^%ZISC
IHS VA Utilities	1	^XBFMK
PCC New Encounter Form	1	$$ICD^VENPCCU

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCC1P

Entry Points

Name	Comments	DBIA/ICR reference
VUE	; EP-PRINT ALL ICDS AND ASSOCIATED NARRATIVES AND FORMS
RUN	; MAKE CHANGES
LINIT
CHG(PIEN)	; EP-EDIT THE FILE
PROV	; GET PROVIDER NAME
LIST	; EP-PRINT ICD LIST
NOQUE
NARR	; CHANGE NARRATIVE
INTRO
NCHG(PIEN)	; EP-GLOBAL EDIT OF EDIT THE NEW ICD PREF FILE
NEW
LINE	; PAUSE IF NECESSARY
ICD	; CHANGE ICD CODE
FIN
OUT	; OUTPUT USING %ZIS

External References

Name	Field # of Occurrence
^%ZIS	OUT+2
^%ZISC	NOQUE+1
^DIC	PROV+6, ICD+2, ICD+7
WAIT^DICD	VUE+6
YN^DICN	RUN+4, VUE+5
^DIR	NARR+2, NARR+7
$$ICD^VENPCCU	VUE+21
^XBFMK	FIN

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"GLOBAL CHANGE OF SPECIFIED ICD CODES AND NARRATIVES FOR ONE OR MORE PROVIDERS",!!! Line Location: INTRO+0
Function Call: WRITE	Prompt: !,"Enter the name of the provider or '*' for ALL: " Line Location: PROV+1
Function Call: READ	Timeout: $G(DTIME,60) Variable: NAME Line Location: PROV+2
Function Call: WRITE	Prompt: ! Line Location: RUN+1
Function Call: WRITE	Prompt: !,OLDICD," will be changed to ",NEWICD Line Location: RUN+2
Function Call: WRITE	Prompt: !,OLDNAR," will be changed to ",NEWNAR Line Location: RUN+3
Function Call: WRITE	Prompt: !!,"Making changes..." Line Location: RUN+5
Function Call: WRITE	Prompt: !,"Request cancelled!" Line Location: RUN+6
Function Call: WRITE	Prompt: !,"Done!" Line Location: FIN+1
Function Call: WRITE	Prompt: "." Line Location: CHG+7
Function Call: WRITE	Prompt: "." Line Location: CHG+9
Function Call: WRITE	Prompt: "." Line Location: NCHG+5
Function Call: WRITE	Prompt: "." Line Location: NCHG+7
Function Call: WRITE	Prompt: !,"Want to generate a current list of ICD preferences for this site" Line Location: VUE+4
Function Call: WRITE	Prompt: !! Line Location: VUE+6
Function Call: WRITE	Prompt: !!,"Done!!" Line Location: NOQUE+2
Function Call: WRITE	Prompt: "LIST ALL ICD PREFERENCES AND ASSOCIATED PROVIDER NARRATIVE(S)" Line Location: LINIT+1
Function Call: WRITE	Prompt: " (",Y,")",!! Line Location: LINIT+3
Function Call: WRITE	Prompt: "ICD",?7,"ICD NARRATIVE",?35,"PROVIDER NARRATIVE" Line Location: LINIT+4
Function Call: WRITE	Prompt: "------",?7,"--------------------------",?35,"----------------------------------" Line Location: LINIT+5
Function Call: WRITE	Prompt: ICD,?7,$E(TXT,1,27),?35,NARR Line Location: LINIT+9
Function Call: WRITE	Prompt: ! Line Location: LINE+2
Function Call: READ	Timeout: $G(DTIME,60) Variable: X Line Location: LINE+8
Function Call: WRITE	Prompt: "<>" Line Location: LINE+8
Function Call: WRITE	Prompt: $C(13),?79,$C(13) Line Location: LINE+10
Routine Call	DIC Line Location: PROV+6 ICD+2 ICD+7
Routine Call	DIR Line Location: NARR+2 NARR+7
Routine Call	%ZIS Line Location: OUT+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LINIT+3
^ICD9 - [#80]	VUE+22
^VEN(	VUE+9, VUE+10
^VEN(7.1 - [#19707.1]	RUN+10, CHG+2, CHG+5!, CHG+6, CHG+10
^VEN(7.34 - [#19707.34]	RUN+9, NCHG+2, NCHG+8*, VUE+15

Label References

Name	Line Occurrences
CHG	RUN+8, RUN+10
FIN	RUN+7, RUN+8
ICD	PROV+4
LINE	LINIT+1, LINIT+4, LINIT+5, LINIT+9
LIST	NOQUE
NARR	ICD+3
NCHG	RUN+7, RUN+9
RUN	NARR+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW~, RUN+4, VUE+1~, VUE+5
%Y	NEW~, VUE+1~
>> %ZIS	OUT+1*
AICDWD2	NEW~
CIEN	CHG+1~, CHG+2, CHG+5, CHG+6, CHG+10, NCHG+1~, NCHG+2, NCHG+8, VUE+1~, VUE+14* , VUE+15, VUE+18, VUE+19*, VUE+23
CLASS	VUE+1~
CODE	VUE+1~
DA	NARR+1!, NARR+6!, CHG+1~, NCHG+1~
DIC	NEW~, PROV+6!, ICD+1
DIC("A"	ICD+1, ICD+6
DIC("S"	PROV+5*
DIC(0	PROV+6, ICD+1
DIK	CHG+1~, NCHG+1~
DIR	NARR+2!, NARR+7!, OUT+3!, NOQUE+3!
DIR("A"	NARR+1, NARR+6
DIR(0	NARR+1, NARR+6
>> DIROUT	NARR+4, NARR+8
DIRUT	OUT+3!, NOQUE+3!
DO	NEW~
DT	LINIT+2
DTIME	PROV+2, LINE+8
DTOUT	NARR+4, NARR+8, OUT+3!, NOQUE+3!
DUOUT	NARR+4, NARR+8, OUT+3!, NOQUE+3!
I	VUE+1~, VUE+15*, VUE+16, VUE+19
ICD	VUE+1~, VUE+12, VUE+21, VUE+23, LIST+4~, LINIT+6, LINIT+7, LINIT+9
IEN	VUE+1~, VUE+8, VUE+9, VUE+10, VUE+15
IIEN	VUE+1~, VUE+21*, VUE+22
IOST	LINE+3, LINE+4
IPC	VUE+1~, VUE+2, VUE+3, VUE+12
LINE	LIST+4~, LINIT, LINE+5, LINE+6, LINE+7*
NAME	NEW~, PROV+2*, PROV+3, PROV+4, PROV+6
NARR	VUE+1~, VUE+13, VUE+23, LIST+4~, LINIT+6, LINIT+7, LINIT+9
>> NEWFLAG	RUN+7, RUN+9, VUE+3, VUE+14, VUE+15
NEWICD	NEW~, ICD+8*, RUN+2, CHG+4, CHG+6, NCHG+4
NEWNAR	NEW~, NARR+9*, RUN+3, CHG+9, NCHG+7
NPC	VUE+1~, VUE+2, VUE+3, VUE+13
OLDICD	NEW~, ICD+5*, RUN+2, RUN+6, CHG+3, CHG+5, NCHG+3
OLDNAR	NEW~, NARR+5*, RUN+3, RUN+6, CHG+9, NCHG+7
PIEN	NEW~, RUN+9, RUN+10, CHG~, CHG+2, NCHG~, NCHG+2, VUE+1~, VUE+11*, VUE+23
PNAME	VUE+1~
>> POP	OUT+3
PROV	NEW~, PROV+4, PROV+8, RUN+7, RUN+8, RUN+9, RUN+10
SS	VUE+1~, VUE+2, VUE+3, VUE+9, VUE+10
STG	CHG+1~, CHG+2, CHG+3, CHG+4, CHG+9, CHG+10, NCHG+1~, NCHG+2, NCHG+3, NCHG+4* , NCHG+7*, NCHG+8
STOP	LIST+4~, LINIT+6, LINE+9*
TMP	VUE+1~, VUE+7, VUE+23, LIST+4~, LINIT, LINIT+6, LINIT+7, LINIT+11
TXT	VUE+1~, VUE+22, VUE+23, LIST+4~, LINIT+8, LINIT+9
U	ICD+5, ICD+8, CHG+3, CHG+4, CHG+9, NCHG+3, NCHG+4, NCHG+7, VUE+12, VUE+13 , VUE+14, VUE+16, VUE+19, VUE+22, VUE+23, LINIT+8
VENJ	VUE+1~, VUE+8*, LIST+3, LINIT
X	NEW~, PROV+6, ICD+3, VUE+1~, VUE+10, VUE+11, VUE+12, VUE+13, VUE+14, OUT+3! , NOQUE+3!, LIST+4~, LINIT+7, LINIT+8, LINE+1~, LINE+8, LINE+9
Y	NEW~, PROV+7, PROV+8, ICD+4, ICD+5, ICD+7, ICD+8, NARR+3, NARR+5, NARR+9 , VUE+1~, VUE+15, VUE+16, OUT+3!, NOQUE+3!, LIST+4~, LINIT+2, LINIT+3
Z	VUE+1~, VUE+15, VUE+16, VUE+17
>> ZDTTH	LINIT+2

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCMG

Information

Source Information

Call Graph

Call Graph Total: 8

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: