Routine: LRAPUTL

Information

LRAPUTL ;VA/DALOI/WTY - AP UTILITIES;2/26/01

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
Lab Service	5	OE1^LR7OB63D PNAME^LRAPDA END^LRCAPES YN^LRU ^LRUP
VA Fileman	5	^%DT EN^DDIOL $$GET1^DID ($$GET1,GETS)^DIQ ^DIR
Kernel	3	$$FMTE^XLFDT $$CJ^XLFSTR $$GET^XUA4A72
Registration	1	INP^VADPT
Text Integration Utility	1	EXTRACT^TIULQ

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

Entry Points

Name	Comments	DBIA/ICR reference
TIUCHK(LRPTR,LRDFN,LRSS,LRI)	;
ESIGINF(LRESINF,LRDFN,LRSS,LRI)	;Return Esig Info
END	;
RELEASE(LRRELEAS,LRDFN,LRSS,LRI)	;
DEMGRPH(LRAN,LRAD,LRAA)	;Demographics
PG	;Page break
NEWLN(LRTEXT,TAB)	;
LOOKUP(LRDATA,LRYR1,LRAANM,LRAREA,LRYR2,LRAAN)	;
GETDOCS(LRDOCS,LRDFN,LRSS,LRI,LRSF)	;Return PCP and provider
GLBWRT(LRTEXT,TAB)	;Write to global
REFRRL	;Display informational message on referrals
PROVIDR	;Entry of provider taken from PRO^LRCAPES
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
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)

External References

