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

Package: Pharmacy Data Management

Routine: PSSTRENG


Information

PSSTRENG ;BIR/RTR-Mismatch Strength Report ;06/28/07

Source Information

Source file <PSSTRENG.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DEV ;
START ;
PASS ;
END ;
ENDX
HD ;
SETD ;
OUT ;
PARN ;
ZERO ;Leading zeros

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will print Dosage information for all entries in the DRUG (#50)",!,"File that have a different Strength than what is in the VA PRODUCT (#50.68)"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"File match. If these drugs have Local Possible Dosages, you need to be careful",!,"when populating the new Dose Unit and Numeric Dose fields to be used for Dosage"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"checks, because the Dosage check will be based on the VA Product. This report",!,"can only identify Strength mismatches if the Drug qualifies for Possible"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !,"Dosages, and a Strength has been defined in the DRUG (#50) File.",!
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !?3,"This report is designed for 132 column format!",!
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: DEV+7
Function Call: WRITE
  • Prompt: !!,"Report queued to print.",!
  • Line Location: DEV+8
Function Call: WRITE
  • Prompt: ?72,"Inactive Date: "_$G(PSSINAD)
  • Line Location: PASS+20
Function Call: WRITE
  • Prompt: !?12,$G(PSSMSG)
  • Line Location: PASS+22
Function Call: WRITE
  • Prompt: $G(PSSUNIT)
  • Line Location: PASS+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PASS+26
Function Call: WRITE
  • Prompt: !?4,"Possible Dosages: "
  • Line Location: PASS+29
Function Call: WRITE
  • Prompt: $S($E($G(PSSD),1)=".":"0",1:"")_$G(PSSD)_$G(PSSUNIT)
  • Line Location: PASS+33
Function Call: WRITE
  • Prompt: ?78,"Package: "_$G(PSSE)
  • Line Location: PASS+33
Function Call: WRITE
  • Prompt: $G(PSSCALC),?78,"Package: "_$G(PSSE)
  • Line Location: PASS+34
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: PASS+36
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: PASS+47
Function Call: WRITE
  • Prompt: !,"No mismatches found."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"End of Report.",!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !
  • Line Location: END+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,"Mismatched Strength Report",?119,"PAGE: "_$G(PSSCT),!,PSSLINE
  • Line Location: HD+3
Info |  Source |  Entry Points |  Interaction Calls