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: PSSWRNB

Package: Pharmacy Data Management

Routine: PSSWRNB


Information

PSSWRNB ;BIR/EJW-NEW WARNING SOURCE CUSTOM WARNING LIST BUILDER ; 9/8/05 3:46pm

Source Information

Source file <PSSWRNB.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Pharmacy Data Management 3 GCN^PSSWRNA  (SEL1,SEL2,SEL3,SEL4,SEL59,SEL6,SEL7,SEL8)^PSSWRNC  (EDIT,NOTE,NOTE2)^PSSWRNE  
VA Fileman 2 $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Data Management 2 PSS WARNING BUILDER  PSSWRNC  

Entry Points

Name Comments DBIA/ICR reference
RPTNEW ;
FULL ;
END ;
RPT ;
PRTRPT ;
RPTQ
TITLE ;
DVC
WARN ; ENTRY POINT DRUG ENTER/EDIT OPTION
PRT54 ;
END2 ;
DONE ;
DRUG ;
PRTNEW ;
RXCON
ASK
KILL ;
SEL ;
ACTIVE ;
FDBWARN

External References

Name Field # of Occurrence
^%ZIS DVC
^%ZISC DONE+2
^%ZTLOAD DVC+2
$$GET1^DIQ DRUG+6
^DIR PSSWRNB+8, PSSWRNB+11, SEL+18, ASK, ASK+3, ASK+8, TITLE+1, END+1, END2+1
GCN^PSSWRNA DRUG+8
SEL1^PSSWRNC ASK+10
SEL2^PSSWRNC ASK+12
SEL3^PSSWRNC ASK+14
SEL4^PSSWRNC ASK+16
SEL59^PSSWRNC ASK+18
SEL6^PSSWRNC ASK+20
SEL7^PSSWRNC ASK+22
SEL8^PSSWRNC ASK+24
EDIT^PSSWRNE ASK+27, WARN+4
NOTE^PSSWRNE PSSWRNB+7, SEL+2
NOTE2^PSSWRNE PSSWRNB+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSSWRNB+8
Function Call: WRITE
  • Prompt: !!?3,"Nothing queued to print."
  • Line Location: PSSWRNB+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PSSWRNB+11
Function Call: WRITE
  • Prompt: !!?3,"Nothing queued to print."
  • Line Location: PSSWRNB+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!,?2,"Select one of the following to display drugs that match that criteria to"
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !,?2,"examine or edit their drug warnings:"
  • Line Location: SEL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,$C(7),"NOTE: Only the first 5 warnings will print on the yellow auxillary labels."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,"Nothing meets selection criteria"
  • Line Location: ASK+26
Function Call: WRITE
  • Prompt: !!,"You may queue the report to print, if you wish.",!
  • Line Location: RPTQ+0
Function Call: WRITE
  • Prompt: !,"Nothing queued to print.",!
  • Line Location: DVC+0
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: DVC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTRPT+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRTRPT+3
Function Call: WRITE
  • Prompt: !,"RX CONSULT NUMBER: ",SEQ
  • Line Location: RXCON+0
Function Call: WRITE
  • Prompt: !
  • Line Location: RXCON+3
Function Call: WRITE
  • Prompt: !,?3,^PS(54,SEQ,1,PSSTXT,0)
  • Line Location: RXCON+4
Function Call: WRITE
  • Prompt: !!,"Spanish translation:"
  • Line Location: RXCON+5
Function Call: WRITE
  • Prompt: !,?3
  • Line Location: RXCON+6
Function Call: WRITE
  • Prompt: !,?3
  • Condition for execution: LEN>62
  • Line Location: RXCON+9
Function Call: WRITE
  • Prompt: STR," "
  • Line Location: RXCON+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TITLE+3
Function Call: WRITE
  • Prompt: !,?16,TITLE,!
  • Line Location: TITLE+4
Function Call: WRITE
  • Prompt: !,"Date printed: ",Y,?70,"Page: ",PSSPGCT,!
  • Line Location: TITLE+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: TITLE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: TITLE+7
Function Call: WRITE
  • Prompt: !!,"End of Rx Consult file Report."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END2+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: RPTNEW+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: RPTNEW+3
Function Call: WRITE
  • Prompt: !,"WARNING LABEL-ENGLISH NUMBER: ",+SEQ
  • Line Location: FDBWARN+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FDBWARN+3
Function Call: WRITE
  • Prompt: !,?3,^PS(50.625,SEQ,1,PSSTXT,0)
  • Line Location: FDBWARN+4
Function Call: WRITE
  • Prompt: !!,"Spanish translation:"
  • Line Location: FDBWARN+5
Function Call: WRITE
  • Prompt: !,?3,^PS(50.626,SEQ,1,PSSTXT,0)
  • Line Location: FDBWARN+6
Routine Call
  • DIR
  • Line Location:
    • PSSWRNB+8
    • PSSWRNB+11
    • SEL+18
    • ASK
    • ASK+3
    • ASK+8
    • TITLE+1
    • END+1
    • END2+1
