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

Package: National Drug File

Routine: PSNVFY


Information

PSNVFY ;BIR/CCH&WRT-verifies matches allows rematch ; 02/08/00 8:45

Source Information

Source file <PSNVFY.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
National Drug File 6 FDT^PSNACT  ($$CPTIER,$$PROD2)^PSNAPIS  BLDIT^PSNCOMP  RES2^PSNHELP  SET^PSNMRG  (INGRED,PKSIZE,PKTYPE)^PSNOUT  
VA FileMan 3 DD^%DT  NOW^%DTC  $$GET1^DIQ  

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

Package Total Caller Graph
National Drug File 3 PSNOUT  PSNVER  PSNVFY  

Entry Points

Name Comments DBIA/ICR reference
DONE
CHK
START
RESP
KILL

External References

Name Field # of Occurrence
DD^%DT START+22
NOW^%DTC START+19
$$GET1^DIQ START+15
FDT^PSNACT START+18
$$CPTIER^PSNAPIS START+19
$$PROD2^PSNAPIS START+6
BLDIT^PSNCOMP RESP+6
RES2^PSNHELP RESP+7
SET^PSNMRG RESP+9
INGRED^PSNOUT START+12
PKSIZE^PSNOUT START+9
PKTYPE^PSNOUT START+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: START+0
Function Call: WRITE
  • Prompt: ?2,"LOCAL DRUG NAME: ",PSNOLD
  • Line Location: START+0
Function Call: WRITE
  • Prompt: ?68,"N/F"
  • Condition for execution: $P(^PSDRUG(PSNB,0),"^",9)=1
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !,?40,"ORDER UNIT:"
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,?24,"DISPENSE UNITS/ORDER UNITS: ",$S('$D(NODE):"",1:$P(NODE,"^",5)),!,?37,"DISPENSE UNIT: ",$S('$D(NODE):"",1:$P(NODE,"^",8))
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"VA PRODUCT NAME: ",PSNNEW
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"VA PRINT NAME: ",$P(X,"^"),?57,"CMOP ID: ",$P(X,"^",2),!,"VA DISPENSE UNIT: ",$P(X,"^",4)
  • Line Location: START+6
Function Call: WRITE
  • Prompt: ?57,"MARKABLE FOR CMOP: "
  • Line Location: START+7
Function Call: WRITE
  • Prompt: "YES"
  • Condition for execution: $P(X,"^",3)=1
  • Line Location: START+7
Function Call: WRITE
  • Prompt: "NO"
  • Condition for execution: $P(X,"^",3)=0
  • Line Location: START+7
Function Call: WRITE
  • Prompt: "NOT MARKED"
  • Condition for execution: $P(X,"^",3)=""
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,?5,"PACKAGE SIZE: ",PSNSZE,!,?5,"PACKAGE TYPE: ",PSNTPE
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"VA CLASS: ",$P(^PS(50.605,PSNVADC,0),"^",1)_" "_$P(^PS(50.605,PSNVADC,0),"^",2)
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,"CS FEDERAL SCHEDULE: "_$S($P($G(^PSNDF(50.68,PSNFNM,7)),"^"):$P(^PSNDF(50.68,PSNFNM,7),"^"),1:"")
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !,"INGREDIENTS:"
  • Line Location: START+12
Function Call: WRITE
  • Prompt: !,"NATIONAL FORMULARY INDICATOR: "
  • Line Location: START+14
Function Call: WRITE
  • Prompt: ?30,"YES"
  • Condition for execution: NFI=1
  • Line Location: START+14
Function Call: WRITE
  • Prompt: ?30,"NO"
  • Condition for execution: NFI=0
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !,"NATIONAL FORMULARY RESTRICTION:",!,NFR
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !,"Copay Tier: ",$P(PSNCP,"^",1)
  • Line Location: START+21
Function Call: WRITE
  • Prompt: !,"Copay Effective Date: "
  • Line Location: START+22
Function Call: WRITE
  • Prompt: Y
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !!,"< Enter ""Y"" for yes, ""N"" for no >"
  • Line Location: RESP+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: RESP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RESP+5
