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: PSJRXI

Package: Inpatient Medications

Routine: PSJRXI


Information

PSJRXI ; IHS/DSD,JCM,RLW - LOGS PHARMACY INTERVENTIONS ;15 May 98 9:28 AM

Source Information

Source file <PSJRXI.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
END
INIT ;
DIC ;
DICX ;
DIE ;
EDIT ;
EDITX
EOJ ;
EN1(PSJORDER) ; Entry Point if have internal rx #
EN1X
EN3(PSJIVDST,CDRG2) ; Entry Point for Clinical Reminders
EN3X
LOOK ;Find Internal Number of 32.3 file

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now creating Pharmacy Intervention",!
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: "For ",$P($G(^PSDRUG(PSJDD,0)),"^"),!
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !!,"Unable to log an intervention for ",$G(PSJRXREQ)
  • Line Location: DICX+2
Function Call: WRITE
  • Prompt: !,"Sorry, someone else is editing this intervention!"
  • Line Location: DIE+3
Function Call: WRITE
  • Prompt: $C(7),!!,"See 'Pharmacy Intervention Menu' if you want to delete this",!,"intervention or for more options.",!
  • Line Location: DIE+20
Function Call: WRITE
  • Prompt: !,$C(7),"No prescription data"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !,$C(7),"No prescription data"
  • Line Location: EN1+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^APSPQA(32.3 - [#9009032.3] FIND1^DIC,  FIND^DIC
^APSPQA(32.4 - [#9009032.4] Classic Fileman Calls
^APSPQA(32.5 - [#9009032.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call