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
Print Page as PDF
Routine: PSAORDP1

Package: Drug Accountability

Routine: PSAORDP1


Information

PSAORDP1 ;BIR/JMB-Print Orders - CONT'D ;9/19/97

Source Information

Source file <PSAORDP1.m>

Entry Points

Name Comments DBIA/ICR reference
DQ
START
EXIT ;Kills
DATE(PSADATE)
LINE ;print line items
DRUG
CS
UPC
NDC
VSN
QTY
OU
PRICE
XCOST
LEVELS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ORDER# : "_PSAORDER,?40,"ORDER DATE : "_$$DATE($P(PSAIN,"^",4))
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"INVOICE#: "_PSAINVN,?40,"INVOICE DATE : "_$$DATE($P(PSAIN,"^",2))
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"STATUS : "_$S(PSASTA="P":"PROCESSED",PSASTA="V":"VERIFIED",PSASTA="L":"LOCKED VERIFYING",PSASTA="C":"COMPLETED",1:"UNKNOWN")_$S(+$P(PSAIN,"^",13):" (SUPPLY INVOICE)",1:"")
  • Line Location: START+3
Function Call: WRITE
  • Prompt: ?40,"DELIVERY DATE: "_$S(PSADEL:$$DATE(PSADEL),1:"UNKNOWN")
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !?40,"DATE RECEIVED: "_$S(PSAREC:$$DATE(PSAREC),PSADEL:$$DATE(PSADEL),1:"UNKNOWN"),!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !?5,"*** INACTIVE IN MASTER VAULT ***"
  • Line Location: CS+0
Function Call: WRITE
  • Prompt: !?5,"*** INACTIVE IN PHARMACY LOCATION ***"
  • Line Location: CS+1
Function Call: WRITE
  • Prompt: !?5,"*** INACTIVE IN DRUG FILE ***"
  • Line Location: CS+2
Function Call: WRITE
  • Prompt: !?9,PSANDC
  • Line Location: NDC+1
Function Call: WRITE
  • Prompt: ?40,$J($P(PSADATA,"^",3),6)
  • Line Location: QTY+13
Function Call: WRITE
  • Prompt: ?60,$S(+$P(PSADATA,"^",5):$J($P(PSADATA,"^",5),7,PSADEC),1:0)
  • Line Location: PRICE+10
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: LEVELS+19
Function Call: WRITE
  • Prompt: !?47,"TOTAL INVOICED COST",?67,$J(PSAIECST,12,2)
  • Line Location: LEVELS+28
Function Call: WRITE
  • Prompt: !!," * THE DRUG WAS MATCHED TO THE DRUG FILE.",!
  • Line Location: LEVELS+31
Function Call: WRITE
  • Prompt: !,"** THE ITEM IS A SUPPLY ITEM.",!
  • Line Location: LEVELS+32
Function Call: WRITE
  • Prompt: !
  • Line Location: LEVELS+34
Info |  Source |  Entry Points |  Interaction Calls