Routine: ORLPSRA

Package	Total	Call Graph
Kernel	2	^%ZISC $$FMTE^XLFDT
Order Entry Results Reporting	2	($$DIV,$$LOC,$$SER,$$STAT,$$USER,HDR,STATS)^ORLPSR (DIV,SERV,WHO)^ORLPSRB
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORLPSR

Entry Points

Name	Comments	DBIA/ICR reference
LOOP	;called from ORLPSR
PROV	;loops thru the TMP global for output sort by provider
SPROV	;sorts for a single provider
PAT	;loops thru the TMP global for output sort by patient
SPAT	;sorts for a single patient
WARD	;loops thru the TMP global for output sort by location
SWARD	;sorts for a single location
EXIT

External References

Name	Field # of Occurrence
^%ZISC	EXIT+1
$$DIV^ORLPSR	LOOP+24
$$LOC^ORLPSR	LOOP+23
$$SER^ORLPSR	LOOP+17
$$STAT^ORLPSR	LOOP+22
$$USER^ORLPSR	LOOP+16, LOOP+19, LOOP+20
HDR^ORLPSR	PROV+6, PROV+11, SPROV+6, SPROV+10, PAT+6, PAT+11, SPAT+6, SPAT+10, WARD+6, WARD+11 , SWARD+6, SWARD+10
STATS^ORLPSR	SWARD+16
DIV^ORLPSRB	SWARD+15
SERV^ORLPSRB	SWARD+13
WHO^ORLPSRB	SWARD+14
DEM^VADPT	LOOP+21
$$FMTE^XLFDT	LOOP+25, LOOP+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No lapsed orders found" Line Location: PROV+7
Function Call: WRITE	Prompt: $P(^(IEN),U),?25,$P(^(IEN),U,2),?50,$P(^(IEN),U,3),?75,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?91,$P(^(IEN),U,6),?104,$P(^(IEN),U,7),?118,$P(^(IEN),U,8),! Line Location: PROV+11
Function Call: WRITE	Prompt: $P(^(IEN),U),?25,$P(^(IEN),U,2),?50,$P(^(IEN),U,3),?75,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?91,$P(^(IEN),U,6),?104,$P(^(IEN),U,7),?118,$P(^(IEN),U,8),! Line Location: SPROV+10
Function Call: WRITE	Prompt: !!,"No lapsed orders found for "_LONER Line Location: SPROV+12
Function Call: WRITE	Prompt: !,"No lapsed orders found" Line Location: PAT+7
Function Call: WRITE	Prompt: $P(^(IEN),U),?25,$P(^(IEN),U,2),?30,$P(^(IEN),U,3),?55,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?91,$P(^(IEN),U,6),?104,$P(^(IEN),U,7),?118,$P(^(IEN),U,8),! Line Location: PAT+11
Function Call: WRITE	Prompt: @IOF,@HDR Line Location: PAT+13
Function Call: WRITE	Prompt: $P(^(IEN),U),?25,$P(^(IEN),U,2),?30,$P(^(IEN),U,3),?55,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?91,$P(^(IEN),U,6),?104,$P(^(IEN),U,7),?118,$P(^(IEN),U,8),! Line Location: SPAT+10
Function Call: WRITE	Prompt: !!,"No lapsed orders found for "_LONER Line Location: SPAT+12
Function Call: WRITE	Prompt: !,"No lapsed orders found" Line Location: WARD+7
Function Call: WRITE	Prompt: $P(^TMP("ORUNS",$J,LOC,PROV,IEN),U,2),?25,$P(^(IEN),U,3),?50,$P(^(IEN),U,4),?75,$P(^(IEN),U,5),?81,$P(^(IEN),U,6),?91,$P(^(IEN),U,7),?104,$P(^(IEN),U,8),?118,$P(^(IEN),U,9),! Line Location: WARD+11
Function Call: WRITE	Prompt: $P(^TMP("ORUNS",$J,LOC,PROV,IEN),U,2),?25,$P(^(IEN),U,3),?50,$P(^(IEN),U,4),?75,$P(^(IEN),U,5),?81,$P(^(IEN),U,6),?91,$P(^(IEN),U,7),?104,$P(^(IEN),U,8),?118,$P(^(IEN),U,9),! Line Location: SWARD+10
Function Call: WRITE	Prompt: !!,"No lapsed orders found for "_LONER Line Location: SWARD+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	LOOP+4
^OR(100 - [#100]	LOOP+3, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+12, LOOP+16, LOOP+17, LOOP+19, LOOP+20 , LOOP+21, LOOP+22, LOOP+23, LOOP+24, LOOP+25, LOOP+26
^TMP("ORSTATS"	PROV+12, SPROV+11, PAT+12, SPAT+11, WARD+12, SWARD+11, EXIT!
^TMP("ORUNS"	LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33, PROV+7, PROV+8, PROV+9, PROV+10 , SPROV+7, SPROV+8, SPROV+9, SPROV+12, PAT+7, PAT+8, PAT+9, PAT+10, SPAT+7, SPAT+8 , SPAT+9, SPAT+12, WARD+7, WARD+8, WARD+9, WARD+10, WARD+11, SWARD+7, SWARD+8, SWARD+9 , SWARD+10, SWARD+12, EXIT!
^VA(200 - [#200]	LOOP+16, LOOP+17, LOOP+19

Naked Globals

Name	Field # of Occurrence
^(	PROV+11, SPROV+10, PAT+11, SPAT+10, WARD+11, SWARD+10
^(0	LOOP+23, LOOP+24, LOOP+25
^(10	LOOP+26
^(3	LOOP+22
^(5	LOOP+17
^(6	LOOP+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	PROV+9, PROV+10, PROV+12, SPROV+8, SPROV+9, SPROV+11, PAT+9, PAT+10, PAT+12, SPAT+8* , SPAT+9, SPAT+11, WARD+9, WARD+10, WARD+12, SWARD+8, SWARD+9*, SWARD+11
>> DATE	LOOP+5*, LOOP+6, LOOP+7, LOOP+12
>> DFN	LOOP+21*
>> DIV	LOOP+15, LOOP+24, LOOP+33
>> EDATE	LOOP+5
>> HDR	PROV+2, PROV+3, PROV+4, SPROV+2, SPROV+3, SPROV+4, PAT+2, PAT+3, PAT+4, SPAT+2 , SPAT+3, SPAT+4, WARD+2, WARD+3, WARD+4, SWARD+2, SWARD+3, SWARD+4
>> HDR1	PROV+5, SPROV+5, PAT+5, SPAT+5, WARD+5, SWARD+5
>> IEN	LOOP+6, LOOP+7, LOOP+8, LOOP+12, LOOP+16, LOOP+17, LOOP+19, LOOP+20, LOOP+21, LOOP+22 , LOOP+23, LOOP+24, LOOP+25, LOOP+26, LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33 , PROV+10, PROV+11, SPROV+9, SPROV+10, PAT+10, PAT+11, SPAT+9, SPAT+10, WARD+10, WARD+11 , SWARD+9*, SWARD+10
IOSL	PROV+11, SPROV+10, PAT+11, SPAT+10, WARD+11, SWARD+10
LDATE	LOOP+14~, LOOP+26, LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33
>> LOC	LOOP+15, LOOP+23, LOOP+31, LOOP+33, WARD+8, WARD+9, WARD+10, WARD+11, WARD+12, SWARD+7 , SWARD+8, SWARD+9, SWARD+10, SWARD+11, SWARD+12
>> LONER	PROV+1, SPROV+1, SPROV+7, SPROV+12, PAT+1, SPAT+1, SPAT+7, SPAT+12, WARD+1, SWARD+1* , SWARD+7, SWARD+12
>> LONER(	SPROV+1, SPAT+1, SWARD+1
LTYPE	LOOP+12~, LOOP+13, LOOP+27
>> PAGE	PROV+6, SPROV+1, PAT+6, SPAT+1, WARD+6, SWARD+1
>> PAT	LOOP+3*, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+12
>> PNM	LOOP+21, LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33, PROV+9, PROV+10, PROV+12 , SPROV+8, SPROV+9, SPROV+11, PAT+8, PAT+9, PAT+10, PAT+12, SPAT+7*, SPAT+8, SPAT+9 , SPAT+11, SPAT+12
>> PROV	LOOP+16, LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33, PROV+8, PROV+9, PROV+10 , PROV+12, SPROV+7, SPROV+8, SPROV+9, SPROV+11, SPROV+12, PAT+9, PAT+10, PAT+12, SPAT+8* , SPAT+9, SPAT+11, WARD+9, WARD+10, WARD+11, WARD+12, SWARD+8, SWARD+9, SWARD+10, SWARD+11
>> RPDT	LOOP+2*
>> SDATE	LOOP+5
>> SER	LOOP+17, LOOP+18, LOOP+28
>> SORT	LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33, PROV+1, SPROV+1, PAT+1, SPAT+1 , WARD+1, SWARD+1, SWARD+13, SWARD+14, SWARD+15
>> SSN	LOOP+21*, LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33
>> STATUS	LOOP+22, LOOP+27, LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33
>> STOP	LOOP+2*, LOOP+3, LOOP+5, LOOP+6, LOOP+7, PROV+8, PROV+9, PROV+10, PROV+11, SPROV+1 , SPROV+8, SPROV+9, SPROV+10, PAT+8, PAT+9, PAT+10, PAT+11, SPAT+1, SPAT+8, SPAT+9 , SPAT+10, WARD+8, WARD+9, WARD+10, WARD+11, SWARD+1, SWARD+8, SWARD+9, SWARD+10, SWARD+16
>> SUB	LOOP+7*, LOOP+8, LOOP+12, LOOP+16, LOOP+17, LOOP+19, LOOP+25
>> SUMONLY	PROV+11, SPROV+10, PAT+11, SPAT+10, WARD+8, WARD+11, SWARD+10
>> TYPE	PROV+2, PROV+3, PROV+4, SPROV+2, SPROV+3, SPROV+4, PAT+2, PAT+3, PAT+4, SPAT+2 , SPAT+3, SPAT+4, WARD+2, WARD+3, WARD+4, SWARD+2, SWARD+3, SWARD+4
U	LOOP+4, LOOP+16, LOOP+17, LOOP+19, LOOP+20, LOOP+21, LOOP+22, LOOP+23, LOOP+24, LOOP+25 , LOOP+26, LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33, PROV+11, SPROV+10, PAT+11 , SPAT+10, WARD+11, SWARD+10
>> VA("BID"	LOOP+21
>> VADM(1	LOOP+21
>> WHEN	LOOP+25*, LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33
>> WHO	LOOP+19, LOOP+20, LOOP+28, LOOP+29, LOOP+30, LOOP+31, LOOP+32, LOOP+33

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORLPSRA

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: