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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRCSRIP

Package: IFCAP

Routine: PRCSRIP


Information

PRCSRIP ;WISC/SAW/BMM-PRINT/DISPLAY ITEMS BY VENDOR FROM REPETITIVE ITEM LIST FILE ;8/18/94 14:24 ;

Source Information

Source file <PRCSRIP.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**13,81**;Oct 20, 2000
QUE
ITEML ;PRC*5.1*81 redirect to ITEML1D instead of ITEML1 if a DynaMed RIL
ITEML1
HOLD
HDRL
SORT ;See NOIS MON-0399-51726
EXIT
ITEML1D(PRCVDN) ;PRC*5.1*81

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"VENDOR: ",$P(N,";")," (",$P(N,";",2),")",!
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !,"Items have not yet been entered for Repetitive Item List # ",PRCSNO
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !!,"TOTAL # OF ITEMS (ALL VENDORS): ",$J(PRCSIT,4),?40,"TOTAL COST (ALL VENDORS): ",$J(PRCSTC,9,2)
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !!,"TOTAL # OF ITEMS: ",$J(K,4),?25,"TOTAL COST: ",$J(PRCSC,9,2),!
  • Line Location: ITEML+11
Function Call: WRITE
  • Prompt: L
  • Line Location: ITEML+11
Function Call: WRITE
  • Prompt: !!,"VENDOR: ",$P(N,";")," (",$P(N,";",2),")",!
  • Line Location: ITEML1+0
Function Call: WRITE
  • Prompt: !,$P(X,"^"),?12
  • Line Location: ITEML1+1
Function Call: WRITE
  • Prompt: $E($P(^(0),"^",2),1,42)
  • Condition for execution: $D(^PRC(441,$P(X,"^"),0))
  • Line Location: ITEML1+1
Function Call: WRITE
  • Prompt: ?54,$S($P(X,"^",2)[".":$J($P(X,"^",2),9,2),1:$J($P(X,"^",2),9)),?66,$J($P(X,"^",4),9,2)
  • Line Location: ITEML1+1
Function Call: WRITE
  • Prompt: ?78,$S($D(^PRCD(420.5,+$P(^(0),"^",7),0)):$P(^(0),"^"),1:"")
  • Line Location: ITEML1+2
Function Call: READ
  • Variable: Z(1)
  • Timeout: DTIME
  • Line Location: HOLD+0
Function Call: WRITE
  • Prompt: @IOF,"REPETITIVE ITEM LIST #: ",PRCSNO,?50,"DATE: ",PRCSD," PAGE ",PRCSP
  • Line Location: HDRL+0
Function Call: WRITE
  • Prompt: !,"ITEM NO.",?12,"SHORT DESCRIPTION",?55,"QUANTITY",?66,"UNIT COST",?77,"U/P",!
  • Line Location: HDRL+1
Function Call: WRITE
  • Prompt: L
  • Line Location: HDRL+1
Function Call: WRITE
  • Prompt: !!,"VENDOR: ",$P(N,";")," (",$P(N,";",2),")",!
  • Line Location: ITEML1D+6
Function Call: WRITE
  • Prompt: !,$P(X,"^"),?12
  • Line Location: ITEML1D+7
Function Call: WRITE
  • Prompt: $E($P(^(0),"^",2),1,42)
  • Condition for execution: $D(^PRC(441,$P(X,"^"),0))
  • Line Location: ITEML1D+7
Function Call: WRITE
  • Prompt: ?54,$S($P(X,"^",2)[".":$J($P(X,"^",2),9,2),1:$J($P(X,"^",2),9)),?66,$J($P(X,"^",4),9,2)
  • Line Location: ITEML1D+7
Function Call: WRITE
  • Prompt: ?78,$S($D(^PRCD(420.5,+$P(^(0),"^",7),0)):$P(^(0),"^"),1:"")
  • Line Location: ITEML1D+8
Function Call: WRITE
  • Prompt: !,"DM DOC ID: ",$P(X,"^",7),?45,"DATE NEEDED BY: ",PRCVED
  • Line Location: ITEML1D+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410.3 - [#410.3] Classic Fileman Calls
410.31 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call