Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
55.07 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call