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 |  Local Variables  | All
Print Page as PDF
Routine: PSSWRNE

Package: Pharmacy Data Management

Routine: PSSWRNE


Information

PSSWRNE ;BIR/EJW - NEW WARNING SOURCE NEW WARNING LABEL LIST EDITOR ;05/24/04

Source Information

Source file <PSSWRNE.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Pharmacy Data Management 2 FULL^PSSLOOK  (CHECK20,CHECKLST,WARNLST)^PSSWRNA  
VA FileMan 2 ^DIE  ^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: 4

Package Total Caller Graph
Pharmacy Data Management 4 ^PSDRUG  PSSLOOK  PSSWRNB  PSSWRNC  

Entry Points

Name Comments DBIA/ICR reference
EN(RTN) ; Entry from ^PSSLOOK PSS*1*233
EDIT ;
PRINT ;
FULL ;
NEWWARN ;
WARN54 ;
VALID ; VALIDATE NEW WARNING LABEL LIST
FORMAT ;
NOTE ;
DEA ;
HDR ;
NOTE2

External References

Name Field # of Occurrence
^DIE PRINT+23, PRINT+35
^DIR PRINT+30, HDR+1
FULL^PSSLOOK NEWWARN+7, WARN54+6
CHECK20^PSSWRNA PRINT+36, DEA+3
CHECKLST^PSSWRNA DEA+3
WARNLST^PSSWRNA DEA+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No warnings from the new data source exist for this drug."
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Labels will print in the order in which they appear for local and CMOP fills:"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!,"Pharmacy fill card display: DRUG WARNING ",PSSWRN
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !," RX CONSULT file Drug Warning="_WARN54
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !," ",WARN_" "_$G(^PS(54,WARN,0))_" is not mapped to the new data source"
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !,"NOTE: Because the NEW WARNING LABEL LIST field is empty, the warnings above"
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !,"are the warnings that our national data source distributes for this drug."
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,"NEW WARNING LABEL LIST: ",NEWLIST
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWWARN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: WARN54+3
Function Call: WRITE
  • Prompt: !,"TOO MANY WARNINGS. LIMIT ANSWER STRING TO 30 CHARACTERS OR LESS"
  • Line Location: VALID+3
Function Call: WRITE
  • Prompt: !,PSOWARN," does not exist in the WARNING LABEL-ENGLISH file"
  • Line Location: VALID+6
Function Call: WRITE
  • Prompt: !,PSOWARN," does not exist in the RX CONSULT file"
  • Line Location: VALID+7
Function Call: WRITE
  • Prompt: !,PTEXT
  • Line Location: FORMAT+5
Function Call: WRITE
  • Prompt: !,PTEXT
  • Line Location: FORMAT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "Current Warning labels for ",DRUG," (continued)"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?5,"The RX CONSULT File (#54) contains local label expansions."
  • Line Location: NOTE2+0
Function Call: WRITE
  • Prompt: !,?5,"The WARNING LABEL-ENGLISH file (#50.625) contains national label"
  • Line Location: NOTE2+1
Function Call: WRITE
  • Prompt: !,?5,"expansions in English."
  • Line Location: NOTE2+2
Function Call: WRITE
  • Prompt: !,?5,"The WARNING LABEL-SPANISH file (#50.626) contains national label"
  • Line Location: NOTE2+3
Function Call: WRITE
  • Prompt: !,?5,"expansions in Spanish."
  • Line Location: NOTE2+4
Function Call: WRITE
  • Prompt: !,?5,"It is important to note that RX Consult entry numbers do not"
  • Line Location: NOTE2+5
Function Call: WRITE
  • Prompt: !,?5,"correlate with the other files (i.e. Number 7 in file 54 is not"
  • Line Location: NOTE2+6
Function Call: WRITE
  • Prompt: !,?5,"included in file 50.625)."
  • Line Location: NOTE2+7
Function Call: WRITE
  • Prompt: !!,?5,"You should print a list of the current RX CONSULT file entries"
  • Line Location: NOTE2+8
Function Call: WRITE
  • Prompt: !,?5,"and the current WARNING LABEL-ENGLISH file entries."
  • Line Location: NOTE2+9
Function Call: WRITE
  • Prompt: !
  • Line Location: NOTE2+10
Routine Call
  • DIE
  • Line Location:
    • PRINT+23
    • PRINT+35
