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

Package: Pharmacy Data Management

Routine: PSSMARK


Information

PSSMARK ;BIR/WRT-Review single NDF matches for CMOP ; 9/14/11 11:29am

Source Information

Source file <PSSMARK.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 (,NOW)^%DTC  ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Pharmacy Data Management 3 DRG^PSSDGUPD  DRG^PSSHUIDG  ^PSSREF  
National Drug File 1 ($$CPTIER,$$PROD2)^PSNAPIS  

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 PSSDEE  PSSXX MARK  

Entry Points

Name Comments DBIA/ICR reference
OLD1
UNMARK
TEXT
SYN
DONE
DISPLAY
OLD
QUEST
PICK
BLD1
CHECK
OUT
IDENT
GOTIT
QUES2
DUP
BLD ;
XREF
QUESTA
QDM
PICK1
PICK2
MARK
OLDNM
BLD5
SYN1

External References

Name Field # of Occurrence
^%DTC BLD+3
NOW^%DTC DISPLAY+4, OLD
^DIC PICK1
^DIE QUESTA, QDM
$$GET1^DIQ GOTIT+4, GOTIT+5
^DIR MARK, UNMARK, QUES2
$$CPTIER^PSNAPIS DISPLAY+4
$$PROD2^PSNAPIS BLD1, IDENT
DRG^PSSDGUPD GOTIT+5
DRG^PSSHUIDG GOTIT+2
^PSSREF MARK+1, UNMARK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option allows you to choose entries from your drug file and helps you",!,"review your NDF matches and mark individual entries to send to CMOP.",!
  • Line Location: TEXT+0
Function Call: WRITE
  • Prompt: !,"If you mark the entry to transmit to CMOP, it will replace your Dispense Unit",!,"with the VA Dispense Unit. In addition, you may overwrite the local drug name",!,"with the VA Print Name and the entry will remain uneditable.",!
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPLAY+0
Function Call: WRITE
  • Prompt: !!?3,"Local Drug Generic Name: ",PSXLOC
  • Line Location: DISPLAY+0
Function Call: WRITE
  • Prompt: !!?3,"Local Drug Generic Name: ",PSXLOC
  • Line Location: DISPLAY+0
Function Call: WRITE
  • Prompt: !!,"VA Print Name: ",PSXVAP,?59,"VA Dispense Unit: ",PSXDP,!,"VA Drug Class: ",$P(^PS(50.605,$P(PSXDN,"^",6),0),"^",1),?50,"CMOP ID: ",PSXID
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,"COPAY Tier: ",$P(PSNCP,"^",1)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !!,"Do you wish to mark this drug to transmit to CMOP? "
  • Line Location: MARK+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to UNmark this drug to transmit to CMOP? "
  • Line Location: UNMARK+0
Function Call: WRITE
  • Prompt: !!,"Do you wish to overwrite your local name? "
  • Line Location: QUES2+0
Function Call: WRITE
  • Prompt: !,"You cannot write over the GENERIC NAME because one already has that",!,"VA Print Name. You cannot have duplicate names.",!
  • Line Location: DUP+0
Function Call: WRITE
  • Prompt: !,PSSEXP(PSSXX)
  • Line Location: PICK2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PICK2+1
Function Call: WRITE
  • Prompt: !!,"Your old Dispense Unit ",$P(PSXODE,"^",8)," does not match the new one ",PSXDP,".",!,"You may wish to edit the Price Per Order Unit and/or The Dispense",!,"Units Per Order Unit.",!
  • Line Location: QUEST+0
Routine Call
  • DIE
  • Line Location:
    • QUESTA
    • QDM
Routine Call
  • DIC
  • Line Location:
    • PICK1
