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

Package: National Drug File

Routine: PSNHIT


Information

PSNHIT ;BIR/CCH&WRT-After match is made package size and type selected ; 02/08/00 8:41

Source Information

Source file <PSNHIT.m>

Entry Points

Name Comments DBIA/ICR reference
HIT
FORM
WRTIT
VAPN
RESP
SET
PRA ; PRINT DOSE FORM AND CLASS AFTER VA PRODUCT NAME IF A DUPLICATE
; S PSNDFM=$P(^PSNDF(PSNDA,2,$P(^PSNDF(PSNDA,5,KK,0),"^",2),0),"^",1),PSND=$P(^PS(50.606,PSNDFM,0),"^",1)
; S PSNVCL=$P(^PSNDF(PSNDA,2,$P(^PSNDF(PSNDA,5,KK,0),"^",2),0),"^",3),PSNVC=$P(^PS(50.605,PSNVCL,0),"^",1) W " ",PSND," ",PSNVC S PSNF=0 Q
; W " ",PSND," ",PSNVC S PSNF=0 Q
OOPS
STAR
SETARY1
ARRAY
KILL
STAR0
ASKIT
ASKIT1
EXTD
PKI

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Match made with ",PSNLOC
  • Line Location: HIT+0
Function Call: WRITE
  • Prompt: ?62,"N/F"
  • Condition for execution: $P(^PSDRUG(PSNB,0),"^",9)=1
  • Line Location: HIT+0
Function Call: WRITE
  • Prompt: !," Now select VA Product Name ",!
  • Line Location: HIT+0
Function Call: READ
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: WRTIT+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter your choice: "
  • Variable: ANS
  • Timeout: DTIME
  • Line Location: VAPN+0
Function Call: WRITE
  • Prompt: !,?24,"DISPENSE UNITS/ORDER UNITS: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",5)),!,?37,"DISPENSE UNIT: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",8)),!,?5
  • Line Location: VAPN+3
Function Call: WRITE
  • Prompt: !!,"Invalid answer",!
  • Line Location: VAPN+5
Function Call: READ
  • Timeout: DTIME
  • Line Location: RESP+0
Function Call: WRITE
  • Prompt: !," Invalid Response "
  • Line Location: RESP+6
Function Call: WRITE
  • Prompt: !,"Inactive VA Product entry has been selected!!",!!
  • Line Location: RESP+7
Function Call: WRITE
  • Prompt: " ",PSND," ",PSNVC
  • Line Location: PRA+2
Function Call: WRITE
  • Prompt: " ",PSND," ",PSNVC
  • Line Location: PRA+3
Function Call: WRITE
  • Prompt: !!,"No match found"
  • Line Location: OOPS+0
Function Call: WRITE
  • Prompt: !!,"Local drug ",$P(^PSDRUG(PSNB,0),"^"),!,"matches ",?11,PSNFORM,!,"PACKAGE SIZE: ",PSNSZE,!,"PACKAGE TYPE: ",PSNTPE
  • Line Location: ASKIT+0
Function Call: WRITE
  • Prompt: !?10,"Is this a match ?"
  • Line Location: ASKIT+1
Function Call: WRITE
  • Prompt: !!,"Local drug ",$P(^PSDRUG(PSNB,0),"^"),!,"matches ",?11,PSNFORM,!,"PACKAGE SIZE: ",PSNSZE,!,"PACKAGE TYPE: ",PSNTPE
  • Line Location: ASKIT1+0
Function Call: WRITE
  • Prompt: !?10,"Is this a match ?"
  • Line Location: ASKIT1+1

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