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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSSMRRDG

Package: Pharmacy Data Management

Routine: PSSMRRDG


Information

PSSMRRDG ;BIRMINGHAM/GN/DRP-Diagnostic Report only, does not update ;9/25/15 10:03am

Source Information

Source file <PSSMRRDG.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 7 ^%ZIS  ^%ZISC  $$EC^%ZOSV  (,UNWIND)^%ZTER  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$PATCH^XPDUTL  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Data Management 1 PSS MRR ORDERS DIAGNOSTIC RPT  

Entry Points

Name Comments DBIA/ICR reference
EN(P1) ;Check for MRR meds missing the 2.1 node which is new and would be
MAIN ; main control
CHKORD ;check if Order qualifies and then print on report
; return mrrfl which is positive or true (1,2,3)
PRINT ;
HDR ;Write a heading on report
H1 ; heading for Pre-PSJ315 install
H2 ; heading for Post-PSJ315 install
BODY ;
WRITELN ;Write line on report
PAUSE ;
CLINIC(CL) ;Is this a Clinic order that would show on the VDL in CO mode also?
TST(P2) ;
ERRTRP ; Error trap processing

External References

Name Field # of Occurrence
^%ZIS EN+5
^%ZISC EN+7
$$EC^%ZOSV ERRTRP+2
^%ZTER ERRTRP+5
UNWIND^%ZTER ERRTRP+6
^%ZTLOAD EN+8
$$GET1^DIQ CHKORD+9
$$FMTE^XLFDT HDR+3
$$NOW^XLFDT HDR+3
$$PATCH^XPDUTL MAIN+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: $C(7),!?5,"It is recommended to Queue this report to a printer for Large sites, enter Q at Device prompt",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Total Orders found: ",ORDTOT,!
  • Line Location: MAIN+33
Function Call: READ
  • Variable: X
  • Timeout: $G(DTIME)
  • Line Location: MAIN+34
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue....."
  • Line Location: MAIN+34
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$E($$FMTE^XLFDT($$NOW^XLFDT),1,18),?125,"Page ",PAGNO
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?2,"The following ACTIVE Orders are for Medications Requiring Removal (MRR). Prior to Installation of PSJ*5*315 these orders"
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,?2,"should be reviewed for planning purposes, but no action taken. Once PSJ*5*315 is installed they will need to be d/c'd and"
  • Line Location: H1+2
Function Call: WRITE
  • Prompt: !,?2,"re-entered after coordinating with your ADPAC."
  • Line Location: H1+3
Function Call: WRITE
  • Prompt: !,?2,"The following ACTIVE orders for medications that Require Removal (MRR) were finished prior to install of Patch PSJ*5*315."
  • Line Location: H2+1
Function Call: WRITE
  • Prompt: !,?2,"These orders must be re-entered. They may not be copied, renewed or edited to create new orders."
  • Line Location: H2+2
Function Call: WRITE
  • Prompt: !,?33,"Any changes to these orders should be coordinated with your ADPAC."
  • Line Location: H2+3
Function Call: WRITE
  • Prompt: !!,?50," Sort by Patient within Ward "_$G(PSSLOC,"NONE FOUND")
  • Line Location: BODY+1
Function Call: WRITE
  • Prompt: !!,"Patient",?10,"Patient",?30,"Orderable",?75,"Ordr",?80,"MRR"
  • Line Location: BODY+2
Function Call: WRITE
  • Prompt: !,"ID",?10,"Loc",?30,"Item Name",?75,"Sts",?80,"Val"
  • Line Location: BODY+3
Function Call: WRITE
  • Prompt: !,LIN
  • Line Location: BODY+5
Function Call: WRITE
  • Prompt: !,PSSID,?10,PSSLOC,?30,DDTXT,?76,STS,?81,MRR
  • Line Location: WRITELN+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue, '^' to exit"
  • Line Location: PAUSE+3
Function Call: READ
  • Variable: X
  • Timeout: $G(DTIME)
  • Line Location: PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • EN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
55.07 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] MAIN+26, CHKORD+8
^PS(50.7 - [#50.7] MAIN+10
^PS(53.46 - [#53.46] CLINIC+2, CLINIC+3, CLINIC+4
^PS(55 - [#55] MAIN+17, MAIN+19, MAIN+21, MAIN+22, MAIN+23, CHKORD+2, CHKORD+3, CHKORD+7, CHKORD+8
^PSDRUG - [#50] MAIN+9
^PSDRUG("ASP" MAIN+7, MAIN+8
^SC - [#44] CHKORD+8
^TMP("PSSMRRDG" MAIN+31, MAIN+35!, CHKORD+10*, PRINT+2, PRINT+4, PRINT+5

Label References

Name Line Occurrences
$$CLINIC CHKORD+8
BODY HDR+4, HDR+5
CHKORD MAIN+27
EN TST+2
H1 HDR+4
H2 HDR+5
HDR MAIN+32, PRINT+3
MAIN EN+7
PAUSE PRINT+7, PRINT+9
PRINT MAIN+31
WRITELN PRINT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+5!*
%ZIS("B" EN+5*
A CLINIC+3~*, CLINIC+4
CL CLINIC~, CLINIC+1, CLINIC+2, CLINIC+3
CLNODE MAIN+2~, MAIN+23*, CHKORD+8
DDOI MAIN+1~, CHKORD+3*, CHKORD+4
DDTXT MAIN+1~, CHKORD+9*, CHKORD+10, PRINT+5*, WRITELN+1
DFN MAIN+1~, MAIN+18*, MAIN+19*, MAIN+21, MAIN+22, MAIN+23, MAIN+26, CHKORD+2, CHKORD+3, CHKORD+7
, CHKORD+8, CHKORD+9
DT MAIN+16
DTIME MAIN+34, PAUSE+4
IO EN+7, PAUSE+5
IO("Q" EN+7, EN+8!
IOF HDR+2
IOP EN+5!
IOSL EN+7, PRINT+7
IOST EN+6, EN+7
LIN MAIN+2~, BODY+4*, BODY+5
MRR MAIN+1~, CHKORD+4*, CHKORD+5, CHKORD+10, PRINT+5*, WRITELN+1
MRRAR MAIN+1~
MRRAR( MAIN+11*, CHKORD+4
MRRFL MAIN+2~, MAIN+10*, MAIN+11
OI MAIN+2~, MAIN+9*, MAIN+10, MAIN+11
ORD MAIN+1~, MAIN+20*, MAIN+21*, MAIN+22, MAIN+23, CHKORD+2, CHKORD+3, CHKORD+7, CHKORD+8, CHKORD+9
ORDSDT MAIN+1~, MAIN+16*, MAIN+17*, MAIN+19, MAIN+21
ORDTOT MAIN+1~, MAIN+16*, MAIN+32, MAIN+33, PRINT+6*
P1 EN~, MAIN+4*, CHKORD+7, TST+1*, TST+2
P2 MAIN+5, TST~, TST+1*
PAGNO MAIN+2~, MAIN+16*, HDR+1*, HDR+3
POP EN+5, MAIN+2~
PROBLEM ERRTRP+1~, ERRTRP+4*
PSSID MAIN+1~, MAIN+26*, CHKORD+10, PRINT+3*, PRINT+4*, PRINT+5, WRITELN+1
PSSLOC MAIN+1~, CHKORD+8*, CHKORD+10, PRINT+1*, PRINT+2*, PRINT+4, PRINT+5, BODY+1, WRITELN+1
PSSPATCH MAIN+1~, MAIN+5*, HDR+4
PSSQ MAIN+1~, MAIN+16*, MAIN+33, PRINT+2, PRINT+4, PRINT+7, PRINT+9, PAUSE+4*
QQ MAIN+1~, MAIN+7*, MAIN+8, CHKORD+2*, CHKORD+9
STP MAIN+1~
STR PRINT+1~, PRINT+5*
STS MAIN+1~, MAIN+22*, MAIN+25, CHKORD+10, PRINT+5*, WRITELN+1
TERM EN+7~*, PAUSE+1
U MAIN+9, MAIN+10, MAIN+22, MAIN+26, CHKORD+3, CHKORD+8, CHKORD+10, PRINT+5
X MAIN+34*, PAUSE+2~, PAUSE+4*
YY MAIN+1~, MAIN+8*, MAIN+9
Z ERRTRP+1~, ERRTRP+3*
Z(1 ERRTRP+2*
>> ZTDESC EN+8*
>> ZTRTN EN+8*
ZTSK EN+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All