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

Entry Points

Name Comments DBIA/ICR reference
DONE
CHK
START
RESP
KILL

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call