Routine: PSJRXLAB

Package	Total	Call Graph
VA FileMan	5	^%DT (,$$FIND1,LIST)^DIC ($$GET1,GETS)^DIQ EN^DIQ1 ^DIR
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR
Registration	2	PID^VADPT $$SITE^VASITE

Package	Total	Caller Graph
Inpatient Medications	1	PSJLAB LIST

Entry Points

Name	Comments	DBIA/ICR reference
PSJSITE
BDATE
EDATE
LDATE
DRUG
LABT
PSJSP
PSJUNIT
PSJANS
DEVICE
DQ
LOOP1	;
LOOP2
CHECK1	;
CHECK2	;
LOOP3	;
CHECK3	;
RESULT
PRINT2
HDR
HDR2
PSJORDNI
CLEAN
CLEAN2
FQUIT

External References

Name	Field # of Occurrence
^%DT	BDATE, EDATE, LDATE
^%ZIS	DEVICE
^%ZISC	CLEAN+1
^%ZTLOAD	DEVICE+1
^DIC	LABT, PSJSP
$$FIND1^DIC	CHECK1+2, PSJORDNI+2
LIST^DIC	DRUG+1, LOOP1+1, LOOP3+1
$$GET1^DIQ	LABT+2, PSJUNIT, CHECK1+5, CHECK1+7, CHECK1+8, CHECK2+1, CHECK2+2, PRINT2+2, PSJORDNI, PSJORDNI+3
GETS^DIQ	CHECK3+1
EN^DIQ1	PSJSITE+3
^DIR	LOOP3+7, PRINT2+1, PSJORDNI+6
PID^VADPT	CHECK2+1
$$SITE^VASITE	PSJSITE
$$UP^XLFSTR	DRUG+1, DRUG+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Enter the key word in the Drug Generic name: " Variable: PSJDRUG Timeout: DTIME Line Location: DRUG+0
Function Call: WRITE	Prompt: !,"No corresponding entry, try again or type return to exit" Line Location: DRUG+2
Function Call: WRITE	Prompt: !!,$C(7),"Data Name missing !!",! Line Location: LABT+1
Function Call: WRITE	Prompt: !,"Enter the specimen used in the lab for this test, serum, plasma, blood etc." Line Location: LABT+3
Function Call: WRITE	Prompt: !!,$C(7),"Specimen data missing !!",! Line Location: PSJSP+0
Function Call: READ	Formatting: ! Prompt: "Do you want Order info? N// " Variable: PSJANS Timeout: DTIME Line Location: PSJANS+0
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: PSJANS+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(PSJPROVN,1,20),?106,PSJTYPE,! Line Location: CHECK2+3
Function Call: WRITE	Prompt: ?55,"NO LAB DATA IN RANGE",?81,$E(PSJPROVN,1,20),?106,PSJTYPE,! Line Location: LOOP3+4
Function Call: WRITE	Prompt: ?55,RESULT(J4),! Line Location: LOOP3+6
Function Call: WRITE	Prompt: @IOF,SITE,! Line Location: LOOP3+6
Function Call: WRITE	Prompt: ?55,$E(Y,1,11),?68,RESULT,! 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($$GET1^DIQ(2,PSJPT,.01),1,20),?25,VA("PID") Line Location: PRINT2+2
Function Call: WRITE	Prompt: ?37,Y Line Location: PRINT2+2
Function Call: WRITE	Prompt: SITE,!!,"Patients receiving "_PSJDRUG_" with fills between "_PSJBDR_" and "_PSJEDR,!," with date of collection and results for lab test "_PSJLABTN_" after ",LDATER,! Line Location: HDR+0
Function Call: WRITE	Prompt: !,"Name",?25,"ID#",?37,"Fill Date",?55,"Lab Date",?68,"Results",?81,"Order 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: "Order #: "_$$GET1^DIQ(100,PSJORDN,.01)_" Drug: "_$$GET1^DIQ(50,PSJDGN,.01) Line Location: PSJORDNI+0
Function Call: WRITE	Prompt: ?55,RESULT(1) Line Location: PSJORDNI+1
Function Call: WRITE	Prompt: !?1,"Sig: ",$$GET1^DIQ(100.0451,"1,"_SIGNUM_","_PSJORDN,.01) Line Location: PSJORDNI+3
Function Call: WRITE	Prompt: ?55,RESULT(2) Line Location: PSJORDNI+4
Function Call: WRITE	Prompt: @IOF,SITE,! Line Location: PSJORDNI+5
Function Call: WRITE	Prompt: ! Line Location: PSJORDNI+7
Function Call: WRITE	Prompt: @IOF Line Location: CLEAN+0
Routine Call	DIC Line Location: LABT PSJSP
Routine Call	DIC Line Location: CHECK1+2 PSJORDNI+2
Routine Call	DIC Line Location: DRUG+1 LOOP1+1 LOOP3+1
Routine Call	DIR Line Location: LOOP3+7 PRINT2+1 PSJORDNI+6
Routine Call	%ZIS Line Location: DEVICE

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ, LIST^DIC
100.045	FIND1^DIC, GET1^DIQ
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ, LIST^DIC
^LAB(60 - [#60]	Classic Fileman Calls, GET1^DIQ
60.01	GET1^DIQ
^LAB(61 - [#61]	Classic Fileman Calls
63.04	GETS^DIQ, LIST^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSJSITE+6, BDATE, EDATE, LDATE, RESULT+1, PRINT2+2
^DD(63.04	CHECK3+6
^TMP($J	PSJSITE!, LOOP1+1!, LOOP1+2, LOOP2, CHECK1+4*, CLEAN2+1!
^UTILITY("DIQ1"	PSJSITE!, PSJSITE+4, PSJSITE+5!

Label References

Name	Line Occurrences
CHECK1	LOOP2
CHECK3	LOOP3+3
CLEAN	BDATE, EDATE, LDATE, DRUG, LABT, PSJSP, PSJANS, DEVICE+1, LOOP1+3
CLEAN2	PSJANS, DEVICE
DRUG	DRUG+2
HDR	DQ
HDR2	LOOP3+6, PRINT2, PSJORDNI+5
LOOP2	LOOP1+2
PRINT2	CHECK2+1
PSJANS	PSJANS
PSJORDNI	CHECK2+3, LOOP3+5
RESULT	CHECK3+7

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!
ARR	CHECK3+1~
ARR(	CHECK3+6, RESULT
DA	PSJSITE*, PSJSITE+2, PSJSITE+4, PSJSITE+5!
>> DFN	CHECK2+1*
DIC	PSJSITE+3, PSJSITE+5!, LABT!, PSJSP*, CLEAN2!
DIC(0	LABT, PSJSP
DIQ	PSJSITE!, PSJSITE+5!
DIQ(0	PSJSITE+3*
DIR	LOOP3+7!, PRINT2+1!, PSJORDNI+6!
DIR(0	LOOP3+7, PRINT2+1, PSJORDNI+6*
DR	PSJSITE+3*, PSJSITE+5!
DRGARRAY	DRUG+1~
DRGARRAY("DILIST"	DRUG+2
DT	PSJSITE+6
DTIME	DRUG, PSJANS
DTOUT	LOOP3+7, PRINT2+1, PSJORDNI~, PSJORDNI+6
DUOUT	LOOP3+7, PRINT2+1, PSJORDNI~, PSJORDNI+6
IO	DQ
IO("Q"	DEVICE+1!
IOF	DQ, LOOP3+6, PRINT2, PSJORDNI+5, CLEAN
IOM	HDR2+1
IOP	DEVICE!
IOSL	LOOP3+6, PRINT2, PSJORDNI+5
IOST	LOOP3+7, PRINT2+1, PSJORDNI+6
J	HDR2+1*, CLEAN2!
J1	CLEAN2!
J2	LOOP3+2, LOOP3+3, CLEAN2!
>> J4	LOOP3+6*
KEY	CHECK3+1~*, CHECK3+6, RESULT
LDATE	LDATE*, LOOP3+1, CLEAN2!
LDATER	LDATE*, HDR, CLEAN2!
LRARRAY	LOOP3+1~
LRARRAY("DILIST"	LOOP3+2, LOOP3+3
LRDFN	CHECK2+2*, CHECK2+3, LOOP3+1, CHECK3+1, CLEAN2!
PAGE	DQ, HDR2, CLEAN2!
POP	DEVICE, CLEAN2!
PSCNT	PSJSITE+1~, CHECK1+3, CHECK1+4
PSJ	LOOP1+2~*, LOOP2
PSJANS	PSJANS*, CHECK2+3, LOOP3+5, CLEAN2!
PSJBD	BDATE, DQ, LOOP1+1, LOOP1+2*, LOOP3+2, PRINT2+2, CLEAN2!
PSJBDR	BDATE*, HDR, CLEAN2!
PSJDGN	CHECK1+5*, CHECK1+6, PSJORDNI, CLEAN2!
PSJDRUG	DRUG, DRUG+1, DRUG+3, CHECK1+6, HDR, CLEAN2!
PSJDRUGN	CHECK1+5*, CHECK1+6, CLEAN2!
PSJED	EDATE*, LOOP1+2, CLEAN2!
PSJEDR	EDATE*, HDR, CLEAN2!
PSJINDIC	CHECK2+4, LOOP3+4, RESULT+2, CLEAN2!
PSJLABQ	DQ, LOOP1+2, LOOP3+3, LOOP3+6, LOOP3+7, PRINT2, PRINT2+1, PSJORDNI, PSJORDNI+5, PSJORDNI+6 , CLEAN2!
PSJLABT	LABT+2*, CHECK3+6, CLEAN2!
PSJLABTN	LABT*, HDR, CLEAN2!
PSJLBENT	CHECK2+4, LOOP3+3, CHECK3+1, CLEAN2!
PSJLBT	LABT*, LABT+2, PSJUNIT, CLEAN2!
PSJLDATE	LOOP3+2, LOOP3+3, RESULT+1, CLEAN2!
PSJNUM	CHECK1+1~, CHECK1+2*, CHECK1+5
PSJORDN	LOOP1+2, LOOP2, CHECK1+2, CHECK1+4, CHECK1+5, CHECK1+7, CHECK2+1, PSJORDNI, PSJORDNI+2, PSJORDNI+3 , CLEAN2!
PSJPROT	CHECK1+8*, CHECK1+9, CLEAN2!
PSJPROV	CHECK1+7*, CHECK1+8, CLEAN2!
PSJPROVN	CHECK1+8*, CHECK2+3, LOOP3+4, CLEAN2!
PSJPT	CHECK2+1*, CHECK2+2, PRINT2+2, CLEAN2!
PSJSP	PSJSP*, PSJUNIT, RESULT, CLEAN2!
PSJTYPE	CHECK1+9*, CHECK2+3, LOOP3+4, CLEAN2!
PSJUNIT	PSJUNIT*, CLEAN2!
RESULT	LOOP3+1~, CHECK3+1!, CHECK3+6, CHECK3+7, RESULT+1, PSJORDNI+1
RESULT(	LOOP3+6
RESULT(1	PSJORDNI+1
RESULT(2	PSJORDNI+4
RESULT(3	LOOP3+6
SIGNUM	PSJORDNI+2~*, PSJORDNI+3
SITE	PSJSITE+4, PSJSITE+6, LOOP3+6, PRINT2, HDR, PSJORDNI+5, CLEAN2!
TERM	CHECK3+1~
>> VA("PID"	PRINT2+2
Y	PSJSITE+6, BDATE, EDATE, LDATE, LABT, PSJSP, RESULT+1, PRINT2+2*, CLEAN2!
ZTDESC	DEVICE+1*, CLEAN2+1!
>> ZTQUEUED	CLEAN+1
>> ZTREQ	CLEAN+1*
ZTRTN	DEVICE+1*, CLEAN2+1!
ZTSAVE	CLEAN2+1!
ZTSAVE("*"	DEVICE+1*
ZTSK	DEVICE+1!

Customize PDF page

Package: Inpatient Medications

Routine: PSJRXLAB

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: