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

Package: Drug Accountability

Routine: PSAUP4


Information

PSAUP4 ;BIR/JMB-Upload and Process Prime Vendor Invoice Data - CONT'D ;9/19/97

Source Information

Source file <PSAUP4.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ;queue starts here
EXIT ;Kills printing variables only
START
BUYSHIP
DISTRIB
DATE(PSADATE)
LINE ;print line items
DRUG
OU
LINEHDR ;item header
HEADER ;Page header
HDR1
SCREEN ;Hold on screen
HAVEDRG ;Display data if drug is found.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter the device which will be used to print",!,"the invoices with all items, errors, and adjustments.",!
  • Line Location: PSAUP4+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: !!,"ORDER# : "_$P(PSAIN,"^",4),?40,"ORDER DATE : "_$$DATE($P(PSAIN,"^",3))
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"INVOICE#: "_$P(PSAIN,"^",2),?40,"INVOICE DATE: "_$$DATE(+PSAIN)
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"STATUS : "_$S(PSASTA="":"UPLOADED WITH ERRORS",PSASTA="OK":"UPLOADED WITHOUT ERRORS",PSASTA="P":"PROCESSED",1:"UNKNOWN")_$S($P(PSAIN,"^",13)="SUP":" (SUPPLY INVOICE)",1:"")
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,"DELIVERY DATE REQUESTED: ",$$DATE($P(PSAIN,"^",5))
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"DATE RECEIVED : "_$S(+$P(PSAIN,"^",11)&($$DATE(+$P(PSAIN,"^",11))):" ("_$$DATE($P(PSAIN,"^",6))_")",1:$$DATE($P(PSAIN,"^",6)))
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !!,"BUYER INFORMATION:",?40,"SHIPPING INFORMATION:"
  • Line Location: BUYSHIP+0
Function Call: WRITE
  • Prompt: !?2,$P(PSABY,"^"),?42,$P(PSAST,"^")
  • Line Location: BUYSHIP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: BUYSHIP+4
Function Call: WRITE
  • Prompt: ?42,$P(PSAST,"^",2)
  • Condition for execution: $P(PSABY,"^",2)'="" ?2,$P(PSABY,"^",2) W:$P(PSAST,"^",2)'=""
  • Line Location: BUYSHIP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BUYSHIP+5
Function Call: WRITE
  • Prompt: ?42,$P(PSAST,"^",3)
  • Condition for execution: $P(PSABY,"^",3)'="" ?2,$P(PSABY,"^",3) W:$P(PSAST,"^",3)'=""
  • Line Location: BUYSHIP+5
Function Call: WRITE
  • Prompt: !?2,$P(PSABY,"^",4)_" "_$P(PSABY,"^",5)_" ",$P(PSABY,"^",6)
  • Line Location: BUYSHIP+6
Function Call: WRITE
  • Prompt: ?42,$P(PSAST,"^",4)_" "_$P(PSAST,"^",5)_" ",$P(PSAST,"^",6)
  • Line Location: BUYSHIP+7
Function Call: WRITE
  • Prompt: !!,"DISTRIBUTOR INFORMATION:"
  • Line Location: DISTRIB+0
Function Call: WRITE
  • Prompt: !?2,$P(PSADS,"^")
  • Line Location: DISTRIB+2
Function Call: WRITE
  • Prompt: !?2,$P(PSADS,"^",4)_" "_$P(PSADS,"^",5)_" ",$P(PSADS,"^",6)
  • Line Location: DISTRIB+5
Function Call: WRITE
  • Prompt: !,?5,"** INACTIVE IN DRUG FILE **"
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: ?9,$P(^PSDRUG(+$P(PSADATA,"^",6),0),"^")
  • Line Location: DRUG+4
Function Call: WRITE
  • Prompt: ?7,"**"_$P(^XTMP("PSAPV",PSACTRL,"IT",PSALINE,"SUP"),"^",3)
  • Line Location: DRUG+5
Function Call: WRITE
  • Prompt: !?5,"*** INACTIVE IN MASTER VAULT"
  • Line Location: DRUG+7
Function Call: WRITE
  • Prompt: !?5,"*** INACTIVE IN PHARMACY LOCATION"
  • Line Location: DRUG+8
Function Call: WRITE
  • Prompt: !?9,"UPC: "_$P($P(PSADATA,"^",26),"~")
  • Line Location: DRUG+10
Function Call: WRITE
  • Prompt: PSANDC
  • Line Location: DRUG+15
Function Call: WRITE
  • Prompt: ?40,$J($P(PSADATA,"^"),6)
  • Line Location: DRUG+24
Function Call: WRITE
  • Prompt: ?53,$P($G(^DIC(51.5,+$P($P(PSADATA,"^",2),"~",2),0)),"^")
  • Line Location: OU+2
Function Call: WRITE
  • Prompt: ?48," ?-> "_$P(PSADATA,"^",2)
  • Line Location: OU+3
Function Call: WRITE
  • Prompt: ?53,$P($G(^DIC(51.5,+$P(PSADATA,"^",12),0)),"^")_"("_$P($P(PSADATA,"^",2),"~")_")"
  • Line Location: OU+6
Function Call: WRITE
  • Prompt: !?9,"STOCK LEVEL : ",!?9,"REORDER LEVEL: "_$P(PSADATA,"^",21),!?9,"DISPENSE UNITS/ORDER UNIT: "
  • Line Location: OU+14
Function Call: WRITE
  • Prompt: !,PSASLN
  • Line Location: OU+28
Function Call: WRITE
  • Prompt: !?48,"TOTAL INVOICED COST",?67,$J(PSAIECST,12,2)
  • Line Location: OU+30
Function Call: WRITE
  • Prompt: !!,"* THE DRUG WAS MATCHED TO THE DRUG FILE."
  • Line Location: OU+33
Function Call: WRITE
  • Prompt: !!,"* THE ITEM IS A SUPPLY ITEM."
  • Line Location: OU+34
Function Call: WRITE
  • Prompt: !?50,"ORDER",?62,"COST/",?71,"EXTENDED"
  • Line Location: LINEHDR+1
Function Call: WRITE
  • Prompt: !,"LINE#",?9,"NDC",?25,"VSN",?43,"QTY",?51,"UNIT",?62,"UNIT",?75,"COST",!,PSADLN,!
  • Line Location: LINEHDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE"
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !?26,"PRIME VENDOR UPLOAD REPORT",!
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: ?(74-$L(PSAPAGE)),"PAGE "_PSAPAGE,!,PSADLN
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,"RUN: "_PSARUN,?(74-$L(PSAPAGE)),"PAGE "_PSAPAGE,!,PSADLN
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SCREEN+1
Function Call: WRITE
  • Prompt: !," * THE DRUG WAS MATCHED TO THE DRUG FILE."
  • Line Location: SCREEN+2
Function Call: WRITE
  • Prompt: !,"** THE ITEM IS A SUPPLY ITEM."
  • Line Location: SCREEN+3
Function Call: WRITE
  • Prompt: !?9,"STOCK LEVEL : "_$P(PSADATA,"^",27),!?9,"REORDER LEVEL: "_$P(PSADATA,"^",21)
  • Line Location: HAVEDRG+7
Function Call: WRITE
  • Prompt: !?9,"STOCK LEVEL : "_$P(PSADATA,"^",27),!?9,"REORDER LEVEL: "_$P(PSADATA,"^",21)
  • Line Location: HAVEDRG+12
Function Call: WRITE
  • Prompt: !?9,"DISPENSE UNITS/ORDER UNIT: "
  • Line Location: HAVEDRG+13
Function Call: WRITE
  • Prompt: $S(+$P(PSADATA,"^",20):+$P(PSADATA,"^",20),+$P($G(^PSDRUG(PSADRG,1,+$P(PSADATA,"^",7),0)),"^",7):+$P($G(^PSDRUG(PSADRG,1,+$P(PSADATA,"^",7),0)),"^",7),1:"")
  • Line Location: HAVEDRG+14
Info |  Source |  Entry Points |  Interaction Calls