Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRAPQACN

Package: Lab Service

Routine: LRAPQACN


Information

LRAPQACN ;AVAMC/REG - CONSULTATION RPTS ;8/12/95 12:05 [ 04/28/2003 12:10 PM ]

Source Information

Source file <LRAPQACN.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPQACN  

Entry Points

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

External References

Name Field # of Occurrence
^LRAP LRAPQACN+4
EN^LRAPPF1 B+1
^LRAPSM1 QUE+4
^LRAPT2 AU
CK^LRAUSM ASK+1
B^LRU LRAPQACN+6
D^LRU AU
F^LRU H+1
L^LRU QUE
M^LRU H
S^LRU QUE, QUE+4
SSN^LRU AU, P
V^LRU END
XR^LRU QUE
YN^LRU LRAPQACN+3
EN^LRUA QUE
EN2^LRUA QUE+4
SET^LRUA QUE+4
BEG^LRUTL LRAPQACN+7
END^LRUTL OUT

Interaction Calls

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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All