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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRAPUTL

Package: Lab Service

Routine: LRAPUTL


Information

LRAPUTL ;DALOI/STAFF - AP UTILITIES ;06/21/12 12:06

Source Information

Source file <LRAPUTL.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Lab Service 7 OE1^LR7OB63D  PNAME^LRAPDA  END^LRCAPES  YN^LRU  (GETDATA,SRCASE,SRCASERR)^LRUEPR  ^LRUP  UID^LRVERA  
Kernel 5 $$FMTE^XLFDT  $$NAMEFMT^XLFNAME  $$CJ^XLFSTR  $$GET^XUA4A72  $$NAME^XUSER  
VA FileMan 5 ^%DT  EN^DDIOL  $$GET1^DID  ($$GET1,GETS)^DIQ  ^DIR  
Registration 2 INP^VADPT  ADM^VADPT2  
Scheduling 1 $$OUTPTPR^SDUTL3  
Text Integration Utility 1 EXTRACT^TIULQ  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 22

Package Total Caller Graph
Lab Service 22 LR7OSAP  LR7OSAP2  LRAPALRT  LRAPBR1  LRAPBR2  LRAPBR3  LRAPBR4  LRAPBR5  
LRAPBRPW  LRAPDA  LRAPFICH  LRAPMOD  LRAPMRL  LRAPMRL1  LRAPR  LRAPR1  
LRAPRES  LRAPRES1  LRAPX  LRAURPT  LRSPRPT  LRSPRPTA  

Entry Points

Name Comments DBIA/ICR reference
ACCYR(LRYROUT,LRYRIN,LRAREA,LRAANM) ;
; Return variable (passed by reference):
; LRYROUT = Accession Year LRAD^LRH(0)
; where LRAD is format 3010000
; LRH(0) is format 2001
; = -1 - Error Condition
; = 0 - No change from default value (LRYRIN)
LOOKUP(LRDATA,LRYR1,LRAANM,LRAREA,LRYR2,LRAAN) ;
; Call with LRDATA = array to return data (pass by reference)
; LRYR1 = Year portion of accession date , i.e. 2009
; LRAANM = Accession area name
; LRAREA = File #63 subscript
; LRYR2 = FileMan accession date
; LRAAN = Accession number
; Lookup by accession number or patient name or UID
DEMGRPH(LRAN,LRAD,LRAA) ; Demographics
GETDOCS(LRDOCS,LRDFN,LRSS,LRI,LRSF) ; Return PCP(inpatient PC/attending/outpt PC/outpt assoc PC/outpt attending) and ordering provider
RELEASE(LRRELEAS,LRDFN,LRSS,LRI) ;
; Determine if report has been released
TIUCHK(LRPTR,LRDFN,LRSS,LRI) ;
; Check to see if report is in TIU
ESIGINF(LRESINF,LRDFN,LRSS,LRI) ;Return Esig Info
NEWLN(LRTEXT,TAB) ;
GLBWRT(LRTEXT,TAB) ;Write to global
GLB(LINE,TAB,BTAB,TEXT,ROOT,ATAB) ;
; This subroutine is used to store report text to a global.
; Input variables:
; LINE = Current line number
; TAB = Desired tab position (not required)
; BTAB = Current tab position BEFORE text is stored
; TEXT = Text string to be stored
; ROOT = Global root
PROVIDR ; Entry of provider taken from PRO^LRCAPES
REFRRL ; Display informational message on referrals
PG ; Page break
END ;
SELBY(X1) ; Select by accession number or unique identifier(UID) or patient name
; Call with X1= message prompt
; Returns Y=0 (abort)
; =1 (accession number)
; =2 (unique identifier)
; =3 (patient name)
GETPCP(LRPCP,LRDFN,LRSS,LRIDT) ; Return PCP(inpatient PC/attending/outpt PC)

External References

