Routine: PSJSFRQ

Package	Total	Call Graph
Kernel	3	^%ZTLOAD ($$FMADD,$$FMTE,$$FMTH,$$HTE,$$NOW)^XLFDT (BMES,MES)^XPDUTL
VA FileMan	3	(,DD)^%DT (C,NOW)^%DTC ^DIR
MailMan	1	^XMD
Registration	1	^VADPT

Entry Points

Name	Comments	DBIA/ICR reference
QUE	;
EN	;
RANGE	;
GETSCH(SCHED)	; ; ; Returns "SCHED^AT^FREQ^PKG"
INFO(ORD)	;
CHKSDT(ORD)	;
MAIL(MSG,SBJ)	; Send out some mail!
NAMSP()	;
STOP	;stop job command
ST()	;status
INITXTMP(NAMSP,TITLE,LIFE)	;create ^Xtmp according to SAC std
QUIT	;

External References

Name	Field # of Occurrence
^%DT	RANGE+5, RANGE+7
DD^%DT	EN+31, EN+32, RANGE+2
C^%DTC	RANGE+4
NOW^%DTC	RANGE+2
^%ZTLOAD	QUE+53
^DIR	QUE+30
^VADPT	EN+41
$$FMADD^XLFDT	INITXTMP+3
$$FMTE^XLFDT	QUE+17
$$FMTH^XLFDT	QUE+31, QUE+34
$$HTE^XLFDT	QUE+38
$$NOW^XLFDT	QUE+31, QUE+42, QUE+45, QUE+47, INITXTMP+2
^XMD	MAIL+4
BMES^XPDUTL	QUE+8, QUE+36, QUE+40, QUE+56, QUE+57
MES^XPDUTL	QUE+9, QUE+37, QUE+38, QUE+39, QUE+55

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"This job has been run before to completion on " Line Location: QUE+16
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!! Line Location: QUE+17
Function Call: WRITE	Prompt: "If you want to run it again, the global subscript ^XTMP('"_NAMSP_"') must be",! Line Location: QUE+18
Function Call: WRITE	Prompt: "deleted prior to doing so.",!! Line Location: QUE+19
Function Call: WRITE	Prompt: !,"Halting..." Line Location: QUE+30
Function Call: WRITE	Prompt: !,"This report will generate a mailman of problem Orders with incorrect frequency" Line Location: EN+2
Function Call: WRITE	Prompt: !,"Please Select, type of order to run this report on",!,"U - Unit Dose",!,"I - IV",!,"UI - Both",!,"Selection:" Line Location: EN+4
Function Call: READ	Variable: PSRUN Timeout: $S($G(DTIME):DTIME,1:9999) Line Location: EN+5
Function Call: WRITE	Prompt: " <??>",$C(7) Line Location: EN+6
Function Call: WRITE	Prompt: !,"TALLY MISSING EXPIRATION DATES Job - set to STOP Soon" Line Location: STOP+2
Function Call: WRITE	Prompt: !!,"Check Status to be sure it has stopped and is not running..." Line Location: STOP+3
Function Call: WRITE	Prompt: !," (D STATUS^PSOTEXP1)" Line Location: STOP+4
Function Call: WRITE	Prompt: !,"* NOT CURRENTLY RUNNING! *",! Line Location: ST+3
Routine Call	DIR Line Location: QUE+30

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.1 - [#51.1]	GETSCH+6, GETSCH+7, GETSCH+9
^PS(55 - [#55]	EN+11, EN+12, EN+13, EN+20, EN+21, EN+22, CHKSDT+12
^PSDRUG - [#50]	EN+43
^XTMP(	QUE+7, QUE+12, QUE+15, QUE+17, QUE+42, QUE+44, QUE+45, QUE+47, QUE+52, STOP+1 , ST+1, ST+2, INITXTMP+4*, QUIT+1
^XUSEC("PSJ RPHARM"	MAIL+3

Label References

Name	Line Occurrences
$$CHKSDT	EN+16
$$GETSCH	EN+15, EN+24
$$INFO	EN+15, EN+24, EN+40
$$NAMSP	QUE+2, STOP+1, ST+1, ST+2
$$ST	STOP+1
INITXTMP	QUE+12
MAIL	EN+48
QUIT	QUE+10, QUE+20, QUE+23, QUE+40
RANGE	EN+8

Naked Globals

Name	Field # of Occurrence
^(	CHKSDT+12
^(0	GETSCH+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, RANGE+1~, RANGE+2
%DT	RANGE+1~, RANGE+5, RANGE+7
%DT("A"	RANGE+5, RANGE+7
%DT(0	RANGE+5, RANGE+7
AT	GETSCH+4~, GETSCH+9, GETSCH+11, INFO+7~, INFO+16, INFO+21*, INFO+23
BEGDT	INITXTMP+1~, INITXTMP+2*, INITXTMP+3, INITXTMP+4
CNT	EN+1~, EN+30, EN+34, EN+35, EN+36, EN+37, EN+38, EN+42, EN+43, EN+44* , EN+45*
DFN	EN+1~, EN+12, EN+13, EN+14, EN+21, EN+22, EN+23, EN+40, INFO+7~, INFO+8 , INFO+10, CHKSDT+4~, CHKSDT+6*, CHKSDT+8, CHKSDT+12
DIFROM	MAIL+1~
>> DILOCKTM	QUE+7
DIR	QUE+24!
DIR("?"	QUE+29*
DIR("A"	QUE+25, QUE+26
DIR("B"	QUE+27*
DIR(0	QUE+28*
DRUG	INFO+7~, INFO+16, INFO+19, INFO+23
DSPDG	INFO+7~, INFO+14*, INFO+16
DTA55	INFO+7!
DTIME	EN+5
DTOUT	QUE+1~, QUE+31
DUOUT	QUE+1~, QUE+30
DUZ	MAIL+3
ERORD	EN+1!, EN+38
ERORD(	EN+16, EN+17, EN+25*, EN+39
ERR	CHKSDT+4~, CHKSDT+9, CHKSDT+14, CHKSDT+15
F	INFO+7~, INFO+9, INFO+10, INFO+13, INFO+14, INFO+15, INFO+16, INFO+20, INFO+21, CHKSDT+4~ , CHKSDT+7, CHKSDT+8, CHKSDT+9
FREQ	GETSCH+4!
FRQ	GETSCH+4~, GETSCH+9, GETSCH+11, INFO+7~, INFO+16, INFO+21*, INFO+23
I	EN+1~, EN+11, EN+12, EN+13, EN+20, EN+21, EN+22, EN+39, EN+40, EN+41~ , EN+43, EN+44, EN+45, GETSCH+4~, GETSCH+7, GETSCH+9, CHKSDT+4~, CHKSDT+11, CHKSDT+12, MAIL+1~ , MAIL+3*
IEN	EN+1~, EN+13, EN+14, EN+22, EN+23
INF	EN+1~, EN+40*, EN+43, EN+44, EN+45
JOBN	QUE+1~, QUE+3*, QUE+8, QUE+12, QUE+25, QUE+37, QUE+40, QUE+50
LIDT	CHKSDT+4~, CHKSDT+11*, CHKSDT+13
LIFE	INITXTMP~, INITXTMP+3
MCNT	EN+1~
MSG	EN+1~, EN+48, MAIL~
MSG(	EN+34, EN+35, EN+36, EN+37, EN+38, EN+42, EN+43, EN+44, EN+45*
NAMSP	QUE+1~, QUE+2*, QUE+7, QUE+12, QUE+15, QUE+17, QUE+18, QUE+42, QUE+44, QUE+45 , QUE+47, QUE+49, QUE+52, INITXTMP~, INITXTMP+4, QUIT+1
ND	CHKSDT+4~, CHKSDT+12*, CHKSDT+14
ND0	INFO+7~, INFO+13, INFO+16, CHKSDT+4~, CHKSDT+9, CHKSDT+11
ND2	CHKSDT+4~, CHKSDT+9*, CHKSDT+11
NOW	RANGE+1~, RANGE+2*, RANGE+4
OINFO	EN+1~, EN+15!, EN+17, EN+24!, EN+25
ORD	EN+1~, EN+14, EN+15, EN+16, EN+17, EN+23, EN+24, EN+25, INFO~, INFO+8 , INFO+9, INFO+10, INFO+12, INFO+18, CHKSDT~, CHKSDT+5, CHKSDT+6, CHKSDT+7, CHKSDT+8, CHKSDT+10 , CHKSDT+12
PATCH	QUE+1~, QUE+4*, QUE+12, QUE+50
PKG	GETSCH+4~, GETSCH+9*, GETSCH+11
PSJQUE	QUE+1~, QUE+49*, EN+2, EN+3, RANGE+4
PSRUN	QUE+1~, QUE+5, EN+3, EN+5*, EN+6, EN+7, EN+10, EN+19
PURGDT	INITXTMP+1~, INITXTMP+3*, INITXTMP+4
QUIT	QUE+1~, QUE+13*
RUNTM	EN+33, RANGE+1!, RANGE+2*
SBJ	MAIL~, MAIL+2
SCH	EN+1~, EN+15!, EN+17, EN+24!, EN+25
SCHED	GETSCH~, GETSCH+5, GETSCH+6, GETSCH+7, GETSCH+11, INFO+7~, INFO+16, INFO+21, INFO+23
SCHTP	INFO+7~, INFO+16, INFO+21, INFO+23
START	EN+1~, EN+8, EN+11, EN+20, EN+31, RANGE+1!, RANGE+4, RANGE+6, RANGE+7
STARTH	EN+1~, EN+31*, EN+37
STAT	INFO+7~, INFO+16, INFO+21, INFO+23
STDT	CHKSDT+4~, CHKSDT+11*, CHKSDT+13, CHKSDT+14
STOP	EN+1~, EN+11, EN+20, EN+32, RANGE+1!, RANGE+4, RANGE+8
STOPH	EN+1~, EN+32*, EN+37
SUBJ	EN+1~, EN+33*, EN+48
TITLE	INITXTMP~, INITXTMP+4
VA	EN+40!
VA("BID"	EN+43
VADM	EN+1~, EN+40!
VADM(1	EN+43
X	EN+1~, RANGE+1~, RANGE+4, INFO+7~, INFO+14*
X1	RANGE+1~, RANGE+4*
X2	RANGE+1~, RANGE+4*
XMDUZ	MAIL+1~, MAIL+2*
XMSUB	MAIL+1~, MAIL+2*
XMTEXT	MAIL+1~, MAIL+2*
XMY	MAIL+1~
XMY(	MAIL+3*
XPDQUES	QUE+58!
XPDQUES("POS2"	QUE+23, QUE+34
Y	QUE+1~, QUE+31, EN+1~, EN+31, EN+32, RANGE+1~, RANGE+2, RANGE+6, RANGE+8
ZTDESC	QUE+1~, QUE+50*
ZTDTH	QUE+1~, QUE+23, QUE+30, QUE+31, QUE+34*, QUE+38, QUE+40
ZTIO	QUE+1~, QUE+49*
ZTQUEUED	QUE+1~
ZTREQ	QUE+1~
ZTRTN	QUE+1~, QUE+49*
ZTSAVE	QUE+1~
ZTSAVE("JOBN"	QUE+51*
ZTSAVE("PSJQUE"	QUE+51*
ZTSAVE("PSRUN"	QUE+51*
ZTSK	QUE+1~, QUE+54, QUE+55

Marked Items

Name	Field # of Occurrence
$T(	NAMSP+1

Customize PDF page

Package: Inpatient Medications

Routine: PSJSFRQ

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items