Function Call: WRITE
  • Prompt: !," Invalid Response "
  • Line Location: RESP+8

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)
^DIC(51.5 - [#51.5] START+2
^PS(50.605 - [#50.605] START+10
^PSDRUG - [#50] CHK+1, CHK+3, START, START+2
^PSNDF(50.68 - [#50.68] CHK+3, START+11, START+13, START+18
^PSNTRAN - [#50.612] PSNVFY+6, CHK+1!, CHK+2, CHK+3, START+5, START+8, START+10, RESP+6, RESP+9*
^TMP($J KILL+1!

Label References

Name Line Occurrences
CHK PSNVFY+6, RESP+6
KILL DONE
RESP RESP+3, RESP+8
START RESP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS RESP+2*, RESP+3, RESP+4!, RESP+5, RESP+6!, RESP+7!, RESP+8, KILL!
ASC KILL+1!
BB KILL+1!
CODE KILL+2!
CPDATE START+19~*!
D0 START+5*, START+6, START+23!
DA START+6*, KILL+2!
DATE KILL+2!
DDD KILL+2!
DIC KILL!
DIR KILL+2!
DT CHK+1
DTIME RESP+2
DUNCE KILL+2!
DUZ RESP+9
EEE KILL+2!
END KILL+1!
FFF KILL+2!
FL KILL+2!
GGG KILL+2!
IEN KILL+2!
IN KILL+1!
IOF START
J KILL+2!
JJ KILL+1!
K START+6*, KILL+2!
KK KILL+1!
LIST KILL+2!
MJL KILL+1!
NBR KILL!
NFI START+13*, START+14, KILL+2!
>> NFR START+13*, START+17
NO31 KILL+2!
NODE START+2*, START+3, KILL+1!
NOM31 KILL+2!
NOMSYN KILL+2!
PP KILL+2!
PPQ KILL+2!
>> PSEDIT RESP+9
PSNARY KILL+2!
PSNB PSNVFY+6*, DONE!, CHK+1, CHK+2, CHK+3, START, START+2, START+5, START+8, START+10
, RESP+6, RESP+9
PSNCLASS KILL!
PSNCON START+23!, KILL!
PSNCP START+19~*, START+21, START+22
PSND KILL+1!
PSNDA KILL!
PSNDDA KILL!
PSNDF KILL!
PSNDFM KILL+1!
PSNENT KILL+1!
PSNF KILL+1!
PSNFD START+15~*, START+16
PSNFL PSNVFY+6*, DONE!, CHK, RESP+2*, RESP+5*, KILL!
PSNFN KILL+1!
PSNFNM START+5*, START+6, START+11, START+13, START+15, START+18, START+19, KILL!
PSNFORM KILL!
PSNIEN KILL+2!
PSNINQ KILL+2!
PSNLOC KILL+1!
PSNM KILL+1!
PSNNAM KILL+1!
PSNNAME KILL+1!
PSNNDF KILL!
PSNNEW CHK+3*, START+4, KILL!
PSNNL KILL+1!
PSNODE KILL+1!
PSNOLD CHK+3*, START, KILL!
PSNOU KILL+1!
PSNP CHK+1*, KILL+1!, KILL+2!
PSNPD KILL+2!
PSNPST CHK+3*, KILL!
PSNRAN KILL+1!
PSNSIZE START+8*, START+23!, KILL!
PSNSTDA KILL!
PSNSZ KILL!
PSNSZE START+9, START+23!, KILL+1!
PSNTPE START+9, START+23!, KILL+1!
PSNTRFL KILL+2!
PSNTYP KILL!
PSNTYPE START+8*, START+23!, KILL!
PSNUNDA KILL!
PSNUP KILL+2!
PSNV KILL+1!
PSNVADC START+10*, KILL+1!
PSNVAR KILL+1!
PSNVC KILL+1!
PSNVCL KILL+1!
PSNW PSNVFY+6*, DONE, START*, KILL+1!
PSNWR KILL+1!
PSNWRT START+2*, KILL+1!
PSNX KILL+1!
PSNXZ KILL+2!
PSNZ KILL+1!
PTPS KILL+2!
QQ KILL+2!
RM KILL+1!
RR KILL+2!
SL KILL+1!
ST KILL+2!
STOP KILL+2!
STOPIT START+23!, KILL!
TT KILL+2!
TTT KILL+2!
U CHK+3
VV KILL+1!
VVV KILL+1!
WR KILL+2!
WRT KILL+1!
X START+6*, START+7, START+19~!, KILL!
XX KILL+2!
XXX KILL+2!
Y START+22*!, START+23!, KILL!, KILL+2!
>> Z9 RESP+1
ZXZX KILL+2!
ZZ KILL+1!
ZZZ KILL+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