Routine: APCDSWM

Package	Total	Call Graph
VA Fileman	3	^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBNEW
Patient Care Component	1	EIE^APCDBMI

Entry Points

Name	Comments	DBIA/ICR reference
EN0COAG	;
SELECTM	;
EN	;
ENCOAG	;
MODQUAL	;
COAGERR(APCDSWDA)	;EP
SELECTC	;
EN0	;
ENTINERR(APCDSWDA)	;EP
EPLKW	;EP
EPCOAG	;EP
EP	;EP

External References

Name	Field # of Occurrence
EIE^APCDBMI	ENTINERR+10
^DIE	ENTINERR+8, MODQUAL+3, COAGERR+7
$$GET1^DIQ	ENTINERR+9
^DIR	SELECTM+10, SELECTM+19, SELECTC+11, SELECTC+20
$$VAL^XBDIQ1	EN0+10, SELECTM+6, SELECTM+7, SELECTM+18, EN0COAG+8, EN0COAG+9, SELECTC+6, SELECTC+7, SELECTC+19
EN^XBNEW	EP+1, EPCOAG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please Note: You are NOT permitted to modify or delete a measurement." Line Location: EN0+1
Function Call: WRITE	Prompt: !,"A measurement must be marked as 'entered in error' and then re-entered " Line Location: EN0+2
Function Call: WRITE	Prompt: !,"through Add or Append mode of PCC data entry." Line Location: EN0+3
Function Call: WRITE	Prompt: !!,"There are no ",$S($G(APCDSWMV)]"":APCDSWMV_" ",1:""),"measurements on this visit." Line Location: EN0+15
Function Call: WRITE	Prompt: !,"Please choose which measurement you would like to mark 'Entered in Error'," Line Location: SELECTM+2
Function Call: WRITE	Prompt: !,"if you do not wish to mark any in error, simply press 'enter' to bypass." Line Location: SELECTM+3
Function Call: WRITE	Prompt: !,"Invalid response. Please enter a number from 1 to ",APCDSWT," or N." Line Location: SELECTM+14
Function Call: WRITE	Prompt: !,"You have selected: ",$$VAL^XBDIQ1(9000010.01,APCDSWDA,.01)," Value: ",$$VAL^XBDIQ1(9000010.01,APCDSWDA,.04) Line Location: SELECTM+18
Function Call: WRITE	Prompt: !!,"invalid v measurement...." Line Location: ENTINERR+2
Function Call: WRITE	Prompt: !,"Please enter the reason the measurement was entered in error. Choices are:" Line Location: ENTINERR+3
Function Call: WRITE	Prompt: !?10,"1 INCORRECT DATE/TIME" Line Location: ENTINERR+4
Function Call: WRITE	Prompt: !?10,"2 INCORRECT READING" Line Location: ENTINERR+5
Function Call: WRITE	Prompt: !?10,"3 INCORRECT PATIENT" Line Location: ENTINERR+6
Function Call: WRITE	Prompt: !?10,"4 INVALID RECORD" Line Location: ENTINERR+7
Function Call: WRITE	Prompt: !!,"invalid v measurement...." Line Location: MODQUAL+2
Function Call: WRITE	Prompt: !!,"Please Note: You are NOT permitted to edit/delete an Anti-Coagulation entry." Line Location: EN0COAG+1
Function Call: WRITE	Prompt: !,"It can only marked as 'entered in error'." Line Location: EN0COAG+2
Function Call: WRITE	Prompt: !!,"There are no ",$S($G(APCDSWMV)]"":APCDSWMV_" ",1:""),"Anti-Coag entries on this visit." Line Location: EN0COAG+13
Function Call: WRITE	Prompt: !,"Please choose which anti-coagulation entry you would like to mark 'Entered" Line Location: SELECTC+2
Function Call: WRITE	Prompt: !,"in Error',if you do not wish to mark any in error, simply press 'enter' to ",!,"bypass." Line Location: SELECTC+3
Function Call: WRITE	Prompt: ! Line Location: SELECTC+10
Function Call: WRITE	Prompt: !,"Invalid response. Please enter a number from 1 to ",APCDSWT," or N." Line Location: SELECTC+15
Function Call: WRITE	Prompt: !,"You have selected: ",$$VAL^XBDIQ1(9000010.51,APCDSWDA,.01)," INR GOAL: ",$$VAL^XBDIQ1(9000010.51,APCDSWDA,.04) Line Location: SELECTC+19
Function Call: WRITE	Prompt: !!,"invalid v anti-coagt...." Line Location: COAGERR+2
Function Call: WRITE	Prompt: !,"Please enter the reason the entry was entered in error. Choices are:" Line Location: COAGERR+3
Function Call: WRITE	Prompt: !?10,"D DUPLICATE" Line Location: COAGERR+4
Function Call: WRITE	Prompt: !?10,"E ENTERED IN ERROR" Line Location: COAGERR+5
Function Call: WRITE	Prompt: !?10,"O OTHER" Line Location: COAGERR+6
Routine Call	DIE Line Location: ENTINERR+8 MODQUAL+3 COAGERR+7
Routine Call	DIR Line Location: SELECTM+10 SELECTM+19 SELECTC+11 SELECTC+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVMSR - [#9000010.01]	Classic Fileman Calls, GET1^DIQ
^AUPNVACG - [#9000010.51]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVACG - [#9000010.51]	EN0COAG+7, COAGERR+2
^AUPNVACG("AD"	EN0COAG+6
^AUPNVMSR - [#9000010.01]	EN0+9, ENTINERR+2, MODQUAL+2
^AUPNVMSR("AD"	EN0+8

Label References

Name	Line Occurrences
COAGERR	SELECTC+23
ENTINERR	SELECTM+22
EP	EPLKW+3
SELECTC	EN0COAG+14
SELECTM	EN0+16, SELECTM+14, SELECTC+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCDSWA	EN+1~, EN0+6!, EN0+15, ENCOAG+1~, EN0COAG+5!, EN0COAG+13
APCDSWA(	EN0+14, SELECTM+4, SELECTM+5, SELECTM+14, SELECTM+16, EN0COAG+12, SELECTC+4, SELECTC+5, SELECTC+15, SELECTC+17
APCDSWAN	EN+1~, ENCOAG+1~
APCDSWCT	EN+1~, EN0+5, EN0+13, EN0+14, ENCOAG+1~, EN0COAG+4, EN0COAG+11, EN0COAG+12
APCDSWDA	EN+1~, EN0+8, EN0+9, EN0+10, EN0+14, SELECTM+5, SELECTM+6, SELECTM+7, SELECTM+16, SELECTM+18 , SELECTM+22, ENTINERR~, ENTINERR+1, ENTINERR+2, ENTINERR+8, ENTINERR+9, ENTINERR+10, MODQUAL+1, MODQUAL+2, MODQUAL+3 , ENCOAG+1~, EN0COAG+6, EN0COAG+7, EN0COAG+8, EN0COAG+9, EN0COAG+12, SELECTC+5, SELECTC+6, SELECTC+7, SELECTC+17 , SELECTC+19, SELECTC+23, COAGERR~, COAGERR+1, COAGERR+2, COAGERR+7
APCDSWI	EN+1~, SELECTM+15, ENCOAG+1~, SELECTC+16
APCDSWMT	EPLKW+1~, EPLKW+2*, EN0+12, EN0COAG+10
APCDSWMV	EPLKW+4!, EN+1~, EN0+15, ENCOAG+1~, EN0COAG+13
APCDSWT	EN+1~, SELECTM+4, SELECTM+5, SELECTM+10, SELECTM+14, ENCOAG+1~, SELECTC+4, SELECTC+5, SELECTC+11, SELECTC+15
APCDSWX	EN+1~, SELECTM+4, SELECTM+5, SELECTM+8, ENCOAG+1~, SELECTC+4, SELECTC+5, SELECTC+8
APCDVM01	EN+1~, EN0+10, EN0+12, SELECTM+6, SELECTM+8, ENCOAG+1~, EN0COAG+8, EN0COAG+10, SELECTC+6, SELECTC+8
APCDVM04	EN+1~, SELECTM+7, SELECTM+8, ENCOAG+1~, EN0COAG+9, SELECTC+7*, SELECTC+8
>> APCDVSIT	EN0+8, EN0COAG+6
DA	SELECTM+10!, SELECTM+19!, ENTINERR+8!, MODQUAL+3!, SELECTC+11!, SELECTC+20!, COAGERR+7*!
DIE	ENTINERR+8!, MODQUAL+3!, COAGERR+7*!
DIE("NO^"	ENTINERR+8, COAGERR+7
DIR	EN+2~, SELECTM+9!, SELECTM+10!, SELECTM+17!, SELECTM+19!, ENCOAG+2~, SELECTC+9!, SELECTC+11!, SELECTC+18!, SELECTC+20!
DIR("?"	SELECTM+10, SELECTC+11
DIR("A"	SELECTM+10, SELECTM+19, SELECTC+11, SELECTC+20
DIR("B"	SELECTM+19, SELECTC+20
DIR(0	SELECTM+10, SELECTM+19, SELECTC+11, SELECTC+20
>> DIRUT	SELECTM+11, SELECTM+21, SELECTC+12, SELECTC+22
DR	ENTINERR+8!, MODQUAL+3!, COAGERR+7*!
>> T	ENTINERR+9*, ENTINERR+10
U	EN0+9, EN0COAG+7
X	EN+2~, SELECTM+12, SELECTM+14, SELECTM+16, ENCOAG+2~, SELECTC+13, SELECTC+15, SELECTC+17
Y	EN+2~, SELECTM+13, SELECTM+15, SELECTM+20, ENCOAG+2~, SELECTC+14, SELECTC+16, SELECTC+21

Customize PDF page

Package: Patient Care Component

Routine: APCDSWM

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: