Routine: LRAPQACN

Package	Total	Call Graph
Lab Service	8	^LRAP EN^LRAPPF1 ^LRAPSM1 ^LRAPT2 CK^LRAUSM (B,D,F,L,M,S,SSN,V,XR,YN)^LRU (EN,EN2,SET)^LRUA (BEG,END)^LRUTL

Package

Total

Call Graph

^LRAP EN^LRAPPF1 ^LRAPSM1 ^LRAPT2 CK^LRAUSM (B,D,F,L,M,S,SSN,V,XR,YN)^LRU (EN,EN2,SET)^LRUA (BEG,END)^LRUTL

Package	Total	Caller Graph
Lab Service	1	LRAPQACN

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LRAPQACN+5
Function Call: WRITE	Prompt: !,LRP,?36,SSN Line Location: B+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: B+0
Function Call: WRITE	Prompt: !,LRP,?36,HRCN Line Location: B+1
Function Call: WRITE	Prompt: !,LR("%") Line Location: B+1
Function Call: WRITE	Prompt: !?23,LRO(68)," CONSULTATIONS",!,LR("%") Line Location: H+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Choice #",$J(B,2),": Select consultation code (must begin with 065): " Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!,"First 3 characters must be '065'" Line Location: ASK+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	P
^LR - [#63]	QUE+3, Y2K+5, B+1, P
^TMP("LRAP"	QUE!, Y2K+2*, Y2K+5, OUT!
^TMP($J	QUE!, QUE+2*, Y2K+2

Name	Line Occurrences
@(	QUE+3, Y2K+5
ASK	LRAPQACN+4, ASK+1
END	LRAPQACN+3, LRAPQACN+4, LRAPQACN+5, LRAPQACN+6, LRAPQACN+7, OUT
H	Y2K+4, B+1
P	B+1, AU

Name	Field # of Occurrence
>> %	LRAPQACN+3*
>> A	Y2K+2*
>> A("B"	ASK!, ASK+1
>> B	LRAPQACN+4, LRAPQACN+5, Y2K+2, ASK
>> DOB	AU*
DT	Y2K
DTIME	ASK
>> HRCN	B+1
IO	QUE
IOSL	B+1, H
>> LR	QUE*
>> LR("%"	B+1, H+1
>> LR("A"	QUE*
>> LR("DIWF"	QUE*
>> LR("F"	Y2K+4*, H
>> LR("Q"	Y2K+5, B+1, H
>> LR("W"	QUE+4*
>> LR(1	QUE*
>> LR(2	QUE*
>> LR(3	QUE*
>> LRA	QUE+4*
>> LRABV	Y2K+5, B+1
>> LRAN	Y2K+5*, B+1
>> LRDFN	Y2K+5*, B+1, P
>> LRDPF	P*
>> LRI	B+1*
>> LRLDT	LRAPQACN+6*, QUE+3
>> LRM(	ASK+2*
>> LRM(1	ASK*
>> LRN	LRAPQACN+4, LRAPQACN+5
>> LRN(	ASK+2*
>> LRN(1	ASK*
>> LRO	QUE*
>> LRO(68	QUE+2, H+1
>> LRP	B+1, P*
>> LRQ(0	LRAPQACN+5
>> LRQ(3	QUE+4, Y2K+4
>> LRQ(9	QUE+4*
>> LRS(5	QUE+4*
>> LRSDT	LRAPQACN+6, QUE+3
>> LRSN	QUE+1*
>> LRSS	QUE, QUE+3, Y2K+4, Y2K+5
>> LRTMPA	Y2K*, Y2K+2
>> LRXR	QUE+3
>> LRXREF	Y2K+5, B+1
>> LRY	Y2K+2, Y2K+5, B+1
>> POP	LRAPQACN+7
>> S	QUE*
>> S(2	QUE+1*, QUE+2
>> S(7	QUE+1*, QUE+2
>> SEX	AU*
>> SSN	AU, P
U	LRAPQACN+4, QUE+2, ASK
>> V	QUE+1*
>> X	LRAPQACN+4, LRAPQACN+5, QUE+3, AU, P, ASK*, ASK+1, ASK+2
>> Y	LRAPQACN+4, LRAPQACN+6, AU, P
>> ZTRTN	LRAPQACN+7*
>> ZTSK	LRAPQACN+7

Information

Name	Comments	DBIA/ICR reference
B	;S LRI=$O(^LR(LRXREF,LRY,LRABV,LRAN,LRDFN,0)) D:$Y>(IOSL-6) H Q:LR("Q") D P W !,LRP,?36,SSN D EN^LRAPPF1 Q:LR("Q") W !,LR("%") Q
END
H
P
Y2K
AU
ASK
QUE
OUT