Routine: PSAUP4

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

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!

Customize PDF page

Package: Drug Accountability

Routine: PSAUP4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: