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

Package: Pharmacy Data Management

Routine: PSSCSPD


Information

PSSCSPD ;BIR/RTR-Corresponding drug functions ;03/28/00

Source Information

Source file <PSSCSPD.m>

Entry Points

Name Comments DBIA/ICR reference
REP ;
START ;
END ;
HDC ;
EDIT ;
PAT ;
PATQ
MARK ;
MARKQ
MARKT ;
MMM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Since this report must check every drug in the DRUG (#50) File, we recommend",!,"that you queue this report to a printer.",!
  • Line Location: REP+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: REP+2
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: REP+3
Function Call: WRITE
  • Prompt: !?3,"Corresponding Outpatient drug: ",?36,$P($G(^PSDRUG(+$P(PSSNODE,"^",5),0)),"^")
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !?3," Corresponding Inpatient drug: ",?36,$P($G(^PSDRUG(+$P(PSSNODE,"^",6),0)),"^")
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !?5,"No Corresponding Drugs were found.",!
  • Line Location: START+29
Function Call: WRITE
  • Prompt: !!?5,"There are no potential matches!",!
  • Line Location: START+32
Function Call: WRITE
  • Prompt: !," ** Potential corr. Outpatient Drug: "_$G(^(2))
  • Line Location: START+37
Function Call: WRITE
  • Prompt: !," ** Potential corr. Inpatient Drug: "_$G(^(1))
  • Line Location: START+38
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: !!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!,"This entry is marked for the following PHARMACY packages:"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," Outpatient"
  • Condition for execution: PSSA["O"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," Unit Dose"
  • Condition for execution: PSSA["U"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," IV"
  • Condition for execution: PSSA["I"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," Ward Stock"
  • Condition for execution: PSSA["W"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !," Controlled Substances"
  • Condition for execution: PSSA["N"
  • Line Location: EDIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !," (none)"
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PATQ+0
Function Call: WRITE
  • Prompt: !!,"This option will automatically mark all corresponding Inpatient and Outpatient",!,"drugs that are listed in the 'Potential Corresponding Inpatient/Outpatient Drug",!,"Matches' section of the 'Report of Corresponding Drugs'.",!
  • Line Location: MARK+1
Function Call: WRITE
  • Prompt: !,"Before using this option, please make sure you print a current 'Report of",!,"Corresponding Drugs' for review.",!
  • Line Location: MARK+2
Function Call: WRITE
  • Prompt: !!,"This job must be queued. You will receive a mail message upon completion.",!
  • Line Location: MARK+6
Function Call: WRITE
  • Prompt: !!,"Nothing queued.",!
  • Line Location: MARK+8

FileMan Files Accessed Via FileMan Db Call

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