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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call