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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSSMSTR

Package: Pharmacy Data Management

Routine: PSSMSTR


Information

PSSMSTR ;BIR/PWC-Send Master Drug File to External Interface ;04/05/04

Source Information

Source file <PSSMSTR.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ENDR^%ZISS  ^%ZTLOAD  
Pharmacy Data Management 2 DRG^PSSDGUPD  PROCESS1^PSSHLDFS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Data Management 2 PSS MASTER FILE ALL  PSSDEE  

Entry Points

Name Comments DBIA/ICR reference
EN ; Begin processing PSS Master File All send drugs via HL7
PADE ;
SNDHL7() ; Check if at least one PADE vendor equipment is setup to accept
; HL7 Drug messages.
; Input - None
; Output - 1, send HL7 message
; 0, don't send message
SDRG ;
EN1 ;
BUILD ;
EPD ;
SPADE ;
KV

External References

Name Field # of Occurrence
NOW^%DTC EN+15, EPD+5
ENDR^%ZISS EN1+20
^%ZTLOAD EN+15, EPD+5
^DIC SDRG+4
$$GET1^DIQ BUILD+4, BUILD+5, BUILD+6, BUILD+7
^DIR EN+11, EN1+12, EN1+29, EN1+33, EN1+44, EN1+56
DRG^PSSDGUPD BUILD+8
PROCESS1^PSSHLDFS SPADE+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"You selected to send the Drug file to the "_Y(0),!
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !!,"*Drug transmission is not setup for PADE",!!
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !!,"Drug Update Protocol "_SPNAM_" is NOT Installed",!!
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!,?5,"This only sends your Drug selections as NEW additions to PADE"
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !?5,"If you need to send drug updates, then use the PSS DRUG/ENTER EDIT option"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,"WARNING - With this option, you will be sending a large number of"
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !,"drugs from your drug file to ""build"" a working database or drugs"
  • Line Location: EN1+22
Function Call: WRITE
  • Prompt: !,"on your PADE system. It is imperative to ",IORVON_IOINHI,"NOT",IOINORM_IORVOFF," RUN this option if you"
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !,"already have a working formulary of drugs on your PADE system;"
  • Line Location: EN1+24
Function Call: WRITE
  • Prompt: !,"as resending may overwrite modifications to the fields that you"
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: !,"have made on your PADE system.",!!
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+31
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+36
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+47
Function Call: WRITE
  • Prompt: !!,"Drug File Queued to be sent to PADE"
  • Line Location: EPD+1
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single Drug or several Drugs",!!
  • Line Location: SDRG+1
Routine Call
  • DIC
  • Line Location:
    • SDRG+4
