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

Package: IFCAP

Routine: PRCPCASR


Information

PRCPCASR ;WISC/RFJ-assemble cc or ik (print list of items) ;01 Sep 93

Source Information

Source file <PRCPCASR.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT(QUANTITY) ; print list of items in cc or ik
; quantity=qty to assemble
; returns variable notinvpt=1 if items not stored in inventory point
; returns variable negative=1 if new item qty drops below zero
; returns variable prcpflag=1 if user ^ during display
; returns ^tmp($j,"prcpcasr",itemda)=qty needed ^ inventory value
H ; display header on display
CHECK(TYPE) ; called from prcpcasc,prcpcask to check the ik or cc definition
; before assembly
; type=c for case cart or =i for instrument kit

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,ITEMDA,?7,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,22),?30,$S(REUSABLE=1:"Reusable",1:"Disposable"),?44,$J($P(ITEMDATA,"^",7),13),$J(DATA,10),$J(NEWQTY,13)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !?44,$J("CURRENT",13),$J("QTY",10),$J("** NEW **",13),!,"IM#",?7,"DESCRIPTION",?30,"ITEM TYPE",?44,$J("QTY ON-HAND",13),$J("NEEDED",10),$J("QTY ON-HAND",13)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,%
  • Line Location: H+2
Info |  Source |  Entry Points |  Interaction Calls