Routine Call
  • %ZIS
  • Line Location:
    • DVC

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSNDF(50.68 - [#50.68] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TITLE+5
^PS(50.625 - [#50.625] PRTNEW+7, RPTNEW+1, FDBWARN+4
^PS(50.626 - [#50.626] FDBWARN+6
^PS(54 - [#54] PRT54+7, PRTRPT+1, RXCON+4, RXCON+5, RXCON+6
^PSDRUG - [#50] DRUG+4, WARN+2, ACTIVE+2
^TMP("PSSWRNB" SEL+22!, ASK+26, KILL+1!, WARN+3*

Label References

Name Line Occurrences
DONE DVC, DVC+2
END PRT54+8
END2 PRTNEW+8
FDBWARN RPTNEW+1
FULL PRTRPT+1, PRTRPT+2, RXCON, RXCON+2, RXCON+4, RXCON+6, RPTNEW+1, RPTNEW+2, FDBWARN, FDBWARN+2
, FDBWARN+4, FDBWARN+6
KILL SEL+19
PRTNEW END+4
PRTRPT PRT54+7
RPT PSSWRNB+13
RPTNEW PRTNEW+7
RXCON PRTRPT+1
SEL PSSWRNB+8, PSSWRNB+9, PSSWRNB+11, ASK+28
TITLE PRT54+5, FULL+1, PRTNEW+5

Naked Globals

Name Field # of Occurrence
^("I" ACTIVE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DVC!*, DVC+2!
ACTIVE SEL+20~, ACTIVE+1*, ACTIVE+2*
>> DA WARN+2
DEA KILL+1!
DIR PSSWRNB+8!, PSSWRNB+11!, SEL+5!, SEL+18!, ASK!, ASK+3!, ASK+8!, TITLE+1!, END+1!, END2+1!
, DONE+1!
DIR("A" PSSWRNB+8*, PSSWRNB+11*, SEL+7*, SEL+8*, SEL+9*, SEL+10*, SEL+11*, SEL+12*, SEL+13*, SEL+14*
, SEL+15*, SEL+16*, ASK*, ASK+3*, END+1*, END2+1*
DIR("B" PSSWRNB+8*, PSSWRNB+11*, SEL+6*, ASK*, ASK+3*
DIR(0 PSSWRNB+8*, PSSWRNB+11*, SEL+17*, ASK*, ASK+3*, ASK+8*, TITLE+1*, END+1*, END2+1*
DIRUT DONE+1!
DR SEL+20~, DRUG+4, ACTIVE+2
DRUG KILL+1!, WARN+2*, WARN+3
>> DRUGENT WARN+1*
DRUGN KILL+1!
DT TITLE+5, ACTIVE+2
DTOUT PSSWRNB+8, PSSWRNB+11, DONE+1!
DUOUT DONE+1!
>> ENDWARN ASK+4*, ASK+5*
GCNSEQNO DRUG+2~, DRUG+6*, DRUG+7
I RXCON+7~, RXCON+9*, DRUG+2~
INDT DONE+1!
IO PRT54+1, PRTNEW+1
IO("Q" DVC+2, DONE+1!
IOF SEL+1, TITLE+3, END+3, END2+3
IOP DVC!, DONE+1!
IOSL PRT54+3, FULL+1, PRTNEW+3
IOST PRT54+2, PRTNEW+2
JJJ KILL+1!
LEN RXCON+7~, RXCON+8*, RXCON+9*
MJT PRTRPT+3*, TITLE+6*, DONE+1!, RPTNEW+3*
NDF KILL+1!, DRUG+1*, DRUG+5*
NEWWARN DRUG+2~
OITM DONE+1!
POP DVC!, DONE+1!
PSO9 SEL+20~
PSOPROD DRUG+2~, DRUG+4*, DRUG+6
PSOWARN KILL+1!
PSSDV PRT54+2*, TITLE+1, END+1, END+2, END2+1, END2+2, DONE+2!, PRTNEW+2*
PSSOUT ASK+8*, PRT54+2*, PRTRPT+1, PRTRPT+2, RXCON, RXCON+2, RXCON+4, RXCON+6, FULL+1, TITLE+1*
, END+1, END2+1, DONE+2!, PRTNEW+2*, RPTNEW+1, RPTNEW+2, FDBWARN, FDBWARN+2, FDBWARN+4, FDBWARN+6
PSSPGCT PRT54+3*, TITLE+1, TITLE+5, TITLE+8*, DONE+1!, PRTNEW+3*
PSSPGLN PRT54+3*, DONE+1!, PRTNEW+3*
PSSTXT RXCON+1~, RXCON+4*, RXCON+6*, RXCON+9, FDBWARN+1~, FDBWARN+4*, FDBWARN+6*
PSSWRN KILL+1!, DRUG+3*
PSSXX DONE+1!
QUIT SEL+20~, SEL+21*, ASK+26*, ASK+27
RXNUM KILL+1!
SEL SEL+18*, SEL+19, ASK+10, ASK+12, ASK+14, ASK+16, ASK+18, ASK+20, ASK+22, ASK+24
, KILL+1!
SEQ PRT54+7*, PRTRPT+1, RXCON, RXCON+4, RXCON+5, RXCON+6, DONE+1!, PRTNEW+7*, RPTNEW+1, FDBWARN
, FDBWARN+4, FDBWARN+6
SKIP SEL+20~, SEL+21*, ASK+1*
SPANISH PSSWRNB+10*, PSSWRNB+12*, RXCON+5, FDBWARN+5, KILL+1!
STR RXCON+7~, RXCON+9*, KILL+1!
TEXT KILL+1!
TITLE PRT54+4*, TITLE+4, PRTNEW+4*, KILL+1!
WARN KILL+1!
WARN20 KILL+1!
WARN54 KILL+1!
WWW KILL+1!
X DONE+1!
Y PSSWRNB+8, PSSWRNB+9, PSSWRNB+11, PSSWRNB+12, SEL+18, ASK+1, ASK+5, ASK+8, TITLE+1, TITLE+5*
, DONE+1!
>> ZTDESC DVC+2*
>> ZTQUEUED DONE+2
>> ZTREQ DONE+2*
>> ZTRTN DVC+2*
>> ZTSAVE("*" DVC+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 |  Naked Globals |  Local Variables |  All