Routine: PSSMSTR

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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
EN1	;
EPD	;
BUILD	;
PADE	;
SPADE	;
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
KV
SDRG	;

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*

Customize PDF page

Package: Pharmacy Data Management