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

Package: Drug Accountability

Routine: PSAORDP1


Information

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

Source Information

Source file <PSAORDP1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Drug Accountability 2 PSANDC1^PSAHELP  (,HEADER,LINEHDR,SCREEN)^PSAORDP2  
VA Fileman 2 DD^%DT  NOW^%DTC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Drug Accountability 3 PSAORDP  PSAORDP2  PSAVER  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT DQ
NOW^%DTC DQ
PSANDC1^PSAHELP NDC+1
^PSAORDP2 LEVELS+12
HEADER^PSAORDP2 DQ+1, LINE+14, LEVELS+11, LEVELS+15, LEVELS+23, LEVELS+28, LEVELS+29
LINEHDR^PSAORDP2 LINE+1, LINE+14, LEVELS+11
SCREEN^PSAORDP2 LINE+14, LEVELS+11, LEVELS+15, LEVELS+23, LEVELS+30

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="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+16
Function Call: WRITE
  • Prompt: !?47,"TOTAL INVOICED COST",?67,$J(PSAIECST,12,2)
  • Line Location: LEVELS+25
Function Call: WRITE
  • Prompt: !!," * THE DRUG WAS MATCHED TO THE DRUG FILE.",!
  • Line Location: LEVELS+28
Function Call: WRITE
  • Prompt: !,"** THE ITEM IS A SUPPLY ITEM.",!
  • Line Location: LEVELS+29
