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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 DD^%DT  NOW^%DTC  ^DIR  
Drug Accountability 1 (,PSANDC1)^PSAHELP  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Drug Accountability 2 PSAORDP  PSAUP  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT DQ+2
NOW^%DTC DQ+2
^%ZIS PSAUP4+9
^%ZISC DQ+5
^%ZTLOAD PSAUP4+10
^DIR SCREEN+4
^PSAHELP OU+4
PSANDC1^PSAHELP DRUG+14

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
Routine Call
  • DIR
  • Line Location:
    • SCREEN+4
Routine Call
  • %ZIS
  • Line Location:
    • PSAUP4+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] OU+2, OU+3, OU+6, OU+23, OU+24
^PSD(58.8 - [#58.8] DRUG+7, DRUG+8, HAVEDRG+4, HAVEDRG+5, HAVEDRG+6, HAVEDRG+9, HAVEDRG+10, HAVEDRG+11
^PSDRUG - [#50] DRUG+1, DRUG+2, DRUG+4, HAVEDRG+2, HAVEDRG+14
^VA(200 - [#200] OU+19, OU+24
^XTMP("PSAPV" DQ+4, START, START+2, BUYSHIP+1, BUYSHIP+2, DISTRIB+1, LINE+2, DRUG+5

Label References

Name Line Occurrences
$$DATE START+3, START+4, START+9, START+10, OU+19, OU+24
HAVEDRG OU+13
HDR1 HEADER+1
HEADER START, START+7, START+11, BUYSHIP+8, DISTRIB+6, LINE+3, OU+12, OU+18, OU+22, OU+27
, OU+32
LINE START+8, DISTRIB+7
LINEHDR LINE+1, LINE+3, OU+12, OU+18, OU+22
SCREEN START+7, START+11, BUYSHIP+8, DISTRIB+6, LINE+3, OU+12, OU+18, OU+22, OU+27, OU+32
, OU+35
START DQ+4

Naked Globals

Name Field # of Occurrence
^( LINE+2
^("DS" START+2
^(0 DRUG+7, DRUG+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+2, EXIT+1!, DATE+1*, DATE+2*, DATE+3
%ZIS PSAUP4+9*, EXIT+1!
DIR EXIT+1!, SCREEN+4!
DIR(0 SCREEN+4*
DIRUT EXIT+1!, SCREEN+4
DT DRUG+7, DRUG+8
IO DQ+3
IO("Q" PSAUP4+10, DQ+5!
IOF DQ+5, HEADER+1, HEADER+3
IOM DQ+1*
IOSL START+7, START+11, BUYSHIP+8, DISTRIB+6, LINE+3, OU+12, OU+18, OU+22, OU+27, OU+32
IOST START+7, START+8, START+11, BUYSHIP+8, DISTRIB+6, LINE+3, OU+12, OU+18, OU+22, OU+27
, OU+32, OU+33, OU+34, OU+35, HEADER+1, HDR1+3, HDR1+4
>> POP PSAUP4+9
PSAAECST EXIT+1!, START+1*, DRUG+24*, DRUG+28*, OU+29
PSABY EXIT+1!, BUYSHIP+1*, BUYSHIP+3, BUYSHIP+4, BUYSHIP+5, BUYSHIP+6
PSACS EXIT+1!, HAVEDRG+2*, HAVEDRG+3, HAVEDRG+8
PSACTRL DQ+4*, EXIT+1!, START, START+2, BUYSHIP+1, BUYSHIP+2, DISTRIB+1, LINE+2, DRUG+5
PSADATA EXIT+1!, LINE+2*, DRUG+1, DRUG+3, DRUG+4, DRUG+7, DRUG+10, DRUG+12, DRUG+19, DRUG+23
, DRUG+24, DRUG+26, DRUG+27, DRUG+28, DRUG+29, OU+1, OU+2, OU+3, OU+4, OU+6
, OU+8, OU+9, OU+12, OU+14, HAVEDRG+5, HAVEDRG+6, HAVEDRG+7, HAVEDRG+10, HAVEDRG+11, HAVEDRG+12
, HAVEDRG+14
PSADATE EXIT+1!, DATE~, DATE+1
PSADEC EXIT+1!, OU+8*, OU+9
PSADJDRG DQ+2*, EXIT+1!, START+1*, DRUG+1*, OU+33, SCREEN+2
PSADJORD EXIT+1!, LINE+4!, OU+6*, OU+21, OU+23, OU+24
PSADJQTY EXIT+1!, LINE+4!, DRUG+27*, DRUG+28, OU+17, OU+19
PSADJSUP DQ+2*, EXIT+1!, START+1*, DRUG+5*, OU+34, SCREEN+3
PSADLN DQ+2*, EXIT+1!, LINEHDR+2, HDR1+3, HDR1+4
PSADRG EXIT+1!, LINE+2*, DRUG+1*, DRUG+2, DRUG+4*, DRUG+5*, DRUG+7, DRUG+8, OU+13, OU+14
, HAVEDRG+2, HAVEDRG+5, HAVEDRG+6, HAVEDRG+10, HAVEDRG+11, HAVEDRG+14
PSADS EXIT+1!, DISTRIB+1*, DISTRIB+2, DISTRIB+3, DISTRIB+4, DISTRIB+5
PSAECOST EXIT+1!, DRUG+24*, DRUG+28*, OU+11
PSAEND EXIT+1!, START*, OU+31*, SCREEN+2, SCREEN+3
PSAFPG DQ+2*, EXIT+1!, HEADER+1, HEADER+2*, HEADER+3
PSAICOST EXIT+1!, LINE+2*
PSAIECST EXIT+1!, START+1*, DRUG+23*, OU+29, OU+30
PSAIN EXIT+2!, START*, START+1, START+3, START+4, START+5, START+6, START+9, START+10, DRUG+7
, DRUG+8, HDR1+2
PSALINE EXIT+2!, LINE+2*, LINE+5, DRUG+5
PSAMV EXIT+2!, START+1*, HAVEDRG+4, HAVEDRG+5, HAVEDRG+6, HAVEDRG+7
PSANDC EXIT+2!, DRUG+12*, DRUG+13, DRUG+14*, DRUG+15
>> PSANDCX DRUG+14
PSAODT EXIT+2!, LINE+4!, OU+6*, OU+24
PSAODUZ EXIT+2!, LINE+4!, OU+6*, OU+24
PSAOREA EXIT+2!, LINE+4!
PSAOUT PSAUP4+9*, DQ+2*, DQ+4, EXIT+2!, START+7, START+11, BUYSHIP+8, DISTRIB+6, LINE+2, LINE+3
, OU+12, OU+18, OU+22, OU+26, OU+27, OU+32, SCREEN+4*
PSAPAGE EXIT+2!, START*, HDR1+2, HDR1+3, HDR1+4, HDR1+5*
PSAPHARM EXIT+2!, START+1*, HAVEDRG+9, HAVEDRG+10, HAVEDRG+11, HAVEDRG+12
PSAQDT EXIT+2!, LINE+4!, DRUG+27*, OU+19
PSAQDUZ EXIT+2!, LINE+4!, DRUG+27*, OU+19
PSAQREA EXIT+2!, LINE+4!, DRUG+27*, OU+19
PSARUN DQ+2*, EXIT+2!, HDR1+4
PSAS EXIT+2!, SCREEN+1*
PSASLN DQ+2*, EXIT+2!, OU+28
PSASS EXIT+2!, SCREEN+1*
PSAST EXIT+2!, BUYSHIP+2*, BUYSHIP+3, BUYSHIP+4, BUYSHIP+5, BUYSHIP+7
PSASTA EXIT+2!, START+5*, START+6
PSATOT EXIT+2!, LINE+2*
Y DQ+2*, EXIT+2!
ZTDESC PSAUP4+10*, EXIT+2!
>> ZTQUEUED DQ+5
>> ZTREQ DQ+5*
ZTRTN PSAUP4+10*, EXIT+2!
ZTSK EXIT+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All