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

Package: Pharmacy Data Management

Routine: PSSLDOSE


Information

PSSLDOSE ;BIR/RTR-Local Possible Dosages Report ;06/22/07

Source Information

Source file <PSSLDOSE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
START ;Print Local Possible Dosages Report
END ;
HD ;Report Header
MESS ;
TEST() ;Test to see if Drug meets criteria

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will print Local Possible Dosage information only for Drugs for"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"which Dosage Checks can be performed. Drugs that are inactive, marked and/or"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"classed as supply items, not matched to NDF or excluded from dosage checks (due"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"to dosage form or VA Product override) will not be included in this report."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Users will be able to print Local Possible Dosage information for all eligible"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"drugs or only for drugs with missing data in the Numeric Dose and Dose Unit"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"fields. These two fields must be populated to perform Dosage Checks for a Local"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Possible Dosage selected when placing a Pharmacy order."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"This report is designed for 132 column format!",!
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"Report queued to print.",!
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !?12,PSSKZMSG
  • Line Location: START+26
Function Call: WRITE
  • Prompt: $G(PSSKZUNZ)
  • Line Location: START+28
Function Call: WRITE
  • Prompt: !
  • Line Location: START+29
Function Call: WRITE
  • Prompt: "(None)"
  • Line Location: START+47
Function Call: WRITE
  • Prompt: !?3,"Note: Strength of "_PSSKZSTR_" does not match NDF strength of "_PSSKZNN2_"."
  • Line Location: START+53
Function Call: WRITE
  • Prompt: !!,"No local possible dosage missing data 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: !,"Local Possible Dosages Report (All)"
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"Local Possible Dosages Report (Missing Data Only)"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?118,"PAGE: "_PSSKZCT,!,PSSKZLIN,!
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: MESS+1
Info |  Source |  Entry Points |  Interaction Calls