Routine Call
  • DIR
  • Line Location:
    • EN+11
    • EN1+12
    • EN1+29
    • EN1+33
    • EN1+44
    • EN1+56

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
^PS(59 - [#59] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(101 - [#101] EN+18
^PS(58.7 - [#58.7] SPADE+2, SPADE+3, SNDHL7+7, SNDHL7+8
^PS(59 - [#59] BUILD+3
^PSDRUG - [#50] BUILD+2, PADE+3, PADE+4
^XUSEC("PSS PADE INIT" EN1+15

Label References

Name Line Occurrences
$$SNDHL7 EN+19
EN EN+19, EN+20, EN1+12, EN1+30, SDRG+7
EN1 EN1+15, EN1+34, EN1+45, EN1+57, EN1+58
KV EN+2, EN1+4, EN1+27, EN1+31
SDRG EN1+14
SPADE PADE+8, SDRG+10

Naked Globals

Name Field # of Occurrence
^("I" PADE+4
^(2 PADE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+15, EPD+5
DA SDRG+6!
DIC SDRG+2!*, SDRG+6!
DIC("S" SDRG+3*
DIC(0 SDRG+2*
DIR EN1+29!, EN1+33!, EN1+44!, EN1+56!, KV!
DIR("?" EN+5*, EN+6*, EN+7*, EN+8*, EN+9*, EN+10*, EN1+7*, EN1+8*, EN1+9*, EN1+10*
, EN1+11*, EN1+29*, EN1+33*, EN1+38*, EN1+39*, EN1+40*, EN1+41*, EN1+42*, EN1+43*, EN1+44*
, EN1+49*, EN1+50*, EN1+51*, EN1+52*, EN1+53*, EN1+54*, EN1+55*, EN1+56*
DIR("A" EN+3*, EN1+5*, EN1+28*, EN1+32*, EN1+37*, EN1+48*
DIR("B" EN1+28*, EN1+32*, EN1+37*, EN1+48*
DIR(0 EN+4*, EN1+6*, EN1+28*, EN1+32*, EN1+37*, EN1+48*
DIRUT EN1+34, EN1+45, EN1+57, KV!
DMFU BUILD+1~, BUILD+5*, BUILD+9!
DNSNAM BUILD+1~, BUILD+6*, BUILD+8, BUILD+9!, SPADE+1~, SPADE+5*, SPADE+6, SPADE+9, SNDHL7+6~, SNDHL7+10*
, SNDHL7+11
DNSPORT BUILD+1~, BUILD+7*, BUILD+8, BUILD+9!, SPADE+1~, SPADE+5*, SPADE+6, SPADE+9, SNDHL7+6~, SNDHL7+10*
, SNDHL7+11
DT PADE+4, SPADE+7, SNDHL7+12
DTOUT KV!, SDRG+2!, SDRG+7
DUOUT KV!, SDRG+2!, SDRG+7
DUZ EN1+15
DVER BUILD+1~, BUILD+4*, BUILD+9!
FLG SNDHL7+6~, SNDHL7+7*, SNDHL7+14*, SNDHL7+15
I PADE+1~, PADE+6*
IOF EN+1
IOINHI EN1+19~, EN1+23
IOINORM EN1+19~, EN1+23
IORVOFF EN1+19~, EN1+23
IORVON EN1+19~, EN1+23
PROT EN+17~, EN+18*, EN+20
PSSAP PADE+1~, PADE+2*, PADE+5*, PADE+6
PSSCPK EN1+18~*, EN1+35*, EN1+46*, EN1+58, EN1+59*, PADE+6
PSSD SPADE+1~, SPADE+3*, SPADE+4, SPADE+5, SPADE+7, SPADE+8, SNDHL7+6~, SNDHL7+8*, SNDHL7+9, SNDHL7+10
, SNDHL7+12, SNDHL7+13
PSSDRG PADE+1~, PADE+2*, PADE+3*, PADE+4, SPADE+9, SDRG+8~, SDRG+9*, SDRG+10*
PSSDRUG SDRG+2~
PSSDRUG( SDRG+5*, SDRG+10
PSSDRUG("" SDRG+7
>> PSSDTM EN+15*, EPD+5*
PSSG PADE+1~, PADE+5*, PADE+6*, PADE+7
PSSNM SPADE+1~, SPADE+5*, SPADE+6, SNDHL7+6~, SNDHL7+10*, SNDHL7+11
PSSPADE EN1+13~*
SPNAM EN+17~*, EN+18, EN+20, PADE+1~*, SPADE+9, SNDHL7+6~, SDRG+8~*
VR SPADE+1~, SPADE+7*, SPADE+8*, SNDHL7+6~, SNDHL7+12*, SNDHL7+13*, SNDHL7+14
X EN+1~, EN1+20*
XX BUILD+1~, BUILD+2*, BUILD+8, BUILD+9!, SPADE+1~, SPADE+2*, SPADE+3, SNDHL7+6~, SNDHL7+7*, SNDHL7+8
Y EN+1~, EN+11, EN+13, EN1+12, EN1+14, EN1+30, EN1+35, EN1+46, EN1+58, EN1+59
, SDRG+4, SDRG+5
Y(0 EN+12
YY BUILD+3*, BUILD+4, BUILD+5, BUILD+6, BUILD+7, BUILD+9!
ZTDESC EN+1~, EN+14*, EPD+4*
ZTDTH EN+1~, EN+15*, EPD+5*
ZTIO EN+1~, EN+14*, EPD+4*
ZTRTN EN+1~, EN+14*, EPD+4*
ZTSAVE EN+1~
ZTSAVE("PSSCPK" EPD+5*
ZTSAVE("PSSPADE" EPD+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All