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

Package: Pharmacy Data Management

Routine: PSSDTR


Information

PSSDTR ;BIR/EJW-Print Drug Text Report ;

Source Information

Source file <PSSDTR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASKA
TASK ;
RPT
DVC
QUEUE
START ;
DTXTRPT
DTNAME
DTEXT ;
OITEXT ;
NRESTR ; check for National Formulary Restrictions
FULL ;
FULL2 ;
TITLE ;
END ;
DONE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report shows each selected drug text entry and lists all drugs",!,"and orderable items linked to it."
  • Line Location: PSSDTR+5
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !!,"Enter a single drug text entry or to see all drug text entries beginning with"
  • Line Location: ASKA+1
Function Call: WRITE
  • Prompt: !,"the letter 'A' for example, enter 'A' or whichever letter you wish to see."
  • Line Location: ASKA+2
Function Call: WRITE
  • Prompt: !,"To see drug text entries in a range for example starting with 'H', 'I' and 'J'"
  • Line Location: ASKA+3
Function Call: WRITE
  • Prompt: !,"enter in the format 'H-J'.",!
  • Line Location: ASKA+4
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ASKA+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKA+9
Function Call: WRITE
  • Prompt: !!,"Invalid response.",!
  • Line Location: ASKA+11
Function Call: WRITE
  • Prompt: !!,"Report will be for drug text starting with "_$G(PSSBEG)_",",!,"and ending with drug text starting with "_$G(PSSEND)_".",!
  • Line Location: TASK+2
Function Call: WRITE
  • Prompt: !!,"This report will be for drug text with leading numerics.",!
  • Line Location: TASK+3
Function Call: WRITE
  • Prompt: !!,"This report will be for all drug text entries.",!
  • Line Location: TASK+4
Function Call: WRITE
  • Prompt: !!,"This report will be for drug text entry: ",PSSXX,!
  • Line Location: TASK+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TASK+6
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: RPT+0
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: DVC+0
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: QUEUE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DTXTRPT+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DTXTRPT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DTXTRPT+4
Function Call: WRITE
  • Prompt: !,"DRUG TEXT NAME: ",PSSLCL
  • Line Location: DTNAME+0
Function Call: WRITE
  • Prompt: !,?3,"** INACTIVE DATE: ",Y," **",!
  • Line Location: DTNAME+1
Function Call: WRITE
  • Prompt: !,?3,"SYNONYM(S): "
  • Line Location: DTNAME+5
Function Call: WRITE
  • Prompt: ?17,^PS(51.7,PSSB,1,PSSSYN,0),!
  • Line Location: DTNAME+6
Function Call: WRITE
  • Prompt: !!,?3,"DRUG TEXT:"
  • Line Location: DTNAME+10
Function Call: WRITE
  • Prompt: !,?3,^PS(51.7,PSSB,2,PSSTXT,0)
  • Line Location: DTNAME+11
Function Call: WRITE
  • Prompt: !!,?3,"DRUG file entries:",!,?3,"-----------------"
  • Line Location: DTEXT+2
Function Call: WRITE
  • Prompt: !,?3,"NONE"
  • Line Location: DTEXT+3
Function Call: WRITE
  • Prompt: !,?3,$P($G(^PSDRUG(PSSDRG,0)),"^",1)
  • Line Location: DTEXT+4
Function Call: WRITE
  • Prompt: !,?6,"** INACTIVE DATE: ",Y," **",!
  • Line Location: DTEXT+5
Function Call: WRITE
  • Prompt: !!,?3,"ORDERABLE ITEM file entries: "
  • Line Location: OITEXT+2
Function Call: WRITE
  • Prompt: !,?3,"---------------------------"
  • Line Location: OITEXT+3
Function Call: WRITE
  • Prompt: !,?3,"NONE"
  • Line Location: OITEXT+4
Function Call: WRITE
  • Prompt: !,?3,$P($G(^PS(50.7,PSSDRG,0)),"^",1)
  • Line Location: OITEXT+5
Function Call: WRITE
  • Prompt: " ",$P(^PS(50.606,DFPTR,0),"^",1)
  • Line Location: OITEXT+6
Function Call: WRITE
  • Prompt: !,?6,"** INACTIVE DATE: ",Y," **",!
  • Line Location: OITEXT+8
Function Call: WRITE
  • Prompt: !,?3,LIST(XX2,0)
  • Line Location: NRESTR+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,?16,"Drug Text Report for Drug Text entries with Leading Numerics",!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,?16,"Drug Text Report for all Drug Text entries",!
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: !,?16,"Drug Text Report for drug text from "_PSSBEG_" through "_PSSEND,!
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !,?16,"Drug Text Report for drug text : "_PSSBEG,!
  • Line Location: TITLE+7
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?70,"Page: ",PSSPGCT,!
  • Line Location: TITLE+8
Function Call: WRITE
  • Prompt: "="
  • Line Location: TITLE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: TITLE+10
Function Call: WRITE
  • Prompt: !,"PLEASE NOTE: The National Formulary Restriction Text is the original text"
  • Line Location: TITLE+12
Function Call: WRITE
  • Prompt: !,"exported with the DRUG TEXT file (#51.7) and automatically linked to the DRUG"
  • Line Location: TITLE+13
Function Call: WRITE
  • Prompt: !,"file (#50) entries based on the VA product match. No ORDERABLE ITEM file"
  • Line Location: TITLE+14
Function Call: WRITE
  • Prompt: !,"(#50.7) entries were automatically linked with DRUG TEXT file (#51.7).",!
  • Line Location: TITLE+15
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
Info |  Source |  Entry Points |  Interaction Calls