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

Package: Pharmacy Data Management

Routine: PSSUTLPR


Information

PSSUTLPR ;BIR/RTR-Pre release utility routine ;02/14/00

Source Information

Source file <PSSUTLPR.m>

Entry Points

Name Comments DBIA/ICR reference
TEXT ;Text for pre-release report
INS ;Convert non-numeric Instructions to Nouns
INSQ
NOUN ;Enter/edit Nouns
NOUNA
NOUNC
NOUNQ
CHECK ;Check for running conversion
TRAC ;
TRACQ
FRE ;
FREQ
FRRP ;
ENF ;
ENFH ;
SLS ;Called from PSSORUTL
SLSQ
ADDRP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The current Orderable Item structure keeps Additives and Solutions matched to",!,"Orderable Items flagged for IV use. All Dispense Drugs are currently matched to",!,"Orderable Items that are not flagged for IV Use. This was done"
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: " to control "
  • Line Location: TEXT+2
Function Call: WRITE
  • Prompt: !,"the finishing process of IV and Unit Dose orders entered through CPRS.",!,"The new Orderable Item structure will inactivate all IV flagged Orderable",!,"Items. All Additives and Solutions will be re-matched to non-IV flagged"
  • Line Location: TEXT+3
Function Call: WRITE
  • Prompt: !,"Orderable Items, based on their Dispense Drug links.",!
  • Line Location: TEXT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TEXT+5
Function Call: WRITE
  • Prompt: !!,"This option will move all non-numeric Instructions to the Noun field in the",!,"Dosage Form file. If you do this, you will then need to review the Nouns and decide to mark them for Inpatient, Outpatient or both."
  • Line Location: INS+3
Function Call: WRITE
  • Prompt: !!,"Nothing converted.",!
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: !,"Converting.."
  • Line Location: INS+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: INS+11
Function Call: WRITE
  • Prompt: !,"Finished converting Instructions to Nouns!"
  • Line Location: INS+12
Function Call: WRITE
  • Prompt: !
  • Line Location: INSQ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NOUN+3
Function Call: WRITE
  • Prompt: !!?2,"Dosage Form => ",$P($G(^PS(50.606,+PSSDOSE,0)),"^"),!
  • Line Location: NOUNA+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NOUNC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NOUNQ+0
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !!,"Cannot use this option, Dosage conversion is currently running!",!
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TRAC+7
Function Call: WRITE
  • Prompt: !,?15,"Dosage Conversion Tracker Status",!
  • Line Location: TRAC+7
Function Call: WRITE
  • Prompt: !,?15,"Dosage Conversion Tracker Status",!
  • Line Location: TRAC+7
Function Call: WRITE
  • Prompt: !,"The Dosage conversion has never been run!",!
  • Line Location: TRAC+8
Function Call: WRITE
  • Prompt: !,"The Dosage conversion is queued to run at "_$G(PSZSTA),!,"It was queued by "_$G(PSZWHO),!
  • Line Location: TRAC+9
Function Call: WRITE
  • Prompt: !,"The Dosage conversion is currently running.",!,"It started at "_$G(PSZSTA),!
  • Line Location: TRAC+10
Function Call: WRITE
  • Prompt: !,"The Dosage conversion was last run by "_$G(PSZWHO),!,"It started on "_$G(PSZSTA)_" and ended on "_$G(PSZSTO),!
  • Line Location: TRAC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: TRACQ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TRACQ+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FRE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: FRE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FREQ+0
Function Call: WRITE
  • Prompt: !!,"This report shows the MEDICATION INSTRUCTION file entries, along with the",!,"Synonym, Frequency and Expansion. Use the Edit Medication Instruction",!,"Frequency option to enter appropriate frequencies.",!
  • Line Location: FRRP+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!!
  • Line Location: FRRP+2
Function Call: WRITE
  • Prompt: !,"Report queued to print."
  • Line Location: FRRP+3
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: ENF+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ENF+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENF+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENFH+2
Function Call: WRITE
  • Prompt: !?5,"MEDICATION INSTRUCTION FREQUENCY REPORT"_$S($G(PSSCT)=1:"",1:" (cont.)"),?68,"PAGE: "_$G(PSSCT)
  • Line Location: ENFH+2
Function Call: WRITE
  • Prompt: !!,"NAME",?10,"SYNONYM",?21,"FREQUENCY",?34,"EXPANSION",!,PSSLINE,!
  • Line Location: ENFH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDRP+1
Function Call: WRITE
  • Prompt: !!?3,"*** THIS REPORT IS DESIGNED FOR 132 COLUMNS ***",!
  • Line Location: ADDRP+2
Function Call: WRITE
  • Prompt: !,"Nothing queued to print.",!
  • Line Location: ADDRP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDRP+3
Function Call: WRITE
  • Prompt: !,"Report queued to print."
  • Line Location: ADDRP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(50.606 - [#50.606] Classic Fileman Calls
^PS(51 - [#51] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call