Routine: ORLP01

Information

ORLP01 ; SLC/MKB,CLA - Edit Patient Lists cont ; 20 Sep 2005 1:05 PM

Source Information

Source file <ORLP01.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	4	(,DD)^%DT ^DIC MIX^DIC1 ^DIR
Order Entry Results Reporting	3	PR1^ORLA1 (ASK,END,PREF,SEQ)^ORLP0 $$CLINERR^ORQRY01
Scheduling	1	GETPLIST^SDAMA202

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Order Entry Results Reporting	5	ORLP ADD CLINIC ORLP ADD PROVIDER ORLP ADD SPECIALTY ORLP ADD WARD ORLP00

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;Hospital Location Look-up For Clinics ; Copied from ORUTL and modified by PKS.
P1	;
PROV	;from ASKPT^ORLP00, option ORLP ADD PROVIDER - Add provider's patients to list, display # of patients added if not TEAM list
S1	;
W1	;
CLIN	;from ASKPT^ORLP, option ORLP ADD CLINIC - Add clinic's patients to list, display # of patients added if not TEAM list
WARD	;from ASKPT^ORLP00, option ORLP ADD WARD - Add ward's patients to list, display # of patients added if not TEAM list
C1	; DBIA 3869
SPEC	; from ASKPT^ORLP00, option ORLP ADD SPECIALTY - Add treating specialty's patients to list, display # of patients added if not TEAM list

External References

Name	Field # of Occurrence
^%DT	C1+12, C1+19
DD^%DT	C1+15
^DIC	S1+3, W1+5, LOC+6
MIX^DIC1	P1+6
^DIR	P1+21
PR1^ORLA1	P1+28, P1+29, S1+10, W1+12, C1+35
ASK^ORLP0	PROV+1, SPEC+1, WARD+1, CLIN+1
END^ORLP0	PROV+5, SPEC+5, WARD+5, CLIN+5
PREF^ORLP0	P1+27, S1+9, W1+11, C1+24
SEQ^ORLP0	PROV+6, SPEC+6, WARD+6, CLIN+6
$$CLINERR^ORQRY01	C1+29
GETPLIST^SDAMA202	C1+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No patients found for this provider!" Line Location: P1+25
Function Call: WRITE	Prompt: !!,"Working..." Line Location: P1+26
Function Call: WRITE	Prompt: !!,"No patients found for this treating specialty!" Line Location: S1+7
Function Call: WRITE	Prompt: !!,"Working..." Line Location: S1+8
Function Call: WRITE	Prompt: !!,"No Patients found on ward!" Line Location: W1+9
Function Call: WRITE	Prompt: !!,"Working..." Line Location: W1+10
Function Call: WRITE	Prompt: !,"Working..." Line Location: C1+23
Function Call: WRITE	Prompt: !,ORERR Line Location: C1+30
Function Call: WRITE	Prompt: *7,!,"No patients found!" Line Location: C1+37
Function Call: WRITE	Prompt: $C(7),!," This location has been inactivated.",! Line Location: LOC+9
Routine Call	DIC Line Location: S1+3 W1+5 LOC+6
Routine Call	DIR Line Location: P1+21

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(42 - [#42]	Classic Fileman Calls
^DIC(45.7 - [#45.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT("AAP"	P1+25, P1+29
^DPT("APR"	P1+25, P1+28
^DPT("ATR"	S1+7, S1+10
^DPT("CN"	W1+9, W1+12
^SC - [#44]	LOC+8
^TMP($J	C1+27!, C1+32, C1+33, C1+34, C1+36!
^XUTL("OR"	PROV+3, SPEC+3, WARD+3, CLIN+3, C1+37

Label References

Name	Line Occurrences
C1	CLIN+4
LOC	C1+4, LOC+9
P1	PROV+4
S1	SPEC+4
W1	WARD+4

Naked Globals

Name	Field # of Occurrence
^("I"	LOC+8
^(0	PROV+3, SPEC+3, WARD+3, CLIN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	C1+10, C1+17
>> %DT("A"	C1+11, C1+18
>> %DT("B"	C1+11, C1+18
>> D	P1+2*
DIC	P1+1!, P1+2, P1+7!, S1+1!, S1+2, S1+5!, W1+1!, W1+2, W1+7!, C1+1! , C1+5!, LOC+2~, LOC+3
DIC("A"	P1+2, S1+2, C1+2*
DIC("S"	P1+4, W1+4, C1+3, LOC+5
DIC(0	P1+2, S1+2, W1+2, LOC+3
DIR	P1+5~
DIR("?"	P1+13, P1+14, P1+15, P1+16, P1+17, P1+18, P1+19, P1+20
DIR("A"	P1+12*
DIR("B"	P1+12*
DIR(0	P1+12*
>> DIRUT	P1+11
DT	LOC+9
>> DUOUT	PROV+5, SPEC+5, WARD+5, CLIN+5
>> ORCEND	C1+2, C1+16, C1+17, C1+18, C1+21, C1+22*, C1+28
>> ORCLIN	C1+2, C1+8, C1+28
ORCNT	PROV+3, PROV+4, PROV+5!, SPEC+3, SPEC+4, SPEC+5, WARD+3, WARD+4, WARD+5, CLIN+3 , CLIN+4, CLIN+5, C1+30*
>> ORCSTRT	C1+2, C1+9, C1+10, C1+11, C1+14, C1+22*, C1+25, C1+28
>> ORCT	PROV+4, SPEC+4, WARD+4, CLIN+4, C1+2*
ORCTMP	C1+22*!
>> ORDEF	C1+8*
>> OREND	C1+13, C1+20
ORERR	C1+26~, C1+29*, C1+30
ORI	P1+29, C1+26~, C1+31, C1+32*, C1+33, C1+34
ORIA	LOC+2~, LOC+8*, LOC+9
>> ORJ	P1+28, P1+29, S1+10, W1+12, C1+25, C1+33, C1+35
ORL	LOC+9!
>> OROPREF	P1+28, P1+29, S1+10, W1+12, C1+35
ORPTYP	P1+5~, P1+23*, P1+24, P1+28, P1+29
ORRA	LOC+2~, LOC+8*, LOC+9
>> ORVP	P1+28, P1+29, S1+10, W1+12, C1+34*, C1+35
>> ORX	P1+28, P1+29, S1+10, W1+12, C1+35*
>> ORY	PROV+4, P1+8, P1+11, SPEC+4, S1+4, S1+7, S1+10, WARD+4, W1+6, W1+12 , CLIN+4, C1+6, C1+30
>> ORZ	P1+10*, P1+25, P1+28, P1+29
>> TEAM	PROV+4, PROV+5, SPEC+4, SPEC+5, WARD+4, WARD+5, CLIN+4, CLIN+5
U	LOC+8
>> X	PROV+1, PROV+2, SPEC+1, SPEC+2, WARD+1, WARD+2, CLIN+1, CLIN+2, C1+10, C1+17
>> Y	P1+8, P1+9, P1+10, P1+11, P1+22, P1+23, S1+4, S1+6, W1+6, W1+8 , W1+9, C1+6, C1+7, C1+8, C1+13, C1+14, C1+18, C1+20, C1+21, LOC+7 , LOC+8

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORLP01

Call Graph Total: 8

Caller Graph Total: 5