Routine Call
  • DIR
  • Line Location:
    • MARK
    • UNMARK
    • QUES2

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)
^DIC(51.5 - [#51.5] DISPLAY+1
^PS(50.605 - [#50.605] DISPLAY+3
^PS(59 - [#59] GOTIT+3
^PSDRUG - [#50] DISPLAY+1, CHECK, MARK+1*, UNMARK+1*, QUES2+1*, BLD+1, BLD+3, BLD+5, BLD5, BLD5+1
, BLD5+2, BLD1, GOTIT, IDENT*, OLD, OLD+1*, OLD1*, SYN*, SYN1*
^PSDRUG("AQ" CHECK, CHECK+1, MARK+1*, UNMARK+1!
^PSDRUG("AQ1" IDENT*
^PSDRUG("B" QUES2+1, DUP, XREF!*
^PSDRUG("C" SYN*
^PSNTRAN - [#50.612] XREF*
^PSNTRAN("END" XREF*

Label References

Name Line Occurrences
BLD PICK1+2
CHECK DISPLAY+5
DISPLAY GOTIT
DUP QUES2+1
IDENT MARK+1
MARK CHECK+1
OLD OLDNM
OLD1 OLDNM
OLDNM QUES2+1
OUT MARK, UNMARK, QUES2
PICK1 PICK
QDM MARK+1
QUES2 MARK+1
QUEST MARK+1
QUESTA QUEST
SYN QUES2
SYN1 SYN
TEXT PICK
UNMARK CHECK
XREF QUES2+1

Naked Globals

Name Field # of Occurrence
^(0 BLD5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CPDATE DISPLAY+4~*!
DA MARK+1*!, UNMARK+1*!, IDENT*, QUESTA*, QDM*
DIC PICK1*!
DIC(0 PICK1*
>> DIE QUESTA*, QDM*
>> DIE("NO^" QUESTA*!
DIR MARK!, UNMARK!, QUES2!
DIR("?" QUES2*
DIR(0 MARK*, UNMARK*, QUES2*
DIRUT MARK!, UNMARK!, QUES2!
DMFU GOTIT+1~, GOTIT+4*, GOTIT+5
DNSNAM GOTIT+1~, GOTIT+5*
DNSPORT GOTIT+1~, GOTIT+5*
>> DR QUESTA*, QDM*
DT BLD+3
>> DTOUT OUT
>> DUOUT MARK, UNMARK, QUES2
DVER GOTIT+1~, GOTIT+4*, GOTIT+5
IOF DISPLAY
>> K IDENT*
NONCE DONE!, OLDNM, OLD*, OLD1*
PSNCP DISPLAY+4~*
PSSEXP DONE!, PICK1+1!, PICK2+1!
PSSEXP( PICK2
PSSEXP(0 BLD1+2, PICK1+2*, PICK2, PICK2+1
PSSEXP(1 BLD+4*
PSSEXP(2 BLD+5*
PSSEXP(3 BLD5*
PSSEXP(4 BLD5+1*
PSSEXP(5 BLD5+2*
PSSEXP(6 BLD1+1*
>> PSSHUIDG GOTIT+2
>> PSSXX BLD1*, BLD1+1, BLD1+2, PICK2*, GOTIT
PSXBT DONE!, CHECK+1, MARK*, UNMARK+1*, PICK1+2*, GOTIT+2
PSXCMOP DONE!
PSXDN DONE!, DISPLAY+3, BLD1*
PSXDP DONE!, DISPLAY+3, MARK+1, BLD1+2*, QUEST
PSXF DONE!, MARK*, MARK+1*, UNMARK*, UNMARK+1*, QUES2+1*, PICK1+2*, GOTIT+2
PSXFL PICK*, DONE!, PICK1*, OUT*
PSXG DONE!, QUES2*, QUES2+1*
PSXGN DONE!, BLD1*
PSXID DONE!, DISPLAY+3, GOTIT*
PSXIDENT DONE!, IDENT*
PSXLAST DONE!, OLD*
PSXLOC DONE!, DISPLAY, DUP, XREF, PICK1+2*, OLD+1, OLD1
PSXMM PICK*, DONE!
PSXNDF DONE!, IDENT*
PSXNEXT DONE!, OLD*, OLD1
PSXNOW DONE!, SYN*, SYN1
PSXODE DONE!, DISPLAY+1*, DISPLAY+2, QUEST
PSXOU DONE!, DISPLAY+1*
PSXUM DONE!, DISPLAY+1, DISPLAY+4, CHECK, CHECK+1, MARK+1, UNMARK+1, QUES2+1, XREF, BLD+1
, BLD+3, BLD+5, BLD5, BLD5+1, BLD5+2, BLD1, PICK1+2*, GOTIT, GOTIT+2, GOTIT+5
, IDENT, QUESTA, OLD, OLD+1, OLD1, SYN, SYN1, QDM
PSXVAP DONE!, DISPLAY+3, QUES2+1, DUP, XREF, BLD1+2*, SYN
PSXVAPN DONE!, IDENT*
PSXVP DONE!, BLD1*
PSXZERO DONE!, GOTIT*
RTC DONE!, OLD*
U PICK*
X DONE!, DISPLAY+4~!, MARK!, UNMARK!, QUES2!, BLD+2~, BLD+4, IDENT*, OLD+1, OLD1
X1 BLD+2~, BLD+3*
X2 BLD+2~, BLD+3*
XX GOTIT+1~*, GOTIT+3*, GOTIT+4, GOTIT+5
Y DONE!, MARK!, MARK+1, UNMARK!, UNMARK+1, QUES2!, QUES2+1, PICK1, PICK1+2
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