Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: PSJSFRQ

Package: Inpatient Medications

Routine: PSJSFRQ


Information

PSJSFRQ ; SMT - SEARCH FOR ERRONEOUS FREQS ; 4/23/09 3:28pm

Source Information

Source file <PSJSFRQ.m>

Call Graph

Call Graph Total: 8

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
ST() ;status
QUIT ;
EN ;
GETSCH(SCHED) ;
;
; Returns "SCHED^AT^FREQ^PKG"
NAMSP() ;
STOP ;stop job command
RANGE ;
INITXTMP(NAMSP,TITLE,LIFE) ;create ^Xtmp according to SAC std
QUE ;
CHKSDT(ORD) ;
MAIL(MSG,SBJ) ; Send out some mail!
INFO(ORD) ;

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
  • Timeout: $S($G(DTIME):DTIME,1:9999)
  • Variable: PSRUN
  • 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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All