Name	Field # of Occurrence
^%DT	ACCYR+21
EN^DDIOL	LOOKUP+19, LOOKUP+34, REFRRL+9
$$GET1^DID	TIUCHK+21
$$GET1^DIQ	DEMGRPH+4, DEMGRPH+5, DEMGRPH+6, DEMGRPH+7, GETDOCS+5, GETDOCS+6, GETDOCS+14, TIUCHK+14, TIUCHK+15, TIUCHK+24 , PROVIDR+4
GETS^DIQ	RELEASE+13
^DIR	LOOKUP+8, PROVIDR+9, PG+2
OE1^LR7OB63D	LOOKUP+14, LOOKUP+15
PNAME^LRAPDA	LOOKUP+11
END^LRCAPES	PROVIDR+11, PROVIDR+15
YN^LRU	ACCYR+17
^LRUP	LOOKUP+22
EXTRACT^TIULQ	ESIGINF+6
INP^VADPT	GETDOCS+9
$$FMTE^XLFDT	LOOKUP+25, DEMGRPH+8, DEMGRPH+18
$$CJ^XLFSTR	REFRRL+3, REFRRL+6, REFRRL+8
$$GET^XUA4A72	PROVIDR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Data entry for ",LRYRIN," " Line Location: ACCYR+16
Function Call: WRITE	Prompt: ! Line Location: LOOKUP+3
Function Call: WRITE	Prompt: " for "_LRYR1 Line Location: LOOKUP+16
Function Call: WRITE	Prompt: @IOF Line Location: LOOKUP+23
Function Call: WRITE	Prompt: !?3,PNM,?35,SSN,?55,"DOB: ",$$FMTE^XLFDT(DOB,1) Line Location: LOOKUP+24
Function Call: WRITE	Prompt: !?3,PNM,?35,$G(HRCN),?55,"DOB: ",$$FMTE^XLFDT(DOB,1) Line Location: LOOKUP+25
Function Call: WRITE	Prompt: !?5,LRCDT Line Location: DEMGRPH+9
Function Call: WRITE	Prompt: !?10,LRSPECID,! Line Location: DEMGRPH+10
Function Call: WRITE	Prompt: !?15,"PCE ENC # "_^("PCE") Line Location: DEMGRPH+11
Function Call: WRITE	Prompt: @IOF,!?3,PNM,?35,SSN,?55,"DOB: ",$$FMTE^XLFDT(DOB,1),! Line Location: DEMGRPH+17
Function Call: WRITE	Prompt: @IOF,!?3,PNM,?35,$G(HRCN),?55,"DOB: ",$$FMTE^XLFDT(DOB,1),! Line Location: DEMGRPH+18
Function Call: WRITE	Prompt: @IOF Line Location: DEMGRPH+24
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+8 PROVIDR+9 PG+2

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	REFRRL+1
^LAB(60 - [#60]	DEMGRPH+25
^LR - [#63]	LOOKUP+22, LOOKUP+27, DEMGRPH+12, DEMGRPH+15, DEMGRPH+19
^LRO(68 - [#68]	ACCYR+24, LOOKUP+17, LOOKUP+21, LOOKUP+26, DEMGRPH+11, DEMGRPH+20, DEMGRPH+23, PROVIDR+15
^VA(200 - [#200]	PROVIDR+5

Label References

Name	Line Occurrences
DEMGRPH	LOOKUP+36
END	ACCYR+18, ACCYR+20, ACCYR+27, LOOKUP+9
GLB	GLBWRT+1
GLBWRT	NEWLN+3
PG	DEMGRPH+16, DEMGRPH+24
TIUCHK	ESIGINF+4

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ACCYR+17*, ACCYR+18, ACCYR+19, ACCYR+20
>> %DT	ACCYR+21*
>> %DT("A"	ACCYR+21*
>> %DT(0	ACCYR+21*
ATAB	GLBWRT+1, GLBWRT+2, GLB~, GLB+24*
BTAB	NEWLN+1, GLBWRT+1, GLBWRT+2, GLB~, GLB+14*, GLB+15, GLB+17, GLB+18
DA	DEMGRPH+1~
DFN	GETDOCS+1~, GETDOCS+6*
DIR	LOOKUP+2!, LOOKUP+8!, PROVIDR+3~, PG+1~
DIR("?"	LOOKUP+5, LOOKUP+6, LOOKUP+7*
DIR("A"	LOOKUP+4, PROVIDR+6
DIR("B"	PROVIDR+5*
DIR("S"	PROVIDR+8*
DIR(0	LOOKUP+4, PROVIDR+7, PG+2*
DIRUT	PROVIDR+3~, PG+1~, PG+3
>> DOB	LOOKUP+25, DEMGRPH+18
DT	GLB+19, PROVIDR+5
DTOUT	PG+1~
DUOUT	PROVIDR+3~, PG+1~
FTEXT	GLB+12~, GLB+16, GLB+18, GLB+22
>> GROOT	GLBWRT+1
>> HRCN	LOOKUP+25, DEMGRPH+18
IOF	LOOKUP+23, DEMGRPH+18, DEMGRPH+24
IOM	REFRRL+3, REFRRL+6, REFRRL+8
IOSL	DEMGRPH+16, DEMGRPH+24
>> LCT	NEWLN+1*, GLBWRT+1
LINE	GLB~, GLB+20*, GLB+21, GLB+22
>> LR("CK"	LOOKUP+2!
LRAA	LOOKUP+36, DEMGRPH~, DEMGRPH+3, DEMGRPH+6, DEMGRPH+7, DEMGRPH+11, DEMGRPH+20, DEMGRPH+23, PROVIDR+15
LRAAN	LOOKUP~, LOOKUP+17, LOOKUP+21, LOOKUP+26
LRAANM	ACCYR~, ACCYR+14, ACCYR+19!, ACCYR+25, LOOKUP~, LOOKUP+5, LOOKUP+18, LOOKUP+32, END+1!
LRAD	LOOKUP+36, DEMGRPH~, DEMGRPH+3, DEMGRPH+6, DEMGRPH+7, DEMGRPH+11, DEMGRPH+20, DEMGRPH+23, PROVIDR+15
LRAN	LOOKUP+8*, LOOKUP+9, LOOKUP+10, LOOKUP+12, LOOKUP+17, LOOKUP+18, LOOKUP+21, LOOKUP+26, LOOKUP+32, LOOKUP+36 , DEMGRPH~, DEMGRPH+3, DEMGRPH+6, DEMGRPH+7, DEMGRPH+11, DEMGRPH+20, DEMGRPH+23, PROVIDR+15
LRAREA	ACCYR~, ACCYR+14, ACCYR+19!, ACCYR+24, LOOKUP~, LOOKUP+27, END+1!
>> LRAU	LOOKUP+13
LRCDT	DEMGRPH+1~, DEMGRPH+8*, DEMGRPH+9
LRCT	RELEASE+2~, RELEASE+14*, RELEASE+15
LRDATA	LOOKUP~, LOOKUP+3, LOOKUP+9, LOOKUP+12, LOOKUP+13, LOOKUP+20, LOOKUP+35, LOOKUP+37*
LRDATA(1	LOOKUP+13, LOOKUP+37
LRDFN	LOOKUP+13, LOOKUP+21*, LOOKUP+22, LOOKUP+27, LOOKUP+37, DEMGRPH+12, DEMGRPH+15, DEMGRPH+19, GETDOCS~, GETDOCS+3 , GETDOCS+5, GETDOCS+6, GETDOCS+11, RELEASE~, RELEASE+3, RELEASE+7, RELEASE+11, TIUCHK~, TIUCHK+5, TIUCHK+9 , TIUCHK+17, TIUCHK+23, ESIGINF~, ESIGINF+2, ESIGINF+4
LRDOCS	GETDOCS~, GETDOCS+3, GETDOCS+4
LRDOCS(1	GETDOCS+7, GETDOCS+10
LRDOCS(2	GETDOCS+14*
>> LRDPF	REFRRL+1
LREDT	DEMGRPH+1~, DEMGRPH+6*, DEMGRPH+8
>> LREND	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+12, GETDOCS+13, GETDOCS+14, 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+13, LOOKUP+26*, LOOKUP+27, LOOKUP+37, GETDOCS~, GETDOCS+12, RELEASE~, RELEASE+5, RELEASE+11, TIUCHK~ , TIUCHK+9, TIUCHK+23, ESIGINF~, ESIGINF+4
LRIDT	DEMGRPH+1~, DEMGRPH+7*, DEMGRPH+12, DEMGRPH+15, DEMGRPH+19
LRIENS	DEMGRPH+1~, DEMGRPH+3, DEMGRPH+4, DEMGRPH+5, GETDOCS+1~, GETDOCS+11, GETDOCS+12, GETDOCS+14, 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*
LRLINE	GLB+12~, GLB+20*, GLB+23
LRMSG	REFRRL+2, REFRRL+3, REFRRL+5, REFRRL+6, REFRRL+7*, REFRRL+8, REFRRL+9, REFRRL+10!
LRMSG(1	REFRRL+3, REFRRL+4
LRMSG(2	REFRRL+6*
LRMSG(3	REFRRL+8*
>> LRMSG2	REFRRL+1*, REFRRL+2
>> LRNOP	PROVIDR+13, PROVIDR+17
LRPF	GETDOCS+1~, GETDOCS+5*, GETDOCS+8
>> LRPRO	PROVIDR+4, PROVIDR+5, PROVIDR+7, PROVIDR+10, PROVIDR+11
LRPRONM	PROVIDR+3~, PROVIDR+4*, PROVIDR+5
LRPTR	TIUCHK~, TIUCHK+3, TIUCHK+12, TIUCHK+14, TIUCHK+15, TIUCHK+25!, TIUCHK+26!*
LRPTR("D"	TIUCHK+15*, TIUCHK+26
LRQUIT	DEMGRPH+1~, DEMGRPH+2, DEMGRPH+15, DEMGRPH+16, DEMGRPH+23, DEMGRPH+24, DEMGRPH+26, PROVIDR+14, PROVIDR+18, PG+3*
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
LRSF	GETDOCS~, GETDOCS+2*, GETDOCS+3, GETDOCS+14
LRSPC	GLB+12~, GLB+13*, GLB+18
LRSPECID	DEMGRPH+1~, DEMGRPH+4, DEMGRPH+5, DEMGRPH+10
LRSS	DEMGRPH+12, DEMGRPH+15, DEMGRPH+19, GETDOCS~, GETDOCS+2, GETDOCS+3, GETDOCS+4, GETDOCS+12, GETDOCS+13, 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
LRTEXT	NEWLN~, NEWLN+3, GLBWRT~, GLBWRT+1
LRTIUDA	ESIGINF+1~, ESIGINF+4, ESIGINF+5, ESIGINF+6, ESIGINF+7, ESIGINF+8, ESIGINF+9
LRTREC	TIUCHK+2~, TIUCHK+11*, TIUCHK+12, TIUCHK+13
LRX	DEMGRPH+13~, DEMGRPH+15, DEMGRPH+19, DEMGRPH+22, DEMGRPH+23*, DEMGRPH+25
LRYR1	ACCYR+15~, ACCYR+23*, ACCYR+24, ACCYR+28, LOOKUP~, LOOKUP+5, LOOKUP+16, LOOKUP+18
LRYR2	ACCYR+15~, ACCYR+23*, ACCYR+25, ACCYR+28, LOOKUP~, LOOKUP+17, LOOKUP+21, LOOKUP+26, LOOKUP+32
LRYRIN	ACCYR~, ACCYR+14, ACCYR+16, ACCYR+19!, END+1!
LRYROUT	ACCYR~, ACCYR+13, ACCYR+19, ACCYR+26, ACCYR+28
MSG	LOOKUP+18*, LOOKUP+19!, LOOKUP+34!
MSG(1	LOOKUP+29, LOOKUP+30, LOOKUP+31*
MSG(2	LOOKUP+32, LOOKUP+33
>> PNM	LOOKUP+25, DEMGRPH+18
ROOT	GLB~, GLB+19, GLB+21, GLB+22, GLB+23*
TAB	NEWLN~, NEWLN+2, NEWLN+3, GLBWRT~, GLBWRT+1, GLB~, GLB+15, GLB+17, GLB+18, GLB+24
TEXT	GLB~, GLB+16, GLB+18, GLB+24
U	ACCYR+28, LOOKUP+9, DEMGRPH+19, DEMGRPH+25
>> VAIN(2	GETDOCS+10
X	LOOKUP+2!, LOOKUP+21, LOOKUP+22, PROVIDR+3~
Y	ACCYR+20, ACCYR+22, ACCYR+23, LOOKUP+2!, LOOKUP+8, PROVIDR+3~, PROVIDR+10

Customize PDF page

Package: Lab Service

Routine: LRAPUTL

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 20

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: