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

Package: IFCAP

Routine: PRCHNPO9


Information

PRCHNPO9 ;WISC/SC/JDM-SPLITTED PRCHNPO ROUTINE, ENTER NEW P.O./REQ. ; [12/10/98 12:22pm]

Source Information

Source file <PRCHNPO9.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 EN^DDIOL  

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
IFCAP 1 PRCHNPO  

Entry Points

Name Comments DBIA/ICR reference
EDITMSG ;messages-when editing P.O.
CKSHBOC
CKSRCCD
CKPRCHD
CKSINFO
CKPMETH
CKFOBOR
CKLI ;Messages if req'd Packaging Multiple, UCF or Drug Type Code are null
TSTREQ1 ;EP;Called from PO Input Templates to warn blank Packaging Multiple field will be required to complete transaction.
TSTREQ2 ;EP;Called from PO Input Templates to warn blank Drug Type Code will be required to complete transaction.
ERRCHKS ;EP;Called from routine PRCHNPO before allowing completion of transaction. Checks all line items for blank required fields (as appropriate) Pkg. Mult., UCF & Drug Type Code.
NOIMF

External References

Name Field # of Occurrence
EN^DDIOL CKLI+3, CKLI+4, CKLI+5, TSTREQ1+7, TSTREQ2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?5,!!,"The Estimated Shipping Charges is missing BOC!",$C(7)
  • Line Location: CKSHBOC+0
Function Call: WRITE
  • Prompt: !!?5,"Source Code for "_$S($D(PRCHNRQ):"Requisition",1:"Purchase Order")_" is undefined !",$C(7)
  • Line Location: CKSRCCD+0
Function Call: WRITE
  • Prompt: !,$S($D(PRCHNRQ):"Requisition",1:"Purchase Order")_" has no date. ",$C(7)
  • Line Location: CKPRCHD+1
Function Call: WRITE
  • Prompt: $C(7),!!,"P.O. contains both a 'Ship to Address' and a 'Direct Delivery Patient'.",!,"Shipping information is unclear!"
  • Line Location: CKSINFO+0
Function Call: WRITE
  • Prompt: !,$C(7),"Method of Processing is not entered!"
  • Line Location: CKPMETH+0
Function Call: WRITE
  • Prompt: !,"F.O.B. Point with ORIGIN must have a Est. Shipping and/or Handling Charges"
  • Line Location: CKFOBOR+0
Function Call: WRITE
  • Prompt: S
  • Line Location: TSTREQ1+7
Function Call: WRITE
  • Prompt: D
  • Line Location: TSTREQ1+7
Function Call: WRITE
  • Prompt: S
  • Line Location: TSTREQ2+2
Function Call: WRITE
  • Prompt: D
  • Line Location: TSTREQ2+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(441 - [#441] CKLI+1
^PRC(442 - [#442] EDITMSG+1, CKSHBOC, CKSHBOC+1, CKSHBOC+2*, CKPRCHD, CKSINFO, CKSINFO+1, CKFOBOR, CKLI+1, CKLI+2
, TSTREQ1+1, TSTREQ1+4, TSTREQ1+7, TSTREQ2+1, TSTREQ2+2, ERRCHKS+2, ERRCHKS+8, ERRCHKS+9, ERRCHKS+10, ERRCHKS+11
^PRCD(442.5 - [#442.5] CKSINFO+2
^VA(200 - [#200] TSTREQ1+2, TSTREQ1+3, ERRCHKS+3, ERRCHKS+4

Label References

Name Line Occurrences
CKLI ERRCHKS+11
CKPMETH CKSINFO+1
NOIMF ERRCHKS+6, ERRCHKS+7

Naked Globals

Name Field # of Occurrence
^(0 EDITMSG+1, CKSINFO, CKFOBOR
^(1 CKPRCHD, CKSINFO

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CUROPT TSTREQ1+4*, ERRCHKS+5*
>> DA TSTREQ1+1, TSTREQ1+7, TSTREQ2+1, TSTREQ2+2
DUZ TSTREQ1+2, TSTREQ1+3, ERRCHKS+3, ERRCHKS+4
E CKLI+3!, CKLI+4!, CKLI+5!
E(1 CKLI+3*, CKLI+4*, CKLI+5*
E(2 CKLI+3*, CKLI+4*, CKLI+5*
E(3 CKLI+3*, CKLI+4*
>> ERMS1 CKLI+1*, CKLI+3, CKLI+4
>> ERMS2 CKLI+2*, CKLI+3, CKLI+4, CKLI+5
>> ERRFL CKLI+3*, CKLI+4*, CKLI+5*, TSTREQ1+4*, ERRCHKS+1*
>> ERROR1 CKSHBOC*, CKSRCCD*, CKPRCHD+1*, CKSINFO*, CKPMETH*, CKFOBOR*
>> ESTBOC CKSHBOC*
>> IMF CKLI+1*
>> IMFD CKLI+1*
>> LI CKLI+1, CKLI+2, TSTREQ1+4*, ERRCHKS+2*, ERRCHKS+8*, ERRCHKS+9, ERRCHKS+10, ERRCHKS+11
>> PRCHDRTY CKLI+5, ERRCHKS+11*
>> PRCHDT CKPRCHD*, CKPRCHD+1
>> PRCHER CKSHBOC*
>> PRCHEST EDITMSG+1*, CKSHBOC, CKSHBOC+2*
>> PRCHESTL EDITMSG+1*
>> PRCHFSCD CKLI+5, ERRCHKS+11*
>> PRCHMUL CKLI+3, ERRCHKS+10*
>> PRCHN("MP" CKSINFO+1*, CKSINFO+2*, CKPMETH
>> PRCHNDX CKSINFO+1*, CKSINFO+2
>> PRCHNRQ CKSRCCD, CKPRCHD+1
>> PRCHPC CKSRCCD
>> PRCHPO EDITMSG+1, CKSHBOC, CKSHBOC+1, CKSHBOC+2, CKPRCHD, CKSINFO, CKSINFO+1, CKFOBOR, CKLI+1, CKLI+2
, TSTREQ1+1, TSTREQ1+4, TSTREQ1+7, TSTREQ2+1, TSTREQ2+2, ERRCHKS+2, ERRCHKS+8, ERRCHKS+9, ERRCHKS+10, ERRCHKS+11
>> PRCHSC CKSRCCD
>> PRCHUCF CKLI+4, ERRCHKS+10*
>> PRTY CKLI+3, CKLI+4, TSTREQ1+4*, TSTREQ1+5, TSTREQ1+6, ERRCHKS+2*, ERRCHKS+6, ERRCHKS+7
>> SHBOC CKSHBOC+2*
>> SHPGBOC CKSHBOC+1*
SUPUSR TSTREQ1+2*, TSTREQ1+3*, TSTREQ1+5, ERRCHKS+3!*, ERRCHKS+4*, ERRCHKS+6
U EDITMSG+1, CKSHBOC, CKSHBOC+2, CKPRCHD, CKSINFO, CKSINFO+1, CKSINFO+2, CKFOBOR, CKLI+1, CKLI+2
, TSTREQ1+1, TSTREQ1+3, TSTREQ1+4, TSTREQ1+7, TSTREQ2+1, TSTREQ2+2, ERRCHKS+2, ERRCHKS+4, ERRCHKS+5, ERRCHKS+9
, ERRCHKS+10, ERRCHKS+11
>> VND CKLI+1*
W TSTREQ1+7!, TSTREQ2+2!
W(1 TSTREQ1+7*, TSTREQ2+2*
>> XQY0 TSTREQ1+4, ERRCHKS+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All