Routine Call
  • DIR
  • Line Location:
    • PRINT+30
    • HDR+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.625 - [#50.625] NEWWARN+3, NEWWARN+6, VALID+6
^PS(54 - [#54] PRINT+20, WARN54+2, WARN54+5, VALID+7
^PS(59.7 - [#59.7] NOTE+2
^PSDRUG - [#50] PRINT+24, PRINT+36, DEA+1, DEA+2
^PSDRUG("B" EDIT+4
^TMP("PSSWRNB" EDIT+3, PRINT+18, PRINT+32!, PRINT+33!

Label References

Name Line Occurrences
DEA EDIT+4, PRINT+37
FORMAT NEWWARN+7, WARN54+6
FULL PRINT+15, PRINT+19, PRINT+20, PRINT+26, PRINT+27, PRINT+29, PRINT+30, FORMAT+5, FORMAT+6
HDR FULL+1
NEWWARN PRINT+13
PRINT EDIT+4, PRINT+36, PRINT+37
WARN54 PRINT+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAD VALID+1~, VALID+2*, VALID+6*, VALID+7*, VALID+8
DA PRINT+23*!, PRINT+35*!
>> DEA DEA+1*
DIE PRINT+23*!, PRINT+35*!
DIR PRINT+30!, HDR+1!
DIR("A" PRINT+30*
DIR("B" PRINT+30*
DIR(0 PRINT+30*, HDR+1*
DR PRINT+23*!, PRINT+35*!
>> DRUG EDIT+3*, EDIT+4, PRINT+4, PRINT+18, HDR+3
>> DRUGENT PRINT+32, PRINT+33
>> DRUGN EDIT+4*, PRINT+23, PRINT+24, PRINT+35, PRINT+36, DEA+1, DEA+2
>> DTOUT PRINT+30
>> DUOUT PRINT+30
>> ENDWARN PRINT+9*, PRINT+11
I PRINT+20~*, VALID+4*, FORMAT+1~, FORMAT+3*, FORMAT+5*
IOF PRINT+3, HDR+2
IOSL FULL+1
JJJ NEWWARN+1~, NEWWARN+6*, WARN54+5*
LEN FORMAT+1~, FORMAT+2*, FORMAT+4*, FORMAT+5*
NEWLIST PRINT+1~, PRINT+5, PRINT+24*, PRINT+29
>> OLDWARN PRINT+34*, PRINT+37
>> PSOWARN PRINT+11*, PRINT+13, NEWWARN+3, NEWWARN+5, WARN54+2, WARN54+4, WARN54+5, VALID+4*, VALID+5, VALID+6
VALID+7
PSOWRNN NEWWARN+1~, NEWWARN+3*, NEWWARN+6, VALID+5*, VALID+6
>> PSSLOOK PRINT+2, PRINT+8, PRINT+16, PRINT+28, NEWWARN+4, NEWWARN+7, WARN54+3, WARN54+6
PSSOUT EDIT+1~, EDIT+2*, PRINT+15, PRINT+26, PRINT+27, PRINT+29, PRINT+30, FULL+1, FORMAT+5, FORMAT+6
HDR+1*
PSSSTWN EN+1~, EN+2*, EDIT+5
>> PSSWRN PRINT+5, PRINT+7, PRINT+11, PRINT+15, PRINT+25, PRINT+34, PRINT+36*, PRINT+37, DEA+2*
PSSWSITE NOTE+1~, NOTE+2*
PTEXT FORMAT+1~, FORMAT+2*, FORMAT+4*, FORMAT+5*, FORMAT+6*
QUIT EDIT+1~, EDIT+2*, EDIT+3, EDIT+5, PRINT+15, PRINT+30*, HDR+1*
RTN EN~, EDIT+5*
>> SEL PRINT+17, PRINT+21
STAR EDIT+1~, EDIT+2*, PRINT+1~, PRINT+10*, PRINT+12*, NEWWARN+5, WARN54+4
STR NEWWARN+1~, NEWWARN+6*, FORMAT+3*, FORMAT+4
>> TEXT NEWWARN+2*, NEWWARN+5*, NEWWARN+6*, NEWWARN+7, WARN54+1*, WARN54+4*, WARN54+5*, WARN54+6, FORMAT+3
WARN PRINT+20~*
>> WARN54 PRINT+18*, PRINT+19, PRINT+20
>> WARNEDIT PRINT+32*, PRINT+33*
>> WWW PRINT+11*, PRINT+12
X VALID+3, VALID+4, VALID+8!
>> XX DEA+2*
Y PRINT+31, VALID+3!, HDR+1
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 |  Local Variables  | All