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

Package: IFCAP

Routine: PRCPCRDK


Information

PRCPCRDK ;WISC/RFJ-instrument kit definition ;01 Sep 93

Source Information

Source file <PRCPCRDK.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ; queue starts here
Q
PRINT ; print a instrument kit definition
H
STERILE(V1) ; return method of sterilization for ik v1
WRAPPING(V1) ; return method of wrapping for ik v1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NOTE -- This option will use a lot of paper!"
  • Line Location: PRCPCRDK+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPCRDK+11
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: PRCPCRDK+14
Function Call: WRITE
  • Prompt: !,$J(+$P(DATA,"^",2),7),?10,$E($$DESCR^PRCPUX1(PRCPINPT,ITEMDA),1,20),?31,ITEMDA,?38,REUSABLE,?40,VENDOR,?48,CATALOG,?67,$E(LOCATION,1,12)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !!,"METHOD OF STERILIZATION : ",$$STERILE(IKITEM)
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !,"METHOD OF WRAPPING/PACKAGING: ",$$WRAPPING(IKITEM)
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !!,"SPECIAL INSTRUCTIONS/REMARKS:"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !,DATA
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"DEFINITION OF INSTRUMENT KIT REPORT FOR: ",$E(PRCPINNM,1,20),?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?9,"NAME: ",IKNAME," (#",IKITEM,") ",?46,"LOCATION: ",IKLOC
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?15,"CURRENT QUANTITY ASSEMBLED: ",ONHAND
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?3,"CREATED BY: ",IKUSER,?50,"DATE: ",IKDATE
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !?1,"LAST EDIT BY: ",EDITUSER,?50,"DATE: ",EDITDATE
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !,$J("QTY",7),?10,"DESCRIPTION",?31,"MI#",?37,"RD",?40,"VEND#",?48,"CATALOG#",?67,"LOCATION",!,%
  • Line Location: H+7
Info |  Source |  Entry Points |  Interaction Calls