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 |  Local Variables  | All
Print Page as PDF
Routine: PSAORDP2

Package: Drug Accountability

Routine: PSAORDP2


Information

PSAORDP2 ;BIR/JMB-Print Orders - CONT'D ;7/23/97

Source Information

Source file <PSAORDP2.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Drug Accountability 1 $$DATE^PSAORDP1  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Drug Accountability 1 PSAORDP1  

Entry Points

Name Comments DBIA/ICR reference
ADJD ;Print Adj Drug
ADJQ ;Print Adj Qty
ADJO ;Print Adj Order Unit
ADJP ;Print Adj Price
LINEHDR ;item header
HEADER ;Page header
HDR1
SCREEN ;Hold on screen

External References

Name Field # of Occurrence
^DIR SCREEN+4
$$DATE^PSAORDP1 ADJD+3, ADJD+4, ADJQ+4, ADJQ+5, ADJO+4, ADJO+5, ADJP+4, ADJP+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?9,$$DATE^PSAORDP1(PSADVDT)_" "_$P($G(^VA(200,+PSADVDUZ,0)),"^")_" (V)"
  • Line Location: ADJD+3
Function Call: WRITE
  • Prompt: !?9,$$DATE^PSAORDP1(PSADPDT)_" "_$P($G(^VA(200,+PSADPDUZ,0)),"^")_" (P)"
  • Line Location: ADJD+4
Function Call: WRITE
  • Prompt: !?9,$$DATE^PSAORDP1(PSAQVDT)_" "_$P($G(^VA(200,+PSAQVDUZ,0)),"^")_" (V) = "_PSADJQV,!?11,PSAQVREA
  • Line Location: ADJQ+4
Function Call: WRITE
  • Prompt: !?9,$$DATE^PSAORDP1(PSAQPDT)_" "_$P($G(^VA(200,+PSAQPDUZ,0)),"^")_" (P) = "_PSADJQP,!?11,PSAQPREA
  • Line Location: ADJQ+5
Function Call: WRITE
  • Prompt: !?9,$$DATE^PSAORDP1(PSAOVDT)_" "_$P($G(^VA(200,+PSAOVDUZ,0)),"^")_" (V) = "_$P($G(^DIC(51.5,+PSADJOV,0)),"^")
  • Line Location: ADJO+4
Function Call: WRITE
  • Prompt: !?9,$$DATE^PSAORDP1(PSAOPDT)_" "_$P($G(^VA(200,+PSAOPDUZ,0)),"^")_" (P) = "_$P($G(^DIC(51.5,+PSADJOP,0)),"^")
  • Line Location: ADJO+5
Function Call: WRITE
  • Prompt: !?9,$$DATE^PSAORDP1(PSAPVDT)_" "_$P($G(^VA(200,+PSAPVDUZ,0)),"^")_" (V) = $"_$S($L($P(PSADJPV,".",2))<2:$FN(PSADJPV,",",2),1:PSADJPV)
  • Line Location: ADJP+4
Function Call: WRITE
  • Prompt: !?9,$$DATE^PSAORDP1(PSAPPDT)_" "_$P($G(^VA(200,+PSAPPDUZ,0)),"^")_" (P) = $"_$S($L($P(PSADJPP,".",2))<2:$FN(PSADJPP,",",2),1:PSADJPP)
  • Line Location: ADJP+5
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: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE"
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: !?27,"PRIME VENDOR ORDER 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
Routine Call
  • DIR
  • Line Location:
    • SCREEN+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(51.5 - [#51.5] ADJO+3, ADJO+4, ADJO+5
^VA(200 - [#200] ADJD+3, ADJD+4, ADJQ+4, ADJQ+5, ADJO+4, ADJO+5, ADJP+4, ADJP+5

Label References

Name Line Occurrences
HDR1 HEADER+1
HEADER ADJD+2, ADJQ+2, ADJO+2, ADJP+2
LINEHDR ADJD+2, ADJQ+2, ADJO+2, ADJP+2
SCREEN ADJD+2, ADJQ+2, ADJO+2, ADJP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR SCREEN+4!
DIR(0 SCREEN+4*
>> DIRUT SCREEN+4
IOF HEADER+1, HEADER+3
IOSL ADJD+2, ADJQ+2, ADJO+2, ADJP+2
IOST ADJD+2, ADJQ+2, ADJO+2, ADJP+2, HEADER+1, HDR1+3, HDR1+4
>> PSADJD ADJD+1
>> PSADJDP ADJD+2, ADJD+4
>> PSADJDRG SCREEN+2
>> PSADJDV ADJD+2, ADJD+3
>> PSADJO ADJO+1, ADJO+3
>> PSADJOP ADJO+2, ADJO+5
>> PSADJOV ADJO+2, ADJO+4
>> PSADJP ADJP+1, ADJP+3
>> PSADJPP ADJP+2, ADJP+5
>> PSADJPV ADJP+2, ADJP+4
>> PSADJQ ADJQ+1, ADJQ+3
>> PSADJQP ADJQ+2, ADJQ+5
>> PSADJQV ADJQ+2, ADJQ+4
>> PSADJSUP SCREEN+3
>> PSADLN LINEHDR+2, HDR1+3, HDR1+4
>> PSADPDT ADJD+4
>> PSADPDUZ ADJD+4
>> PSADVDT ADJD+3
>> PSADVDUZ ADJD+3
>> PSAEND SCREEN+2, SCREEN+3
>> PSAFPG HEADER+1, HEADER+2*, HEADER+3
>> PSAINVN HDR1+2
>> PSAOPDT ADJO+5
>> PSAOPDUZ ADJO+5
>> PSAORDER HDR1+2
>> PSAOUT ADJD+1, ADJD+2, ADJQ+1, ADJQ+2, ADJO+1, ADJO+2, ADJP+1, ADJP+2, SCREEN+4*
>> PSAOVDT ADJO+4
>> PSAOVDUZ ADJO+4
>> PSAPAGE HDR1+2, HDR1+3, HDR1+4, HDR1+5*
>> PSAPPDT ADJP+5
>> PSAPPDUZ ADJP+5
>> PSAPVDT ADJP+4
>> PSAPVDUZ ADJP+4
>> PSAQPDT ADJQ+5
>> PSAQPDUZ ADJQ+5
>> PSAQPREA ADJQ+5
>> PSAQVDT ADJQ+4
>> PSAQVDUZ ADJQ+4
>> PSAQVREA ADJQ+4
>> PSARUN HDR1+4
>> PSAS SCREEN+1*
>> PSASS SCREEN+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All