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

Package: Outpatient Pharmacy

Routine: PSORXI


Information

PSORXI ;IHS/DSD/JCM - logs pharmacy interventions ;03/19/93 11:56

Source Information

Source file <PSORXI.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
END
INIT ;
DIC ;
DICX
DIE ;
EDIT ;
EDITX
DUPINV ;Duplicate and file intervention
EOJ ;
EN1(PSOX) ; Entry Point if have internal rx #
EN1X ;
EN2(PSOIVDST,PSOX) ; Entry Point for dose interventions with a prescription
EN2X
EN3(PSOIVDST) ; Entry Point for dose interventions without a prescription
EN3X
ENPGX(PSOIVDST,PSORXIEN) ; entry point for PGx interventions ; pso*7*737
; PSOIVDST = APSP intervention type (external representation)
; PSORXIEN = Prescription IEN from file 52 (populated for VERIFY and REINSTATE actions only)
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(PSODRUG("IEN"),0)),"^"),!
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: $C(7),!!,"See 'Pharmacy Intervention Menu' if you want to delete this",!,"intervention or for more options.",!
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITX+0
Function Call: WRITE
  • Prompt: !,"Error Retrieving Last Duplicate..."
  • Line Location: DUPINV+4
Function Call: WRITE
  • Prompt: !,"Error Encountered Filing Duplicate..."
  • Line Location: DUPINV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DUPINV+19
Function Call: WRITE
  • Prompt: !,$C(7),"No prescription data"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,$C(7),"No prescription data"
  • Line Location: EN2+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
^APSPQA(32.3 - [#9009032.3] FIND1^DIC
^APSPQA(32.4 - [#9009032.4] Classic Fileman Calls,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call