Routine: PSORXLAB

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC EN^DIQ1 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	2	FSIG^PSOUTLA EN2^PSOUTLA1
Registration	2	PID^VADPT $$SITE^VASITE

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOLAB LIST

Entry Points

External References

Name	Field # of Occurrence
^%DT	BDATE, EDATE, LDATE
^%ZIS	DEVICE
^%ZISC	CLEAN
^%ZTLOAD	DEVICE+1
^DIC	LABT, ANQSP
EN^DIQ1	ANQSITE+2
^DIR	PRINT2+1, ANQRXI+6
FSIG^PSOUTLA	ANQRXI+1
EN2^PSOUTLA1	ANQRXI+2
PID^VADPT	CHECK2+1
$$SITE^VASITE	ANQSITE

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Enter the key word in the Drug Generic name: " Formatting: ! Timeout: DTIME Variable: ANQDRUG Line Location: DRUG+0
Function Call: WRITE	Prompt: !,"No corresponding entry, try again or type return to exit" Line Location: DRUG+1
Function Call: WRITE	Prompt: !!,$C(7),"Data Name missing !!",! Line Location: LABT+0
Function Call: WRITE	Prompt: !,"Enter the specimen used in the lab for this test, serum,plasma,blood etc." Line Location: LABT+2
Function Call: WRITE	Prompt: !!,$C(7),"Specimen data missing !!",! Line Location: ANQSP+0
Function Call: READ	Prompt: "Do you want Rx info? N// " Formatting: ! Timeout: DTIME Variable: ANQANS Line Location: ANQANS+0
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: ANQANS+0
Function Call: WRITE	Prompt: @IOF Line Location: DQ+0
Function Call: WRITE	Prompt: ! Line Location: CHECK2+1
Function Call: WRITE	Prompt: ?55,"No lab data exists",?81,$E(ANQPROVN,1,20),?106,ANQTYPE,! Line Location: CHECK2+2
Function Call: WRITE	Prompt: ?55,"NO LAB DATA IN RANGE",?81,$E(ANQPROVN,1,20),?106,ANQTYPE,! Line Location: LOOP3+1
Function Call: WRITE	Prompt: ?55,$E(Y,1,11),?70,$P(^LR(LRDFN,"CH",ANQLBENT,ANQLABT),"^")_" "_ANQUNIT,?81,$E(ANQPROVN,1,20),?106,ANQTYPE Line Location: RESULT+1
Function Call: WRITE	Prompt: ! Line Location: RESULT+1
Function Call: WRITE	Prompt: @IOF,SITE,! Line Location: PRINT2+0
Function Call: WRITE	Prompt: ?1,$E($P(^DPT(ANQPT,0),"^"),1,20),?25,VA("PID") Line Location: PRINT2+2
Function Call: WRITE	Prompt: ?43,Y Line Location: PRINT2+2
Function Call: WRITE	Prompt: SITE,!!,"Patients receiving "_ANQDRUG_" with fills between "_ANQBDR_" and "_ANQEDR,!," with date of collection and results for lab test "_ANQLABTN_" after ",LDATER,! Line Location: HDR+0
Function Call: WRITE	Prompt: !,"Name",?25,"ID#",?43,"Fill Date",?55,"Lab Date",?71,"Results",?81,"Rx Provider",?106,"Type",?116,"Page "_PAGE,! Line Location: HDR2+0
Function Call: WRITE	Prompt: "_" Line Location: HDR2+1
Function Call: WRITE	Prompt: ! Line Location: HDR2+2
Function Call: WRITE	Prompt: "Rx #: "_$P(^PSRX(ANQRX,0),"^")_" Drug: "_$P(^PSDRUG(ANQDGN,0),"^") Line Location: ANQRXI+0
Function Call: WRITE	Prompt: !?1,"Sig: ",$G(BSIG(1)) Line Location: ANQRXI+3
Function Call: WRITE	Prompt: !?6,$G(BSIG(PSREV)) Line Location: ANQRXI+4
Function Call: WRITE	Prompt: @IOF,SITE,! Line Location: ANQRXI+5
Function Call: WRITE	Prompt: ! Line Location: ANQRXI+7
Function Call: WRITE	Prompt: @IOF Line Location: CLEAN+0
Routine Call	DIC Line Location: LABT ANQSP
Routine Call	DIR Line Location: PRINT2+1 ANQRXI+6
Routine Call	%ZIS Line Location: DEVICE

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls
^LAB(61 - [#61]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ANQSITE+5, BDATE, EDATE, LDATE, RESULT+1, PRINT2+2
^DPT - [#2]	CHECK2+2, CHECK2+3, PRINT2+2
^LAB(60 - [#60]	LABT, LABT+1, ANQUNIT
^LR - [#63]	LOOP3, CHECK3, RESULT, RESULT+1
^PSDRUG - [#50]	CHECK1, ANQRXI
^PSDRUG("B"	DRUG+1
^PSRX - [#52]	LOOP2, CHECK1, CHECK1+2, CHECK2, CHECK2+1, ANQRXI, ANQRXI+1, ANQRXI+2
^PSRX("AD"	LOOP1, LOOP2
^TMP($J	DQ!
^UTILITY("DIQ1"	ANQSITE!, ANQSITE+3, ANQSITE+4!
^VA(200 - [#200]	CHECK1+2

Label References

Name	Line Occurrences
ANQANS	ANQANS
ANQRXI	CHECK2+2, LOOP3+2
CHECK1	LOOP2
CHECK3	LOOP3
CLEAN	BDATE, EDATE, LDATE, DRUG, LABT, ANQSP, ANQANS, DEVICE+1, LOOP1+1
CLEAN2	ANQANS, DEVICE
DRUG	DRUG+1
HDR	DQ
HDR2	PRINT2, ANQRXI+5
LABT	LABT
LOOP2	LOOP1
PRINT2	CHECK2+1
RESULT	CHECK3

Naked Globals

Name	Field # of Occurrence
^(0	RESULT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BDATE*, CLEAN2!
%DT("A"	BDATE, EDATE, LDATE*
%ZIS	DEVICE*, CLEAN2+1!
ANQANS	ANQANS*, CHECK2+2, LOOP3+2, CLEAN2!
ANQBD	BDATE, DQ, LOOP1*, LOOP2, PRINT2+2, CLEAN2!
ANQBDR	BDATE*, HDR, CLEAN2!
ANQDGN	CHECK1*, ANQRXI, CLEAN2!
ANQDRUG	DRUG*, DRUG+1, CHECK1+1, HDR, CLEAN2!
ANQDRUGN	CHECK1*, CHECK1+1, CLEAN2!
ANQED	EDATE*, LOOP1, CLEAN2!
ANQEDR	EDATE*, HDR, CLEAN2!
ANQINDIC	CHECK2+3, LOOP3+1, RESULT+2, CLEAN2!
ANQLABT	LABT+1*, CHECK3, RESULT+1, CLEAN2!
ANQLABTN	LABT*, HDR, CLEAN2!
ANQLBENT	CHECK2+3, LOOP3, CHECK3, RESULT, RESULT+1, CLEAN2!
ANQLBT	LABT*!, LABT+1, ANQUNIT, CLEAN2!
ANQLDATE	LOOP3*, RESULT+1, CLEAN2!
ANQPROT	CHECK1+2*, CHECK1+3, CLEAN2!
ANQPROV	CHECK1+2*, CLEAN2!
ANQPROVN	CHECK1+2*, CHECK2+2, LOOP3+1, RESULT+1, CLEAN2!
ANQPT	CHECK2+1*, CHECK2+2, CHECK2+3, PRINT2+2, CLEAN2!
ANQRX	LOOP1, LOOP2, CHECK1, CHECK1+2, CHECK2, CHECK2+1, ANQRXI, ANQRXI+1, ANQRXI+2, CLEAN2!
ANQSP	ANQSP*, ANQUNIT, RESULT, CLEAN2!
ANQTYPE	CHECK1+3*, CHECK2+2, LOOP3+1, RESULT+1, CLEAN2!
ANQUNIT	ANQUNIT*, RESULT+1, CLEAN2!
BSIG	ANQRXI+1!
BSIG(	ANQRXI+1*, ANQRXI+4
BSIG(1	ANQRXI+3, ANQRXI+4
DA	ANQSITE*, ANQSITE+1, ANQSITE+3, ANQSITE+4!
>> DFN	CHECK2+1*
DIC	ANQSITE+2, ANQSITE+4!, LABT!, ANQSP*, CLEAN2!
DIC(0	LABT, ANQSP
DIQ	ANQSITE!, ANQSITE+4!
DIQ(0	ANQSITE+2*
DIR	PRINT2+1!, ANQRXI+6!
DIR(0	PRINT2+1, ANQRXI+6
DR	ANQSITE+2*, ANQSITE+4!
DT	ANQSITE+5
DTIME	DRUG, ANQANS
>> DTOUT	PRINT2+1, ANQRXI+6
>> DUOUT	PRINT2+1, ANQRXI+6
FSIG	ANQRXI+1!, ANQRXI+2!
FSIG(	ANQRXI+1
IO	DQ
IO("Q"	DEVICE+1!
IOF	DQ, PRINT2, ANQRXI+5, CLEAN
IOM	HDR2+1
IOP	DEVICE!
IOSL	PRINT2, ANQRXI+5
IOST	PRINT2+1, ANQRXI+6
J	LOOP1, HDR2+1, CLEAN2!
J1	CLEAN2!
J2	LOOP2, LOOP3, CLEAN2!
LDATE	LDATE*, LOOP3, CLEAN2!
LDATER	LDATE*, HDR, CLEAN2!
LRDFN	CHECK2+3*, LOOP3, CHECK3, RESULT, RESULT+1, CLEAN2!
PAGE	DQ, HDR2, CLEAN2!
POP	DEVICE, CLEAN2!
PSOLABQ	DQ, LOOP1, LOOP2, LOOP3, PRINT2, PRINT2+1, ANQRXI, ANQRXI+5, ANQRXI+6*, CLEAN2!
PSREV	ANQRXI+1, ANQRXI+2!, ANQRXI+4
SITE	ANQSITE+3, ANQSITE+5, PRINT2, HDR, ANQRXI+5, CLEAN2!
>> VA("PID"	PRINT2+2
Y	ANQSITE+5, BDATE, EDATE, LDATE, LABT!, ANQSP, RESULT+1, PRINT2+2*, CLEAN2!
ZTDESC	DEVICE+1*, CLEAN2+1!
>> ZTQUEUED	CLEAN
>> ZTREQ	CLEAN*
ZTRTN	DEVICE+1*, CLEAN2+1!
ZTSAVE	CLEAN2+1!
ZTSAVE("*"	DEVICE+1*
ZTSK	DEVICE+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORXLAB

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: