Routine: PSJR0103

Package	Total	Call Graph
VA Fileman	4	DD^%DT NOW^%DTC $$GET1^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Inpatient Medications	1	PSJU NSS REPORT

Entry Points

External References

Name	Field # of Occurrence
DD^%DT	START+1
NOW^%DTC	START+1
^%ZIS	SELDEV+3, SELDEV+10
^%ZISC	EXIT+4
^%ZTLOAD	SELDEV+10
$$GET1^DIQ	NSS+7, NSS+10, NSS+16, DAN+8, DAN+11, DAN+16
^DIR	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Nothing on file." Line Location: EN+0
Function Call: WRITE	Prompt: ! Line Location: EN+1
Function Call: WRITE	Prompt: "Enter S to sort the list of orders by Schedule or P to sort by Patient" Line Location: EN+3
Function Call: WRITE	Prompt: ! Line Location: SELDEV+2
Function Call: WRITE	Prompt: !," No device selected " Line Location: SELDEV+3
Function Call: WRITE	Prompt: PSJSCHD,?24,$P(^DPT(PSJPDFN,0),"^"),?51,$$GET1^DIQ(200,$P(DRUG,"^"),.01),?78,PSJORD,"U",?86,$P(^PS(50.7,$P(DRUG,"^",2),0),"^"),?118,$P(DRUG,"^",3),! Line Location: NSS+7
Function Call: WRITE	Prompt: PSJSCHD,?24,$P(^DPT(PSJPDFN,0),"^"),"V",?51,$$GET1^DIQ(200,$P(DRUG,"^"),.01),?78,PSJORD,"V",?86,$S($P(DRUG,"^",2)="A":$P(^PS(52.6,$P(DRUG,"^",3),0),"^"),1:$P(^PS(52.7,$P(DRUG,"^",3),0),"^")),?118,$P(DRUG,"^",4),! Line Location: NSS+10
Function Call: WRITE	Prompt: $P(^DPT(PSJPDFN,0),"^"),?28,$$GET1^DIQ(200,$P(A,"^",2),.01),?57,$P(A,"^"),?78,PSJORD Line Location: NSS+16
Function Call: WRITE	Prompt: "U",?86,$P(^PS(50.7,$P(DRUG,"^"),0),"^"),?118,$P(DRUG,"^",2),! Line Location: NSS+17
Function Call: WRITE	Prompt: "V",?86,$S($P(DRUG,"^")="A":$P(^PS(52.6,$P(DRUG,"^",2),0),"^"),1:$P(^PS(52.7,$P(DRUG,"^",2),0),"^")),?118,$P(DRUG,"^",3),! Line Location: NSS+18
Function Call: WRITE	Prompt: PSJSCHD,?24,$P(^DPT(PSJPDFN,0),"^"),?51,$$GET1^DIQ(200,$P(DRUG,"^"),.01),?78,PSJORD,"U",?86,$P(^PS(50.7,$P(DRUG,"^",2),0),"^"),?118,$P(DRUG,"^",3),! Line Location: DAN+8
Function Call: WRITE	Prompt: PSJSCHD,?24,$P(^DPT(PSJPDFN,0),"^"),?51,$$GET1^DIQ(200,$P(DRUG,"^"),.01),?78,PSJORD,"V",?86,$S($P(DRUG,"^",2)="A":$P(^PS(52.6,$P(DRUG,"^",3),0),"^"),1:$P(^PS(52.7,$P(DRUG,"^",3),0),"^")),?118,$P(DRUG,"^",4),! Line Location: DAN+11
Function Call: WRITE	Prompt: $P(^DPT(PSJPDFN,0),"^"),?28,$$GET1^DIQ(200,$P(A,"^",2),.01),?57,$P(A,"^"),?78,PSJORD Line Location: DAN+16
Function Call: WRITE	Prompt: "U",?86,$P(^PS(50.7,$P(DRUG,"^"),0),"^"),?118,$P(DRUG,"^",2),! Line Location: DAN+17
Function Call: WRITE	Prompt: "V",?86,$S($P(DRUG,"^")="A":$P(^PS(52.6,$P(DRUG,"^",2),0),"^"),1:$P(^PS(52.7,$P(DRUG,"^",2),0),"^")),?118,$P(DRUG,"^",3),! Line Location: DAN+18
Function Call: WRITE	Prompt: ?55,"Non-Standard Schedules",!! Line Location: HDRN+0
Function Call: WRITE	Prompt: "Schedule",?24,"Patient",?51,"Provider",?78,"Order",?86,"OI/Additive/Sol",?118,"Dos/Str/Vol",!! Line Location: HDRN+0
Function Call: WRITE	Prompt: "Patient",?28,"Provider",?57,"Schedule",?78,"Order",?86,"OI/Additive/Sol",?118,"Dos/Str/Vol",!! Line Location: HDRN+1
Function Call: WRITE	Prompt: ?54,"Dangerous Abbreviations",!! Line Location: HDRD+0
Function Call: WRITE	Prompt: "Schedule",?24,"Patient",?51,"Provider",?78,"Order",?86,"OI/Additive/Sol",?118,"Dos/Str/Vol",!! Line Location: HDRD+0
Function Call: WRITE	Prompt: "Patient",?28,"Provider",?57,"Schedule",?78,"Order",?86,"OI/Additive/Sol",?118,"Dos/Str/Vol",!! Line Location: HDRD+1
Function Call: WRITE	Prompt: PSJDATE,?47,"Inpatient Medications Schedule Issues",?120,"PAGE: ",PSJPAG,!! Line Location: HDR+1
Routine Call	DIR Line Location: EN+2
Routine Call	%ZIS Line Location: SELDEV+3 SELDEV+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	NSS+7, NSS+10, NSS+16, DAN+8, DAN+11, DAN+16
^PS(50.7 - [#50.7]	NSS+7, NSS+17, DAN+8, DAN+17
^PS(52.6 - [#52.6]	NSS+10, NSS+18, DAN+11, DAN+18
^PS(52.7 - [#52.7]	NSS+10, NSS+18, DAN+11, DAN+18
^TMP("PSJR0103"	START+1!, NSS+6, NSS+9, NSS+13, NSS+15, DAN!, DAN+7, DAN+10, DAN+13, DAN+15
^XTMP("PSJSC"	EN, NSS+1, NSS+3, NSS+5, NSS+8, DAN+2, DAN+4, DAN+6, DAN+9

Label References

Name	Line Occurrences
DAN	NSS+11
EN	EN+3
EXIT	EN+4, SELDEV+3, SELDEV+5, DAN+12
HDR	NSS+7, NSS+10, NSS+16, HDRN, HDRD
HDRD	DAN, DAN+8, DAN+11, DAN+16
HDRN	NSS

Naked Globals

Name	Field # of Occurrence
^(	NSS+5, NSS+8, NSS+15, DAN+6, DAN+9, DAN+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	START+1, EXIT+1!
%H	EXIT+1!
%I	EXIT+1!
%ZIS	SELDEV+1!, SELDEV+2, SELDEV+9, EXIT+1!
%ZIS("A"	SELDEV+2*
%ZIS("B"	SELDEV+2*
>> A	NSS+15, NSS+16, DAN+15, DAN+16
DIR	EN+1!
DIR("?"	EN+2*
DIR("A"	EN+1*
DIR("B"	EN+1*
DIR(0	EN+1*
>> DRUG	NSS+5, NSS+6, NSS+7, NSS+8, NSS+9, NSS+10, NSS+16, NSS+17, NSS+18, DAN+6 , DAN+7, DAN+8, DAN+9, DAN+10, DAN+11, DAN+16, DAN+17, DAN+18
IO	START+1
IO("Q"	SELDEV+1!, SELDEV+4, SELDEV+5, SELDEV+8!
IOF	EXIT+2, HDR
ION	SELDEV+9
IOP	SELDEV+1!, SELDEV+9, EXIT+4
IOSL	NSS+7, NSS+10, NSS+16, DAN+8, DAN+11, DAN+16
IOST	EXIT+2
POP	SELDEV+1!, SELDEV+3
>> PSGIO	SELDEV+9*
>> PSJDATE	START+1*, HDR+1
>> PSJORD	NSS+4, NSS+5, NSS+6, NSS+7, NSS+8, NSS+9, NSS+10, NSS+14, NSS+15, NSS+16 , DAN+5, DAN+6, DAN+7, DAN+8, DAN+9, DAN+10, DAN+11, DAN+14, DAN+15, DAN+16
>> PSJPAG	START+1, HDR, HDR+1
>> PSJPDFN	NSS+2, NSS+3, NSS+5, NSS+6, NSS+7, NSS+8, NSS+9, NSS+10, NSS+12, NSS+13 , NSS+15, NSS+16, DAN+3, DAN+4, DAN+6, DAN+7, DAN+8, DAN+9, DAN+10, DAN+11 , DAN+12, DAN+13, DAN+15, DAN+16
>> PSJSCHD	NSS, NSS+1, NSS+3, NSS+5, NSS+6, NSS+7, NSS+8, NSS+9, NSS+10, DAN+1* , DAN+2*, DAN+4, DAN+6, DAN+7, DAN+8, DAN+9, DAN+10, DAN+11
>> PSJSORT	EN+5*, NSS+6, NSS+9, NSS+11, DAN+7, DAN+10, DAN+12, HDRN, HDRD
>> TYP	NSS+14, NSS+15, NSS+17, DAN+14, DAN+15, DAN+17
>> XDESC	SELDEV+6*, SELDEV+9
>> Y	EN+3, EN+4, EN+5, START+1
ZTDESC	SELDEV+9*, EXIT+1!
ZTDTH	SELDEV+8!, SELDEV+9*, EXIT+1!
ZTIO	SELDEV+9*, EXIT+1!
>> ZTQUEUED	EXIT+3
>> ZTREQ	EXIT+3*
ZTRTN	SELDEV+7*, EXIT+1!
ZTSAVE	SELDEV+8!, EXIT+1!
ZTSAVE("PSJSORT"	SELDEV+9*
ZTSK	SELDEV+8!

Customize PDF page

Package: Inpatient Medications

Routine: PSJR0103

Information

Source Information

Call Graph

Call Graph Total: 7

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:

Name	Comments	DBIA/ICR reference
EN
HDR
DAN
START	;
HDRD
SELDEV	;* Ask for device type for report to output to *
EXIT	;
HDRN
NSS