Routine: LRUMD2

Package	Total	Call Graph
Lab Service	3	(F,L,M,S,V)^LRU EN1^LRUMDS (BEG,END)^LRUTL
VA Fileman	2	IX^DIC ^DIK

Package

Total

Call Graph

(F,L,M,S,V)^LRU EN1^LRUMDS (BEG,END)^LRUTL

IX^DIC ^DIK

Package	Total	Caller Graph
Lab Service	3	LRUMD LRUMD1 LRUMDU

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: READ	Prompt: "Enter N or P: " Formatting: ! Timeout: DTIME Variable: X Line Location: LRUMD2+4
Function Call: WRITE	Prompt: !!,"Remove patients by (N)umber or (P)atient name" Line Location: LRUMD2+4
Function Call: WRITE	Prompt: !,"Enter 'N' to delete by number or 'P' to delete by patient." Line Location: LRUMD2+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: N+0
Function Call: WRITE	Prompt: !!,"Select number to delete patient " Line Location: N+0
Function Call: WRITE	Prompt: "(1-",R-1,")" Condition for execution: LRF Line Location: N+0
Function Call: WRITE	Prompt: ": " Line Location: N+0
Function Call: WRITE	Prompt: "from 1 to ",R-1 Condition for execution: LRF Line Location: N+1
Function Call: WRITE	Prompt: $C(7),!,"Number ",X," was deleted. It is not necessary to enter the same number again." Line Location: N+2
Function Call: WRITE	Prompt: !,$P(Y,"^",2)," SSN:",$P(Y,U,10)," deleted." Line Location: K+0
Function Call: WRITE	Prompt: !,$P(Y,"^",2)," HRCN:",$P(Y,U,10)," deleted." Line Location: K+1
Function Call: WRITE	Prompt: ! Line Location: D+0
Function Call: WRITE	Prompt: !,"Patient list for: ",$P(^VA(200,DUZ,0),U),!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: ! Line Location: P+0
Function Call: WRITE	Prompt: ! Line Location: P+1
Routine Call	DIC Line Location: P+1

FileNo	Call Tags
^LRO(69.2 - [#69.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^LRO(69.2 - [#69.2]	K+1, L, W, EN+1, P+1, LR+1, LR+2, LR+3*
^VA(200 - [#200]	H+1

Name	Comments	DBIA/ICR reference
EN	;group removal
END
D
H
K	;S Y=^LRO(69.2,LRAA,7,DUZ,1,LRB,0) W !,$P(Y,"^",2)," SSN:",$P(Y,U,10)," deleted."
L
N
P	;Q:'$O(^LRO(69.2,LRAA,7,DUZ,1,0)) K L W ! S DIC="^LRO(69.2,LRAA,7,DUZ,1,",DIC(0)="AEQ",DIC("A")="Select patient to delete: ",DIC("W")="W "" SSN:"",$P(^(0),U,10)",D="C" D IX^DIC K DIC Q:Y<1 S LRB=+Y D K G P
QUE
W
LR	;from LRUMD,LRUMDU

Name	Field # of Occurrence
>> D	P+1*
DA	K+2*!
DA(1	K+2*
DA(2	K+2*
DIC	K+2!, P+1*!
DIC("A"	P+1*
DIC("W"	P+1*
DIC(0	P+1*
DIK	K+2*!
DR	K+2!
DT	LR+3
DTIME	LRUMD2+4, N
DUZ	K+1, K+2, L, W, H+1, EN+1, P+1, LR+2, LR+3
IO	QUE
IOSL	L
IOST	H
L	N, L*, W, EN+1!, P+1!
L(	N+2, N+3!
>> LR("%"	H+1
>> LR("F"	QUE*, H
>> LR("Q"	L, H
>> LRA	EN+1
>> LRAA	K+1, K+2, L, W, EN+1, P+1, LR+1, LR+2, LR+3
>> LRAA(2	LR+1
>> LRB	N+3, K+1, K+2, EN+1, P+1*
>> LRF	LRUMD2+6, N, N+1, N+3
>> P	L*, W
>> P(1	W*
>> POP	D
>> R	N, N+1, L*, W
U	LRUMD2+4, N, K+1, H+1
>> X	LRUMD2+4, LRUMD2+5, LRUMD2+6, N, N+1, N+2, N+3, W, EN+1, LR+1 , LR+2*
>> Y	K+1*, P+1
>> ZTRTN	D*
>> ZTSK	D

Information