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
Print Page as PDF
Routine: PSSDOSRP

Package: Pharmacy Data Management

Routine: PSSDOSRP


Information

PSSDOSRP ;BIR/RTR-Dosage review report ;03/24/00

Source Information

Source file <PSSDOSRP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASK ;
ASKA
DEV
START ;
PASS ;
END ;
ENDX
HD ;
SETD ;
OUT ;
PARN ;
ZERO ;Leading zeros
NEW ;new fields added with patch PSS*1*129
NEWX ;new fields added with patch PSS*1*129

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"To see drugs beginning with the letter 'A', enter 'A', or whichever letter you",!,"wish to see. To see drugs in a range, for example drugs starting with the",!,"letters 'G', 'H', 'I' and 'J', enter in the format 'G-J'.",!
  • Line Location: ASKA+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ASKA+3
Function Call: WRITE
  • Prompt: !!,"Invalid response, enter a letter, 'A', 'B', etc., or a range, 'C-F', 'M-R', etc.",!
  • Line Location: ASKA+4
Function Call: WRITE
  • Prompt: !!,"Invalid response.",!
  • Line Location: ASKA+5
Function Call: WRITE
  • Prompt: !!,"Report will be for drugs starting with the letter "_$G(PSSBEG)_",",!,"and ending with drugs starting with the letter "_$G(PSSEND)_".",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !!,"This report will be for drugs with leading numerics.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"This report will be for all drugs.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: $C(7),!!?3,"This report is designed for 132 column format!",!
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: ?72,"Inactive Date: "_$G(PSSINAD)
  • Line Location: PASS+14
Function Call: WRITE
  • Prompt: !?12,$G(PSSMSG)
  • Line Location: PASS+16
Function Call: WRITE
  • Prompt: ?43,"Units: "
  • Line Location: PASS+19
Function Call: WRITE
  • Prompt: $G(PSSUNIT)
  • Line Location: PASS+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PASS+20
Function Call: WRITE
  • Prompt: !?4,"Possible Dosages: "
  • Line Location: PASS+23
Function Call: WRITE
  • Prompt: $S($E($G(PSSD),1)=".":"0",1:"")_$G(PSSD)_$G(PSSUNIT)
  • Line Location: PASS+27
Function Call: WRITE
  • Prompt: ?78,"Package: "_$G(PSSE)
  • Line Location: PASS+27
Function Call: WRITE
  • Prompt: $G(PSSCALC),?78,"Package: "_$G(PSSE)
  • Line Location: PASS+28
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: PASS+30
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: PASS+36
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,$S(PSSSRT="N":"Dosage report for drugs with leading numerics",PSSSRT="A":"Dosage report for all drugs",1:"Dosage report for drugs from "_PSSBEG_" through "_PSSEND)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: ?94,"Outpatient Expansion",?119,"PAGE: "_$G(PSSCT),!,PSSLINE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !?6,"Numeric Dose: "_$G(PSSYWNN),?46,"Dose Unit: "_$S($G(PSSYWD):$P($G(^PS(51.24,+PSSYWD,0)),"^"),1:""),?92,"Package: ",$P($G(^PSDRUG(PSSIEN,"DOS2",PSSB,0)),"^",2)
  • Line Location: NEW+5
Function Call: WRITE
  • Prompt: !,?3,"Note: Strength of "_PSSYWFSS_" does not match NDF strength of "_PSSYWNDS_"."
  • Line Location: NEWX+12
Function Call: WRITE
  • Prompt: !?3,"VA PRODUCT MATCH: "_$P(PSSYWNDN,"^")
  • Line Location: NEWX+14
Info |  Source |  Entry Points |  Interaction Calls