Routine: ORWDBA83

Package	Total	Call Graph
VA FileMan	2	FIND^DIC ^DIR
Toolkit	1	(ADD,ENVAL)^XPAR

Entry Points

Name	Comments	DBIA/ICR reference
START	;Starting point of this program
EXIT	;Exit point for this program
ALERT	;Alert the user that the selection returned no records.
ASSIGN	;Assign the parameter and enable/disable CIDC functionality
LTE10P	;If search returned a list less then or equal to 10
MT10P	;If search returned more then 10 providers
SETDIR	;Set common values for DIR used by LTE10P and MT10P
SCRHDR	;Screen Header
KILLVAR	;Kill variables to prepare for next look up
KTG	;Kill the temp globals used by this program
LISTA	;Build a list of providers with the parameter already assigned to them.
LISTU	;Build a list of providers who have not been assigned the parameter
FT0	;;FO^1:40
FA	;;Select the provider to assign the parameter
FH1	;;Enter the name/partial name of the provider to assign the parameter.
FH2	;;This is free text, 1 to 40 characters in length.
FH3	;;This search will only return those with the PROVIDER key and who
FH4	;;do not have the CIDC parameter assigned to them.
SCO	;;SO^
SH1	;;Enable Clinical Indicator Data Capture By Provider Parameter Management
SH2	;;Assign and Enable/Disable Parameter By Individual Provider Option
UA1	;;Found no records matching the search criteria of
UA2	;;The reasons for this could be that during the search:
UA3	;; 1. The parameter is already assigned to any provider found.
UA4	;; 2. No providers found.
UA5	;; 3. No records found.
UA6	;;Please try again
M1	;;You have selected
M2	;;to assign the Enable Clinical Indicator Data
M3	;;Capture By Provider parameter to.
PE	;;E:Assign parameter and Enable CIDC for this provider
PD	;;D:Assign parameter and Disable CIDC for this provider
PA	;;Assign the parameter to this provider
PHE	;;Enter E to assign the parameter and enable CIDC for this provider.
PHD	;;Enter D to assign the parameter and disable CIDC for this provider.
D0N	;;N:Next \| providers
D0P	;;P:Previous 10 providers
DH	;;Select the provider who the parameter will be assigned to.
DHN	;;Enter N to get the next \| providers.
DHP	;;Enter P to get the previous 10 providers.
DHS	;;Enter "^" to exit or the Enter key to return to provider lookup.
DA	;;Select the provider to assign the parameter

External References

Name	Field # of Occurrence
FIND^DIC	START+16
^DIR	START+10, ALERT+6, ASSIGN+7, LTE10P+3, MT10P+13
ADD^XPAR	ASSIGN+11
ENVAL^XPAR	LISTA+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$P($T(M1),";",3)," ",NAME," ",$P($T(M2),";",3),!,$P($T(M3),";",3) Line Location: ASSIGN+6
Function Call: WRITE	Prompt: !,$P($T(SH1),";",3),!,$P($T(SH2),";",3),! Line Location: SCRHDR+2
Routine Call	DIC Line Location: START+16
Routine Call	DIR Line Location: START+10 ALERT+6 ASSIGN+7 LTE10P+3 MT10P+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ORPAL"	KTG+1!, LISTA+5, LISTA+6*, LISTU+4
^TMP("ORPUL"	KTG+1!, LISTU+2, LISTU+5, LISTU+6*
^XTV(8989.51 - [#8989.51]	ASSIGN+10, LISTA+3
^XUSEC("PROVIDER"	LISTU+3

Label References

Name	Line Occurrences
ALERT	START+19
ASSIGN	START+21, START+29
D0N	MT10P+7
D0P	MT10P+10
DA	SETDIR+5
DH	SETDIR+3
DHN	MT10P+8
DHP	MT10P+12
DHS	SETDIR+4
EXIT	START+12, START+27
FA	START+5
FH1	START+6
FH2	START+7
FH3	START+8
FH4	START+9
FT0	START+4
KILLVAR	START+28, ALERT+7, ASSIGN+12
KTG	ASSIGN+12
LISTA	ASSIGN+12
LISTU	ASSIGN+12
LTE10P	START+23
M1	ASSIGN+6
M2	ASSIGN+6
M3	ASSIGN+6
MT10P	START+25, MT10P+15
PA	ASSIGN+3
PD	ASSIGN+2
PE	ASSIGN+2
PHE	ASSIGN+4
SCO	ASSIGN+2, SETDIR+2
SCRHDR	START+10, ALERT+6, ASSIGN+5, LTE10P+3, MT10P+13
SETDIR	LTE10P+1, MT10P+1
SH1	SCRHDR+2
SH2	SCRHDR+2
START	START+19, START+21, START+28, START+29
UA1	ALERT+3
UA6	ALERT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	START+1~, MT10P+2, MT10P+4, MT10P+9, MT10P+11, LISTU+1~, LISTU+2, LISTU+5
DIR	START+1~, ALERT+1!, SETDIR+1!, KILLVAR+1!
DIR("?"	START+6, START+7, START+8, START+9, ASSIGN+4, MT10P+11, MT10P+12, SETDIR+3, SETDIR+4*
DIR("A"	START+5, ALERT+3, ALERT+4, ALERT+5, ASSIGN+3, SETDIR+5
DIR(0	START+4, ALERT+2, ASSIGN+2, LTE10P+2, MT10P+5, MT10P+9, MT10P+10, SETDIR+2
DTOUT	START+1~, START+12, ASSIGN+8, LTE10P+4, MT10P+14, KILLVAR+1!
DUOUT	START+1~, START+12, ASSIGN+8, LTE10P+4, MT10P+14, KILLVAR+1!
ENT	START+1~, ASSIGN+9*, ASSIGN+11, KILLVAR+1!
FILE	START+1~, START+13*, START+16, KILLVAR+1!
FLD	START+1~, START+13*, START+16, KILLVAR+1!
FLG	START+1~, START+13*, START+16, KILLVAR+1!
FST	START+1~, START+25, MT10P+3, MT10P+10, MT10P+12, MT10P+15
GBL	LISTA+1~, LISTA+2*, LISTA+4
HC	START+1~, MT10P+2, MT10P+11, MT10P+12*
ID	START+1~, START+13*, START+16, KILLVAR+1!
IEN	START+1~, START+13, START+16, ASSIGN+1, ASSIGN+9, KILLVAR+1!, LISTA+1~, LISTA+5, LISTA+6, LISTU+1~ , LISTU+2, LISTU+3, LISTU+4, LISTU+6
IND	START+1~, START+13*, START+16, KILLVAR+1!
INST	START+1~, ASSIGN+9, ASSIGN+11, KILLVAR+1!, LISTA+1~, LISTA+2, LISTA+4
IOF	SCRHDR+1
LIST	LISTA+1~, LISTA+2*, LISTA+4
NAME	START+1~, ASSIGN+1*, ASSIGN+6, KILLVAR+1!
NUM	START+2~, START+13*, START+16, KILLVAR+1!
NX0	START+2~, MT10P+2, MT10P+7, MT10P+9, KILLVAR+1!
NXC	START+2~, MT10P+2, MT10P+6, MT10P+7, MT10P+8, KILLVAR+1!
NXH	START+2~, MT10P+2, MT10P+8, MT10P+11, KILLVAR+2!
OREM	START+1~, ASSIGN+9*, ASSIGN+11, KILLVAR+1!
ORERR	LISTA+1~, LISTA+2*, LISTA+4
ORSCR	START+2~, START+14*, START+16, KILLVAR+2!
ORSCR("S"	START+15*
PAR	START+2~, ASSIGN+10, ASSIGN+11, LISTA+1~, LISTA+3, LISTA+4
RF	START+2~, KILLVAR+2!
RF("DILIST"	START+17, ASSIGN+1, LTE10P+2, MT10P+3, MT10P+5
RFC	START+2~, START+17*, START+19, START+21, START+23, START+25, LTE10P+2, MT10P+6, KILLVAR+2!
SP	START+2~, START+13, START+21, START+27, START+28, ASSIGN+1, LTE10P+4, LTE10P+5, MT10P+2, MT10P+14 , MT10P+16*, KILLVAR+2!
U	START+17, ASSIGN+1, LTE10P+2, MT10P+5
VAL	START+2~, START+13, START+16, ALERT+3, ASSIGN+9, ASSIGN+11, KILLVAR+2!
X	START+2~, ALERT+4, LTE10P+2, MT10P+2, MT10P+3, MT10P+5, MT10P+6, KILLVAR+2!, LISTA+1~, LISTA+5* , LISTA+6
X1	START+2~, ALERT+1!, ALERT+2, ALERT+4, KILLVAR+2!
Y	START+2~, START+12, START+13, ASSIGN+8, ASSIGN+9, LTE10P+5, MT10P+2*, MT10P+15, MT10P+16, KILLVAR+2!

Marked Items

Name	Field # of Occurrence
$T(@X1	ALERT+4
$T(D0N	MT10P+7
$T(D0P	MT10P+10
$T(DA	SETDIR+5
$T(DH	SETDIR+3
$T(DHN	MT10P+8
$T(DHP	MT10P+12
$T(DHS	SETDIR+4
$T(FA	START+5
$T(FH1	START+6
$T(FH2	START+7
$T(FH3	START+8
$T(FH4	START+9
$T(FT0	START+4
$T(M1	ASSIGN+6
$T(M2	ASSIGN+6
$T(M3	ASSIGN+6
$T(PA	ASSIGN+3
$T(PD	ASSIGN+2
$T(PE	ASSIGN+2
$T(PHE	ASSIGN+4
$T(SCO	ASSIGN+2, SETDIR+2
$T(SH1	SCRHDR+2
$T(SH2	SCRHDR+2
$T(UA1	ALERT+3
$T(UA6	ALERT+5

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORWDBA83

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items