Function Call: WRITE
  • Prompt: !
  • Line Location: LEVELS+31

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] OU+1, OU+8, LEVELS+1, LEVELS+5
^PSD(58.8 - [#58.8] CS, CS+1
^PSD(58.811 - [#58.811] DQ+1, DQ+2, START, LINE+2, LINE+3, LINE+4, LINE+10, LINE+11, LINE+12, DRUG
, DRUG+2, NDC+2, QTY+2, QTY+3, QTY+5, QTY+6, OU+2, OU+3, PRICE+2, PRICE+3
, LEVELS+6, LEVELS+8, LEVELS+9, LEVELS+17, LEVELS+20, LEVELS+21, LEVELS+22, LEVELS+24
^PSDRUG - [#50] DRUG+4, DRUG+5, DRUG+8, DRUG+13, DRUG+14, CS+2, OU+1, LEVELS+1, LEVELS+2, LEVELS+4
^PSDRUG("C" NDC+2

Label References

Name Line Occurrences
$$DATE START+1, START+2, START+4, START+5
LINE START+6

Naked Globals

Name Field # of Occurrence
^(0 START, CS, CS+1, LEVELS+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ, EXIT+1!, DATE+1*, DATE+2*, DATE+3
DIR EXIT+1!
DIRUT EXIT+1!
DT CS, CS+1
IOM DQ*
IOSL LINE+14, LEVELS+11, LEVELS+15, LEVELS+23, LEVELS+28, LEVELS+29
IOST LINE+14, LEVELS+11, LEVELS+15, LEVELS+23, LEVELS+27, LEVELS+30
OU LEVELS+1*, LEVELS+2, LEVELS+7!
PSAAECST START+6*, EXIT+1!, QTY+11*, QTY+13*, LEVELS+18, LEVELS+19
PSACIEN EXIT+1!, LEVELS+21*, LEVELS+22, LEVELS+24
PSADATA EXIT+1!, LINE+4*, LINE+15, DRUG+13, DRUG+14, CS, UPC, NDC, VSN, QTY+1
, QTY+4, QTY+12, QTY+13, OU+1, PRICE+1, PRICE+8, PRICE+10, LEVELS+5
PSADATE EXIT+1!, DATE~, DATE+1
PSADEC EXIT+1!, PRICE+1*, PRICE+10
PSADEL DQ+2*, START+4, START+5, EXIT+1!
PSADJ EXIT+1!, DRUG*, DRUG+1, DRUG+2, DRUG+8*, DRUG+12, QTY+2*, QTY+3, QTY+4, QTY+5*
, QTY+6, OU+2*, OU+3, PRICE+2*, PRICE+3
PSADJD EXIT+1!, DRUG+3*, DRUG+4, DRUG+5, DRUG+8, DRUG+9
PSADJDP EXIT+1!, LINE+8!, DRUG+7*, DRUG+11*
PSADJDRG DQ*, START+6*, EXIT+1!, DRUG+5*, LEVELS+28
PSADJDV EXIT+1!, LINE+8!, DRUG+6*, DRUG+10*
PSADJO EXIT+1!, OU+2*, OU+3*, OU+5, OU+8, OU+9
PSADJOP EXIT+1!, LINE+6!, OU+7*
PSADJOV EXIT+1!, LINE+6!, OU+6*
PSADJP EXIT+2!, QTY+2*, PRICE+2*, PRICE+3*, PRICE+5, PRICE+8, PRICE+9, XCOST+1
PSADJPP EXIT+2!, LINE+7!, PRICE+7*
PSADJPV EXIT+2!, LINE+7!, PRICE+6*
PSADJQ EXIT+2!, QTY+5*, QTY+6*, QTY+8, QTY+11, QTY+13
PSADJQP EXIT+2!, LINE+5!, QTY+10*, QTY+12
PSADJQV EXIT+2!, LINE+5!, QTY+9*, QTY+12
PSADJSUP EXIT+1!, LINE+9*, DRUG+9*, LEVELS+17*, LEVELS+29
PSADLN DQ*, EXIT+2!
PSADPDT EXIT+1!, LINE+8!, DRUG+7*, DRUG+11*
PSADPDUZ EXIT+1!, LINE+8!, DRUG+7*, DRUG+11*
PSADRG EXIT+2!, DRUG*, DRUG+5*, DRUG+9*, DRUG+13*, CS, CS+1, CS+2, NDC+2, OU+1
, LEVELS+1, LEVELS+2, LEVELS+4
PSADVDT EXIT+1!, LINE+8!, DRUG+6*, DRUG+10*
PSADVDUZ EXIT+1!, LINE+8!, DRUG+6*, DRUG+10*
PSAECOST EXIT+2!, QTY+11*, QTY+13*, XCOST+1
PSAEND DQ+1*, EXIT+2!, LEVELS+26*
PSAFPG DQ*, EXIT+2!
PSAICOST EXIT+2!, LINE+1*
PSAIECST START+6*, EXIT+2!, QTY+1*, LEVELS+18, LEVELS+25
PSAIN DQ+2*, START+1, START+2, START+3, EXIT+2!, CS, CS+1
>> PSAINV DQ+2, LINE+2, LINE+3, LINE+4, LINE+10, LINE+11, LINE+12, DRUG, DRUG+2, NDC+2
, QTY+2, QTY+3, QTY+5, QTY+6, OU+2, OU+3, PRICE+2, PRICE+3, LEVELS+6, LEVELS+8
, LEVELS+9, LEVELS+17, LEVELS+20, LEVELS+21, LEVELS+22, LEVELS+24
PSAINVN DQ+2*, START+2, EXIT+2!
PSALN EXIT+3!, LINE+1*, LINE+2*, LINE+3, LINE+4, LINE+10, LINE+11, LINE+12, DRUG, DRUG+2
, NDC+2, QTY+2, QTY+3, QTY+5, QTY+6, OU+2, OU+3, PRICE+2, PRICE+3, LEVELS+6
, LEVELS+8, LEVELS+9
PSAMORE EXIT+3!, LINE+10*, LINE+11*, LINE+12*, LINE+13*, LINE+14
PSANDC EXIT+3!, NDC*, NDC+1*, NDC+2
PSANDCX NDC+1!
PSANODE EXIT+3!, DRUG+2*, DRUG+3, DRUG+6, DRUG+7, DRUG+10, DRUG+11, QTY+3*, QTY+6*, QTY+9
, QTY+10, OU+3*, OU+6, OU+7, PRICE+3*, PRICE+6, PRICE+7
PSAOPDT EXIT+3!, LINE+6!, OU+7*
PSAOPDUZ EXIT+3!, LINE+6!, OU+7*
>> PSAORD DQ+1, DQ+2, START, LINE+2, LINE+3, LINE+4, LINE+10, LINE+11, LINE+12, DRUG
, DRUG+2, NDC+2, QTY+2, QTY+3, QTY+5, QTY+6, OU+2, OU+3, PRICE+2, PRICE+3
, LEVELS+6, LEVELS+8, LEVELS+9, LEVELS+17, LEVELS+20, LEVELS+21, LEVELS+22, LEVELS+24
PSAORDER DQ+1*, START+1, EXIT+3!
PSAOU EXIT+3!, OU+1*, OU+8, OU+9
>> PSAOUT DQ*, LINE+2, LINE+14, LEVELS+11, LEVELS+12, LEVELS+14, LEVELS+15, LEVELS+23
PSAOVDT EXIT+3!, LINE+6!, OU+6*
PSAOVDUZ EXIT+3!, LINE+6!, OU+6*
PSAPAGE DQ*, EXIT+3!
PSAPPDT EXIT+3!, LINE+7!, PRICE+7*
PSAPPDUZ EXIT+3!, LINE+7!, PRICE+7*
PSAPRICE EXIT+3!, QTY+3*, QTY+4*, QTY+11, QTY+13
PSAPVDT EXIT+4!, LINE+7!, PRICE+6*
PSAPVDUZ EXIT+4!, LINE+7!, PRICE+6*
PSAQPDT EXIT+4!, LINE+5!, QTY+10*
PSAQPDUZ EXIT+4!, LINE+5!, QTY+10*
PSAQPREA EXIT+4!, LINE+5!, QTY+10*
PSAQVDT EXIT+4!, LINE+5!, QTY+9*
PSAQVDUZ EXIT+4!, LINE+5!, QTY+9*
PSAQVREA EXIT+4!, LINE+5!, QTY+9*
PSAREC DQ+2*, START+5, EXIT+4!
PSARUN DQ*, EXIT+4!
PSAS EXIT+4!
PSASLN DQ*, EXIT+4!, LEVELS+16
PSASS EXIT+4!
PSASTA DQ+2*, START+3, EXIT+4!
>> PSASUB NDC+2*, OU+1
PSATOT EXIT+4!, LINE+1*
Y DQ*, EXIT+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All