Routine: APSQLAB

Package	Total	Call Graph
Kernel	2	ENDR^%ZISS ($$FMADD,$$FMTE)^XLFDT
VA Fileman	2	^%DT $$GET1^DIQ
Patient Care Component Reports	1	$$START1^APCLDF

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSODRG PSOREF0 PSORENW0

Entry Points

External References

Name	Field # of Occurrence
^%DT	EDATE
ENDR^%ZISS	ONE+23, BEG+9
$$START1^APCLDF	ONE+9
$$GET1^DIQ	ONE+16
$$FMADD^XLFDT	ONE+1
$$FMTE^XLFDT	ONE+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"I CAN'T FIND A PSODFN SO I'M QUITTING THIS SUBROUTINE...CONTACT YOUR SYSTEMS ADMINISTRATOR" Line Location: PRINT+6
Function Call: WRITE	Prompt: !,INFOPCC Line Location: PRINT+12
Function Call: WRITE	Prompt: !,INFOLR Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"*** RESULTS FOR A PANEL CANNOT BE PRINTED! ONLY A LAB TEST RESULT CAN BE PRINTED FOR MARKED DRUGS." Line Location: TWO+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVLAB - [#9000010.09]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	TWO+4, TWO+5
^LAB(60 - [#60]	ONE+14, TWO+10, TWO+12, BEG+6, BEG+10, HILO+1
^LR - [#63]	BEG, BEG+1, BEG+3, BEG+4, BEG+5, BEG+6, BEG+10
^PSDRUG - [#50]	PRINT+9, TWO+8

Label References

Name	Line Occurrences
$$HILO	ONE+20, ONE+24, BEG+6, BEG+10
CLEAN	PRINT+10, PRINT+14
ONE	PRINT+11
TWO	PRINT+11

Naked Globals

Name	Field # of Occurrence
^(	TWO+10
^("CLOZ"	PRINT+9, TWO+8
^(0	TWO+10, BEG+1, BEG+3, BEG+4, HILO+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EDATE!
ARRAY	PRINT+2~, ONE+2*, ONE+9, CLEAN+2!
BDL	BEG*, BEG+1, BEG+3, BEG+4, BEG+5, BEG+6, BEG+10, CLEAN!
DATE	PRINT+2~, ONE+12*, ONE+17, ONE+20, ONE+24, CLEAN+2!
DATELR	PRINT+3~, PRINT+12, TWO+4, BEG+11, CLEAN+1!
DATEPCC	PRINT+3~, PRINT+12, ONE+11, ONE+12, ONE+25, CLEAN+1!
DT	ONE+1, ONE+6
DTBACK	PRINT+2~, ONE+1*, ONE+6, CLEAN+2!
EDL	EDATE*, BEG, CLEAN!
EDT	EDATE*, BEG+12, CLEAN!
ERR	PRINT+2~, ONE+9*, CLEAN+2!
HI	PRINT+3~, ONE+21, BEG+7, HILO+1, HILO+3, HILO+4, CLEAN+3!
INDIC	EDATE, BEG, BEG+6, BEG+10*, BEG+12, CLEAN!
INFO	PRINT+2~, ONE+6, ONE+7, ONE+9, CLEAN+2!
INFOLR	PRINT+3~, PRINT+13, TWO+4, TWO+12, BEG+6, BEG+10, BEG+12*, CLEAN+1!
INFOPCC	PRINT+3~, PRINT+12, ONE+17, ONE+19, ONE+20, ONE+24, CLEAN+1!
>> IORVOFF	ONE+24, BEG+10
>> IORVON	ONE+24, BEG+10
LDN	TWO+10*, BEG+1, BEG+5, BEG+6, BEG+10, CLEAN!
LO	PRINT+3~, ONE+21, BEG+7, HILO+1, HILO+2, HILO+4, CLEAN+3!
LRDFN	TWO+5*, BEG, BEG+1, BEG+3, BEG+4, BEG+5, BEG+6, BEG+10, CLEAN!
MDAYS	PRINT+3~, PRINT+9, PRINT+10, ONE+1, ONE+7, TWO+8, TWO+9, EDATE, CLEAN!
MDRUG	PRINT+9, ONE+7, TWO+8, CLEAN!
>> PSODFN	PRINT+5*, PRINT+6, ONE+6, ONE+7, TWO+4, TWO+5
>> PSODRUG("IEN"	PRINT+9, TWO+8
>> PSOREF("DRUG	IEN" , PRINT+9, TWO+8
>> PSOREF("PSODFN"	PRINT+5
>> PSORENW("DRUG	IEN" , PRINT+9, TWO+8
>> PSORENW("PSODFN"	PRINT+5
RETURN	PRINT+2~, CLEAN+2!
RETURN(1	ONE+10, ONE+11, ONE+13, ONE+15
>> SITE	ONE+16*, ONE+18
TEST	PRINT+2~, ONE+14*, ONE+17, ONE+20, ONE+24, CLEAN+2!
TST	PRINT+3~, PRINT+9, PRINT+10, ONE+6, ONE+14, ONE+20, ONE+24, TWO+8, TWO+9, TWO+10 , TWO+12, BEG+6, BEG+10, HILO~, HILO+1, CLEAN!
TSTN	TWO+10*, BEG+6, BEG+10, BEG+12, CLEAN!
TSTSP	PRINT+3~, PRINT+9, PRINT+10, ONE+18, ONE+20, ONE+24, TWO+8, TWO+9, BEG+3, BEG+6 , BEG+10, HILO~, HILO+1, CLEAN!
VALUE	PRINT+2~, ONE+13, ONE+17, ONE+20, ONE+21, ONE+24, BEG+5, BEG+7, CLEAN+2!
>> VLABIEN	ONE+15*, ONE+16
X	ONE+22, EDATE, BEG+8*, CLEAN!
Y	EDATE, BEG+4*, BEG+6, BEG+10, BEG+11, CLEAN!

Customize PDF page

Package: IHS Changes To Pharmacy

Routine: APSQLAB

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
BEG
TWO	;
CLEAN
PRINT	;EP - Prints most recent lab test value on profile.
ONE	;
EDATE
HILO(TST,TSTSP)