Name Field # of Occurrence
^%DT ACCYR+21
EN^DDIOL LOOKUP+48, LOOKUP+65, REFRRL+5
$$GET1^DID TIUCHK+21
$$GET1^DIQ DEMGRPH+4, DEMGRPH+5, DEMGRPH+6, DEMGRPH+7, GETDOCS+9, TIUCHK+14, TIUCHK+15, TIUCHK+24, PROVIDR+4
GETS^DIQ RELEASE+13
^DIR LOOKUP+21, LOOKUP+28, PROVIDR+9, PG+2, SELBY+10
OE1^LR7OB63D LOOKUP+44
PNAME^LRAPDA LOOKUP+30
END^LRCAPES PROVIDR+11, PROVIDR+15
YN^LRU ACCYR+17
GETDATA^LRUEPR GETDOCS+37
SRCASE^LRUEPR GETDOCS+40
SRCASERR^LRUEPR GETDOCS+43
^LRUP LOOKUP+54
UID^LRVERA LOOKUP+39
$$OUTPTPR^SDUTL3 GETDOCS+25, GETDOCS+27, GETPCP+38, GETPCP+40
EXTRACT^TIULQ ESIGINF+6
INP^VADPT GETDOCS+22, GETPCP+30
ADM^VADPT2 GETDOCS+19, GETPCP+27
$$FMTE^XLFDT LOOKUP+56, DEMGRPH+8, DEMGRPH+16
$$NAMEFMT^XLFNAME GETPCP+47
$$CJ^XLFSTR REFRRL+2, REFRRL+3, REFRRL+4
$$GET^XPAR SELBY+8
$$GET^XUA4A72 PROVIDR+5
$$NAME^XUSER GETDOCS+10, GETDOCS+23, GETDOCS+24, GETDOCS+26, GETDOCS+28, GETDOCS+49

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Data entry for ",LRYRIN," "
  • Line Location: ACCYR+16
Function Call: WRITE
  • Prompt: $C(7),!!,"NO ",LRAANM," ACCESSIONS IN FILE FOR ",LRYR2,!!
  • Line Location: ACCYR+25
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOKUP+13
Function Call: WRITE
  • Prompt: !!,$C(7),"UID: ",LRUID," not associated with Accession Area: ",LRAANM,!,?32,"and Accession Year: ",LRYR1,!
  • Line Location: LOOKUP+42
Function Call: WRITE
  • Prompt: " for "_LRYR1
  • Line Location: LOOKUP+45
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOKUP+55
Function Call: WRITE
  • Prompt: !?3,PNM,?35,SSN,?55,"DOB: ",$$FMTE^XLFDT(DOB,1)
  • Line Location: LOOKUP+56
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: LOOKUP+60
Function Call: WRITE
  • Prompt: !?5,"Collection Date: "_$S(LREDT:$$FMTE^XLFDT(LREDT,1),1:"<None on file>")
  • Line Location: DEMGRPH+8
Function Call: WRITE
  • Prompt: !?10,LRSPECID,!
  • Line Location: DEMGRPH+9
Function Call: WRITE
  • Prompt: !?15,"PCE ENC # "_^("PCE")
  • Line Location: DEMGRPH+10
Function Call: WRITE
  • Prompt: !?5,"Tissue Specimen(s): ",!
  • Line Location: DEMGRPH+13
Function Call: WRITE
  • Prompt: @IOF,!?3,PNM,?35,SSN,?55,"DOB: ",$$FMTE^XLFDT(DOB,1),!
  • Line Location: DEMGRPH+16
Function Call: WRITE
  • Prompt: ?15,$P($G(^LR(LRDFN,LRSS,LRIDT,.1,LRX,0)),U),!
  • Line Location: DEMGRPH+17
Function Call: WRITE
  • Prompt: ?5,"Test(s): "
  • Line Location: DEMGRPH+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEMGRPH+22
Function Call: WRITE
  • Prompt: ?15,$P($G(^LAB(60,+LRX,0)),U)," ",$P(^LRO(68,LRAA,1,LRAD,1,LRAN,4,LRX,0),U,6),!
  • Line Location: DEMGRPH+23
Function Call: WRITE
  • Prompt: !,"COMMENTS:",^LR(LRDFN,LRSS,LRIDT,99,LRB,0)
  • Line Location: DEMGRPH+26
Function Call: WRITE
  • Prompt: !?5,"No Active Provider Selected",!
  • Line Location: PROVIDR+12
Function Call: WRITE
  • Prompt: !?5,"The accession is corrupt - missing zero node",!
  • Line Location: PROVIDR+16
Routine Call
  • DIR
  • Line Location:
    • LOOKUP+21
    • LOOKUP+28
    • PROVIDR+9
    • PG+2
    • SELBY+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^LR - [#63] GET1^DID
68.02 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] REFRRL+2
^LAB(60 - [#60] DEMGRPH+23
^LR - [#63] LOOKUP+54, LOOKUP+59, DEMGRPH+11, DEMGRPH+14, DEMGRPH+17, DEMGRPH+25, DEMGRPH+26, GETDOCS+12, GETDOCS+16, GETDOCS+17
, GETDOCS+33, GETPCP+17, GETPCP+21, GETPCP+22
^LRO(68 - [#68] ACCYR+24, LOOKUP+46, LOOKUP+52, LOOKUP+57, LOOKUP+58, DEMGRPH+10, DEMGRPH+18, DEMGRPH+21, DEMGRPH+23, PROVIDR+15
^VA(200 - [#200] PROVIDR+5

Label References

Name Line Occurrences
$$SELBY LOOKUP+14
DEMGRPH LOOKUP+67
END ACCYR+18, ACCYR+20, ACCYR+27, LOOKUP+15, LOOKUP+18, LOOKUP+25
GLB GLBWRT+1
GLBWRT NEWLN+3
PG DEMGRPH+15, DEMGRPH+22
TIUCHK ESIGINF+4

Naked Globals

Name Field # of Occurrence
^("PCE" DEMGRPH+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ACCYR+17*, ACCYR+18, ACCYR+19, ACCYR+20
%DT ACCYR+15~, ACCYR+21*
%DT("A" ACCYR+21*
%DT(0 ACCYR+21*
ATAB GLBWRT+1, GLBWRT+2, GLB~, GLB+23*
BTAB NEWLN+1*, GLBWRT+1, GLBWRT+2*, GLB~, GLB+14*, GLB+15, GLB+17
DA DEMGRPH+1~
DFN GETDOCS+1~, GETDOCS+12*, GETDOCS+25, GETDOCS+27, GETPCP+10~, GETPCP+17*, GETPCP+38, GETPCP+40
DIR LOOKUP+8~, LOOKUP+21!, LOOKUP+28!, PROVIDR+3~, PG+1~, SELBY+6~
DIR("?" LOOKUP+20*, LOOKUP+27*
DIR("A" LOOKUP+19*, LOOKUP+26*, PROVIDR+6*, SELBY+7*
DIR("B" PROVIDR+5*, SELBY+9*
DIR("S" PROVIDR+8*
DIR(0 LOOKUP+19*, LOOKUP+26*, PROVIDR+7*, PG+2*, SELBY+7*
DIROUT SELBY+6~
DIRUT PROVIDR+3~, PG+1~, PG+3, SELBY+6~, SELBY+11
>> DOB LOOKUP+56, DEMGRPH+16
DT GETDOCS+18, GLB+18, PROVIDR+5, GETPCP+23
DTOUT PG+1~, SELBY+6~
DUOUT PROVIDR+3~, PG+1~, SELBY+6~
FTEXT GLB+12~, GLB+16*, GLB+17*, GLB+21
>> GROOT GLBWRT+1
IOF LOOKUP+55, DEMGRPH+16, DEMGRPH+22
IOM REFRRL+2, REFRRL+3, REFRRL+4
IOSL DEMGRPH+15, DEMGRPH+22
>> LCT NEWLN+1*, GLBWRT+1
LINE GLB~, GLB+19*, GLB+20, GLB+21
>> LR("CK" LOOKUP+11!
LRAA LOOKUP+41, LOOKUP+51*, LOOKUP+67, DEMGRPH~, DEMGRPH+3, DEMGRPH+6, DEMGRPH+7, DEMGRPH+10, DEMGRPH+18, DEMGRPH+21
, DEMGRPH+23, PROVIDR+15
LRAAN LOOKUP~, LOOKUP+41, LOOKUP+46, LOOKUP+51, LOOKUP+52, LOOKUP+57, LOOKUP+58
LRAANM ACCYR~, ACCYR+14, ACCYR+19!, ACCYR+25, LOOKUP~, LOOKUP+20, LOOKUP+42, LOOKUP+47, LOOKUP+63, END+1!
LRAD LOOKUP+41, LOOKUP+51*, LOOKUP+67, DEMGRPH~, DEMGRPH+3, DEMGRPH+6, DEMGRPH+7, DEMGRPH+10, DEMGRPH+18, DEMGRPH+21
, DEMGRPH+23, PROVIDR+15
LRAN LOOKUP+21*, LOOKUP+22, LOOKUP+31, LOOKUP+46, LOOKUP+47, LOOKUP+52, LOOKUP+57, LOOKUP+58, LOOKUP+63, LOOKUP+67
, DEMGRPH~, DEMGRPH+3, DEMGRPH+6, DEMGRPH+7, DEMGRPH+10, DEMGRPH+18, DEMGRPH+21, DEMGRPH+23, PROVIDR+15
LRAREA ACCYR~, ACCYR+14, ACCYR+19!, ACCYR+24, LOOKUP~, LOOKUP+59, END+1!
>> LRAU LOOKUP+32
LRB DEMGRPH+1~, DEMGRPH+24*, DEMGRPH+25*, DEMGRPH+26
LRCT RELEASE+2~, RELEASE+14*, RELEASE+15
LRDATA LOOKUP~, LOOKUP+13*, LOOKUP+15*, LOOKUP+22*, LOOKUP+29*, LOOKUP+32*, LOOKUP+49*, LOOKUP+66*, LOOKUP+68*, GETDOCS+35~
, GETDOCS+37
LRDATA( GETDOCS+38
LRDATA(1 LOOKUP+32*, LOOKUP+68*
LRDFN LOOKUP+32, LOOKUP+52*, LOOKUP+54, LOOKUP+59, LOOKUP+68, DEMGRPH+11, DEMGRPH+14, DEMGRPH+17, DEMGRPH+25, DEMGRPH+26
, GETDOCS~, GETDOCS+4, GETDOCS+7, GETDOCS+8, GETDOCS+12, GETDOCS+16, GETDOCS+17, GETDOCS+32, GETDOCS+33, GETDOCS+36
, RELEASE~, RELEASE+3, RELEASE+7, RELEASE+11, TIUCHK~, TIUCHK+5, TIUCHK+9, TIUCHK+17, TIUCHK+23, ESIGINF~
, ESIGINF+2, ESIGINF+4, GETPCP~, GETPCP+13, GETPCP+17, GETPCP+21, GETPCP+22
LRDOCS GETDOCS~, GETDOCS+3*, GETDOCS+10*, GETDOCS+23*, GETDOCS+24*, GETDOCS+26*, GETDOCS+28*, GETDOCS+49*
LRDOCS( GETDOCS+10*, GETDOCS+23*, GETDOCS+24*, GETDOCS+26*, GETDOCS+28*, GETDOCS+49*
LRDOCS(1 GETDOCS+48*
LRDPF GETDOCS+1~, GETDOCS+12*, GETDOCS+13, REFRRL+2, GETPCP+10~, GETPCP+17*, GETPCP+18
LRDT GETDOCS+15~, GETDOCS+16*, GETDOCS+17*, GETDOCS+18*, GETDOCS+19, GETDOCS+25, GETDOCS+27, GETPCP+10~, GETPCP+21*, GETPCP+22*
, GETPCP+23*, GETPCP+27, GETPCP+38, GETPCP+40
LREDT DEMGRPH+1~, DEMGRPH+6*, DEMGRPH+8
>> LREND LOOKUP+12*, LOOKUP+15*, LOOKUP+22*, LOOKUP+29*, PROVIDR+1*
LRESINF ESIGINF~
LRESINF(1 ESIGINF+8*
LRESINF(2 ESIGINF+9*
LRESINF1 ESIGINF+1~
LRESINF1("ESIG" ESIGINF+7, ESIGINF+8, ESIGINF+9
LRFILE RELEASE+2~, RELEASE+7*, RELEASE+9*, RELEASE+12, RELEASE+13, RELEASE+15, TIUCHK+2~, TIUCHK+6*, TIUCHK+10*, TIUCHK+12
, TIUCHK+14, TIUCHK+15, TIUCHK+17*, TIUCHK+21*, TIUCHK+22, TIUCHK+24
LRFLD GETDOCS+1~, GETDOCS+7*, GETDOCS+8*, GETDOCS+9, TIUCHK+2~, TIUCHK+17*, TIUCHK+19*, TIUCHK+20, TIUCHK+21*, TIUCHK+24
LRFLDS RELEASE+2~, RELEASE+7*, RELEASE+10*, RELEASE+13, RELEASE+15
LRI LOOKUP+32, LOOKUP+57*, LOOKUP+59, LOOKUP+68, GETDOCS~, GETDOCS+7, GETDOCS+17, GETDOCS+32, RELEASE~, RELEASE+5
, RELEASE+11, TIUCHK~, TIUCHK+9, TIUCHK+23, ESIGINF~, ESIGINF+4
LRIDT LOOKUP+11!, LOOKUP+57*, DEMGRPH+1~, DEMGRPH+7*, DEMGRPH+11, DEMGRPH+14, DEMGRPH+17, DEMGRPH+25, DEMGRPH+26, GETPCP~
, GETPCP+22
LRIENS DEMGRPH+1~, DEMGRPH+3*, DEMGRPH+4, DEMGRPH+5, GETDOCS+1~, GETDOCS+7*, GETDOCS+8*, GETDOCS+9, GETDOCS+31!, GETDOCS+32*
, GETDOCS+33, RELEASE+2~, RELEASE+7*, RELEASE+11*, RELEASE+13, RELEASE+15, TIUCHK+2~, TIUCHK+5*, TIUCHK+9*, TIUCHK+13*
, TIUCHK+14, TIUCHK+15, TIUCHK+17*, TIUCHK+23*, TIUCHK+24
LRINC GLB+12~, GLB+13*
LRJ GETDOCS+35~, GETDOCS+44*, GETDOCS+45, GETDOCS+47
LRLINE GLB+12~, GLB+19*, GLB+22
>> LRMD("ERR" GETDOCS+42*
LRMSG REFRRL+1~, REFRRL+5
LRMSG(1 REFRRL+2*
LRMSG(2 REFRRL+3*
LRMSG(3 REFRRL+4*
LRNAME GETPCP+45~, GETPCP+47
LRNAME("FIELD" GETPCP+46*
LRNAME("FILE" GETPCP+46*
LRNAME("IENS" GETPCP+46*
>> LRNOP PROVIDR+13*, PROVIDR+17*
>> LRODT LOOKUP+53*
>> LRORU3 LOOKUP+58*
LRPCP GETPCP~, GETPCP+12*, GETPCP+31*, GETPCP+32*, GETPCP+37, GETPCP+39*, GETPCP+41*, GETPCP+44, GETPCP+46
LRPCP(1 GETPCP+12*, GETPCP+47*
>> LRPNM LOOKUP+28*, LOOKUP+29
>> LRPRO PROVIDR+4, PROVIDR+5, PROVIDR+7*, PROVIDR+10*, PROVIDR+11
LRPRONM PROVIDR+3~, PROVIDR+4*, PROVIDR+5
LRPROVIDER GETDOCS+1~, GETDOCS+9*, GETDOCS+10, GETDOCS+48
LRPTR TIUCHK~, TIUCHK+3*, TIUCHK+12*, TIUCHK+14*, TIUCHK+15, TIUCHK+25!*, TIUCHK+26!*
LRPTR("D" TIUCHK+15*, TIUCHK+26
LRQUIT LOOKUP+36~, LOOKUP+37*, LOOKUP+38, LOOKUP+40*, LOOKUP+41*, DEMGRPH+1~, DEMGRPH+2*, DEMGRPH+14, DEMGRPH+15, DEMGRPH+21
, DEMGRPH+22, PROVIDR+14*, PROVIDR+18*, PG+3*
LRREF GETDOCS+35~, GETDOCS+36*, GETDOCS+37, GETDOCS+38, GETDOCS+43
LRREL TIUCHK+2~, TIUCHK+24*, TIUCHK+25, TIUCHK+26
LRRELAR RELEASE+2~
LRRELAR( RELEASE+15
LRRELEAS RELEASE~, RELEASE+3*, RELEASE+4*, RELEASE+5*
LRRELEAS( RELEASE+15*
LRROOT TIUCHK+2~, TIUCHK+5*, TIUCHK+8*, TIUCHK+11
LRSEL LOOKUP+10~, LOOKUP+14*, LOOKUP+15, LOOKUP+18, LOOKUP+25, LOOKUP+35
LRSF GETDOCS~, GETDOCS+2*, GETDOCS+4, GETDOCS+9
LRSPC GLB+12~, GLB+13*, GLB+17
LRSPECID DEMGRPH+1~, DEMGRPH+4*, DEMGRPH+5*, DEMGRPH+9
LRSRDATA GETDOCS+35~, GETDOCS+40
LRSRDATA("ERR" GETDOCS+41, GETDOCS+42, GETDOCS+43
LRSRDATA(130 GETDOCS+45
LRSRTN GETDOCS+35~, GETDOCS+38*, GETDOCS+39, GETDOCS+40, GETDOCS+43, GETDOCS+45
LRSS DEMGRPH+11, DEMGRPH+14, DEMGRPH+17, DEMGRPH+25, DEMGRPH+26, GETDOCS~, GETDOCS+2, GETDOCS+4, GETDOCS+5, GETDOCS+7
, GETDOCS+16, GETDOCS+17, GETDOCS+32, RELEASE~, RELEASE+4, RELEASE+5, RELEASE+6, RELEASE+8, RELEASE+9, RELEASE+14
, TIUCHK~, TIUCHK+3, TIUCHK+4, TIUCHK+7, TIUCHK+10, TIUCHK+16, TIUCHK+18, TIUCHK+19, ESIGINF~, ESIGINF+2
, ESIGINF+3, ESIGINF+4, GETPCP~, GETPCP+15, GETPCP+21, GETPCP+22
LRTEXT NEWLN~, NEWLN+3, GLBWRT~, GLBWRT+1
LRTITLE GETDOCS+35~, GETDOCS+47*, GETDOCS+48, GETDOCS+49
LRTIUDA ESIGINF+1~, ESIGINF+4, ESIGINF+5, ESIGINF+6, ESIGINF+7, ESIGINF+8, ESIGINF+9
LRTREC TIUCHK+2~, TIUCHK+11*, TIUCHK+12, TIUCHK+13
>> LRUID LOOKUP+35, LOOKUP+39*, LOOKUP+40, LOOKUP+42
LRX DEMGRPH+12~, DEMGRPH+14*, DEMGRPH+17, DEMGRPH+20*, DEMGRPH+21*, DEMGRPH+23, GETDOCS+1~, GETDOCS+25*, GETDOCS+26, GETDOCS+27*
, GETDOCS+28, GETDOCS+33*, GETDOCS+34, GETDOCS+36, GETDOCS+45*, GETDOCS+46, GETDOCS+48, GETDOCS+49, GETPCP+10~, GETPCP+38*
, GETPCP+39, GETPCP+40*, GETPCP+41
LRYR1 ACCYR+15~, ACCYR+23*, ACCYR+24, ACCYR+28, LOOKUP~, LOOKUP+20, LOOKUP+42, LOOKUP+45, LOOKUP+47
LRYR2 ACCYR+15~, ACCYR+23*, ACCYR+25, ACCYR+28, LOOKUP~, LOOKUP+41, LOOKUP+46, LOOKUP+51, LOOKUP+52, LOOKUP+57
, LOOKUP+58, LOOKUP+63
LRYRIN ACCYR~, ACCYR+14, ACCYR+16, ACCYR+19!, END+1!
LRYROUT ACCYR~, ACCYR+13*, ACCYR+19*, ACCYR+26*, ACCYR+28*
MSG LOOKUP+47*, LOOKUP+48!, LOOKUP+65!
MSG(1 LOOKUP+61*, LOOKUP+62*
MSG(2 LOOKUP+63*, LOOKUP+64*
>> PNM LOOKUP+56, DEMGRPH+16
ROOT GLB~, GLB+18, GLB+20, GLB+21, GLB+22*
>> SSN LOOKUP+56, DEMGRPH+16
STOP LOOKUP+8~, LOOKUP+12*, LOOKUP+18, LOOKUP+22*, LOOKUP+25, LOOKUP+29*, LOOKUP+31*
TAB NEWLN~, NEWLN+2*, NEWLN+3, GLBWRT~, GLBWRT+1, GLB~, GLB+15*, GLB+17, GLB+23
TEXT GLB~, GLB+16, GLB+17, GLB+23
U ACCYR+28, LOOKUP+22, LOOKUP+29, LOOKUP+53, DEMGRPH+17, DEMGRPH+23
VADMVT GETDOCS+15~, GETDOCS+20, GETPCP+10~, GETPCP+28
VAHOW GETDOCS+21~, GETPCP+29~
VAIN GETDOCS+21~, GETPCP+29~
VAIN(11 GETDOCS+24, GETPCP+32
VAIN(2 GETDOCS+23, GETPCP+31
VAINDT GETDOCS+15~, GETDOCS+19*, GETPCP+10~, GETPCP+27*
VAROOT GETDOCS+21~, GETPCP+29~
X LOOKUP+8~, LOOKUP+52*, LOOKUP+53, LOOKUP+54*, GETDOCS+1~, PROVIDR+3~, SELBY+6~, SELBY+8*, SELBY+9
X1 SELBY~, SELBY+7
Y ACCYR+20, ACCYR+22, ACCYR+23, LOOKUP+8~, LOOKUP+21, LOOKUP+28, PROVIDR+3~, PROVIDR+10, SELBY+6~, SELBY+11*
, SELBY+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All