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

Package: Pharmacy Data Management

Routine: PSSDRDOS


Information

PSSDRDOS ;BIR/RTR - Display Dosing related information for DRUG File(#50) entry ; Aug 20, 2011@16:00

Source Information

Source file <PSSDRDOS.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
EN1 ;Come back through to prompt for another drug before exiting option
NOTM ;Jump to here if not matched to National Drug File
WXFPT(PSSVVHCL) ;
PAUSE ;
ELG() ;Is drug Dose Call Eligible, for matched drugs
NGC ;Print First Databank data from Dosing records
NGCK ;
DUP1() ;Screen out duplicates, needed if Min/max records are added back
DUP2() ;
LWRP(PSSDCRL1) ;Print last line, check for wrapping

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NOTM+1
Function Call: WRITE
  • Prompt: !,PSSVVHL1
  • Line Location: NOTM+7
Function Call: WRITE
  • Prompt: !,"VA PRODUCT NAME: "_PSSVVHNM
  • Line Location: NOTM+9
Function Call: WRITE
  • Prompt: !,"NDF DOSAGE FORM: "_$S(PSSVVHDF:$P($G(^PS(50.606,+PSSVVHDF,0)),"^"),1:"")
  • Line Location: NOTM+13
Function Call: WRITE
  • Prompt: !,"DEA, SPECIAL HDLG: "_$P(PSSVVHZR,"^",3)_" VA DRUG CLASS: "_$P(PSSVVHZR,"^",2)
  • Line Location: NOTM+14
Function Call: WRITE
  • Prompt: !,"EXCLUDE DOSAGE FORM FROM DOSAGE CHECKS: "
  • Line Location: NOTM+15
Function Call: WRITE
  • Prompt: $S(PSSVVHPL:"YES",PSSVVHPL=0:"NO",1:"")
  • Line Location: NOTM+15
Function Call: WRITE
  • Prompt: !,"OVERRIDE DOSAGE FORM DOSE CHECK EXCLUSION FOR VA PRODUCT: "
  • Line Location: NOTM+16
Function Call: WRITE
  • Prompt: $S(PSSVVHHH:"YES",PSSVVHHH=0:"NO",1:"")
  • Line Location: NOTM+16
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTM+17
Function Call: WRITE
  • Prompt: !?7,"***DRUG "_$S(PSSVVHLG:"NOT ",1:"")_"ELIGIBLE FOR DOSAGE CHECKS***"
  • Line Location: NOTM+18
Function Call: WRITE
  • Prompt: !,PSSVVHL2
  • Line Location: NOTM+19
Function Call: WRITE
  • Prompt: !,"Strength: "_$S($E($G(PSSVVHA2),1)=".":"0",1:"")_$G(PSSVVHA2)
  • Line Location: NOTM+23
Function Call: WRITE
  • Prompt: " Unit:"
  • Line Location: NOTM+24
Function Call: WRITE
  • Prompt: !,"POSSIBLE DOSAGES:"
  • Line Location: NOTM+29
Function Call: WRITE
  • Prompt: ?65,"PACKAGE: ",$P(PSSVVHA5,U,3)
  • Line Location: NOTM+36
Function Call: WRITE
  • Prompt: !!,"LOCAL POSSIBLE DOSAGES:"
  • Line Location: NOTM+42
Function Call: WRITE
  • Prompt: !," LOCAL POSSIBLE DOSAGE: "
  • Line Location: NOTM+44
Function Call: WRITE
  • Prompt: $P(PSSVVHA8,"^"),?65,"PACKAGE: ",$P(PSSVVHA8,"^",2)
  • Line Location: NOTM+45
Function Call: WRITE
  • Prompt: !,PSSVVHL2
  • Line Location: NOTM+48
Function Call: WRITE
  • Prompt: !?4,"BCMA UNITS PER DOSE: "_PSSVVHC7
  • Line Location: WXFPT+8
Function Call: WRITE
  • Prompt: !?4," NUMERIC DOSE: "_PSSVVHC5,?38,"DOSE UNIT: "_PSSVVHC4
  • Line Location: WXFPT+9
Function Call: WRITE
  • Prompt: !,?4," NUMERIC DOSE: "_PSSVVHC5
  • Line Location: WXFPT+10
Function Call: WRITE
  • Prompt: !,?38,"DOSE UNIT: "_PSSVVHC4
  • Line Location: WXFPT+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAUSE+3
Function Call: WRITE
  • Prompt: !,"FDB ROUTES: "
  • Line Location: NGC+29
Function Call: WRITE
  • Prompt: PSSDCR4
  • Line Location: NGC+31
Function Call: WRITE
  • Prompt: !,"FDB DOSE UNITS: "
  • Line Location: NGC+35
Function Call: WRITE
  • Prompt: PSSDCR4
  • Line Location: NGC+37
Function Call: WRITE
  • Prompt: !,"BSA REQUIRED FOR DOSAGE CHECKS:"
  • Line Location: NGC+52
Function Call: WRITE
  • Prompt: $S(PSSDCRF3="true":" YES",PSSDCRF3="false":" NO",1:"")
  • Line Location: NGC+53
Function Call: WRITE
  • Prompt: " "_PSSDCR4_" "
  • Line Location: NGC+65
Function Call: WRITE
  • Prompt: " "_PSSDCR4_" "
  • Line Location: NGC+74
Function Call: WRITE
  • Prompt: !,"WEIGHT REQUIRED FOR DOSAGE CHECKS:"
  • Line Location: NGC+85
Function Call: WRITE
  • Prompt: $S(PSSDCRF3="true":" YES",PSSDCRF3="false":" NO",1:"")
  • Line Location: NGC+86
Function Call: WRITE
  • Prompt: " "_PSSDCR4_" "
  • Line Location: NGC+98
Function Call: WRITE
  • Prompt: " "_PSSDCR4_" "
  • Line Location: NGC+107
Function Call: WRITE
  • Prompt: "("_$S($P(PSSDCRL1,"^",2)="":"No Dose Type",1:$P(PSSDCRL1,"^",2))_$S($P(PSSDCRL1,"^",2)="MAINTENANCE":" DOSE, ",1:", ")
  • Line Location: LWRP+4
Function Call: WRITE
  • Prompt: $S($P(PSSDCRL1,"^")="":"No Dose Route)",1:$P(PSSDCRL1,"^")_")")
  • Line Location: LWRP+5
Function Call: WRITE
  • Prompt: !?PSSDCRL5,$S($P(PSSDCRL1,"^")="":"No Dose Route)",1:$P(PSSDCRL1,"^")_")")
  • Line Location: LWRP+6

FileMan Files Accessed Via FileMan Db Call

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