Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
National Drug File 1 $$FORMRX^PSNAPIS  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Data Management 2 PSS DRUG TEXT FILE REPORT  PSSTXT  

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 ;

External References

Name Field # of Occurrence
^%ZIS DVC
^%ZISC DONE+2
^%ZTLOAD QUEUE
^DIR EN+4, EN+8, ASKA+7, TASK+6, TITLE+1, END+1
$$FORMRX^PSNAPIS NRESTR+5

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
Routine Call
  • %ZIS
  • Line Location:
    • DVC
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • EN+8
    • ASKA+7
    • TASK+6
    • TITLE+1
    • END+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DTNAME+1, DTEXT+5, OITEXT+8, TITLE+8
^PS(50.606 - [#50.606] OITEXT+6
^PS(50.7 - [#50.7] OITEXT+4, OITEXT+5, OITEXT+6, OITEXT+7, OITEXT+8
^PS(51.7 - [#51.7] EN+7, ASKA+9, START+8, START+9, DTXTRPT, DTXTRPT+1, DTNAME+1, DTNAME+4, DTNAME+6, DTNAME+11
^PSDRUG - [#50] DTEXT+4, DTEXT+5, NRESTR+4
^PSDRUG("DTXT" DTEXT+3, DTEXT+4, NRESTR+3

Label References

Name Line Occurrences
ASKA ASKA+9, ASKA+11
DONE EN+4, EN+8, ASKA+7, DVC, QUEUE
DTEXT DTXTRPT+1
DTNAME DTXTRPT+1
DTXTRPT START+8, START+9
EN TASK+6
END START+10
FULL DTXTRPT+1, DTXTRPT+2, DTNAME, DTNAME+4, DTNAME+6, DTNAME+11, DTEXT+3, DTEXT+4, DTEXT+5, OITEXT+4
, OITEXT+5, OITEXT+8, NRESTR+5
FULL2 DTNAME+1, DTNAME+9, DTEXT+1, OITEXT+2, NRESTR+5
NRESTR DTNAME+12
OITEXT DTXTRPT+1
TASK EN+5, EN+11
TITLE START+4, FULL+1, FULL2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*
%ZSI QUEUE!
DFPTR OITEXT+1~, OITEXT+6*
DIR EN+2!, EN+4!, EN+8!, ASKA+7!, TASK+6!, TITLE+1!, END+1!, DONE+1!
DIR("?" EN+3*, EN+10*, ASKA+5*, ASKA+6*
DIR("A" EN+2*, EN+8*, ASKA+7*, TASK+6*, END+1*
DIR("B" EN+2*, EN+8*, TASK+6*
DIR(0 EN+2*, EN+8*, ASKA+7*, TASK+6*, TITLE+1*, END+1*
DIRUT DONE+1!
DONE NRESTR+1~, NRESTR+2*, NRESTR+3, NRESTR+5*
DT TITLE+8
DTOUT EN+4, EN+8, ASKA+7, DONE+1!
DUOUT EN+4, EN+8, ASKA+7, DONE+1!
INDT DONE+1!
IO START+1
IO("Q" QUEUE, DONE+1!
IOF TITLE+3, END+3
IOP DVC!, DONE+1!
IOSL START+3, FULL+1, FULL2+1
IOST START+2
LIST NRESTR+5, NRESTR+6!
LIST( NRESTR+5
MJT DTXTRPT+3*, TITLE+9*, DONE+1!
OITM DONE+1!
POP DVC!, DONE+1!
PSSB DTXTRPT*, DTXTRPT+1, DTNAME+1, DTNAME+4, DTNAME+6, DTNAME+11, DTEXT+3, DTEXT+4, OITEXT+4, OITEXT+5
, NRESTR+3, DONE+1!
PSSBEG EN+1!, EN+5*, ASKA!, ASKA+11*, ASKA+12*, TASK+2, START+5, START+9, TITLE+6, TITLE+7
, DONE+2!
PSSDRG DTEXT+4*, DTEXT+5, OITEXT+5*, OITEXT+6, OITEXT+7, OITEXT+8, NRESTR+3*, NRESTR+4, DONE+2!
PSSDV START+2*, TITLE+1, END+1, END+2, DONE+2!
PSSEND EN+1!, EN+5*, ASKA!, ASKA+11*, ASKA+12*, TASK+2, START+6*, START+8, TITLE+6, DONE+2!
PSSFIRST RPT+1!, TITLE+11, TITLE+16*
PSSHOW EN+1!, EN+5*, DONE+2!
PSSLCL START+5*, START+6*, START+8*, START+9*, DTXTRPT, DTNAME, DONE+1!
PSSNUMB EN+7*, EN+12!
PSSNUMBX EN+1!, EN+7*, EN+8, EN+11, EN+12!
PSSOUT START+2*, START+8, DTXTRPT+1, DTXTRPT+2, DTNAME, DTNAME+1, DTNAME+4, DTNAME+6, DTNAME+9, DTNAME+11
, DTEXT+1, DTEXT+3, DTEXT+4, DTEXT+5, OITEXT+2, OITEXT+4, OITEXT+5, OITEXT+8, NRESTR+5, FULL+1
, FULL2+1, TITLE+1*, END+1, DONE+2!
PSSPGCT START+3*, TITLE+1, TITLE+8, TITLE+17*, DONE+1!
PSSPGLN START+3*, DONE+1!
PSSSRT EN+1!, EN+5*, EN+11*, ASKA+13*, TASK+1*, TASK+2, TASK+3, TASK+4, TASK+5, TASK+7*
, START+5, START+6, START+8, START+9, TITLE+4, TITLE+5, TITLE+6, TITLE+7, DONE+2!
PSSSYN DTNAME+2~, DTNAME+6*
PSSTXT DTNAME+8~, DTNAME+11*
PSSX START+5*, DONE+2!
PSSXX ASKA+8*, ASKA+9, ASKA+10, ASKA+11, ASKA+12, TASK+1, TASK+5, TASK+7, DONE+1!
PSXDN NRESTR+1~, NRESTR+4*
PSXGN NRESTR+1~, NRESTR+4*, NRESTR+5
PSXVP NRESTR+1~, NRESTR+4*, NRESTR+5
X DONE+1!
XX2 NRESTR+1~, NRESTR+5*
Y EN+4, EN+5, EN+8, EN+11, ASKA+7, ASKA+8, TASK+6, DTNAME+1*, DTEXT+5*, OITEXT+8*
, TITLE+1, TITLE+8*, DONE+1!
>> ZTDESC QUEUE*
>> ZTQUEUED DONE+2
>> ZTREQ DONE+2*
>> ZTRTN QUEUE*
>> ZTSAVE("PSSBEG" QUEUE*
>> ZTSAVE("PSSEND" QUEUE*
>> ZTSAVE("PSSSRT" QUEUE*
>> ZTSAVE("PSSXX" QUEUE*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All