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

Package: Drug Accountability

Routine: PSAORDP2


Information

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

Source Information

Source file <PSAORDP2.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls