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

Package: IFCAP

Routine: PRCPCRDK


Information

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

Source Information

Source file <PRCPCRDK.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
IFCAP 7 INSTRKIT^PRCPCRU1  $$STORAGE^PRCPESTO  ($$MANDSRCE,$$REUSABLE)^PRCPU441  ($$SCRPAUSE,$$USER,END,P)^PRCPUREP  ^PRCPUSEL  ($$DESCR,$$INVNAME)^PRCPUX1  DISPLAY^PRCPUX2  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 DD^%DT  NOW^%DTC  

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 PRCPCRPL  

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

External References

Name Field # of Occurrence
DD^%DT PRINT+8, PRINT+10
NOW^%DTC PRINT+10
^%ZIS PRCPCRDK+11
^%ZISC Q
^%ZTLOAD PRCPCRDK+11
INSTRKIT^PRCPCRU1 PRCPCRDK+8
$$STORAGE^PRCPESTO PRINT+9, PRINT+14
$$MANDSRCE^PRCPU441 PRINT+13
$$REUSABLE^PRCPU441 PRINT+15
$$SCRPAUSE^PRCPUREP DQ+2
$$USER^PRCPUREP PRINT+8
END^PRCPUREP PRINT+27
P^PRCPUREP DQ+5, PRINT+17, PRINT+19, PRINT+22, PRINT+25
^PRCPUSEL PRCPCRDK+3
$$DESCR^PRCPUX1 PRINT+8, PRINT+16
$$INVNAME^PRCPUX1 PRINT+7
DISPLAY^PRCPUX2 PRCPCRDK+7

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
Routine Call
  • %ZIS
  • Line Location:
    • PRCPCRDK+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(445.8 STERILE+2, WRAPPING+2
^PRC(441 - [#441] PRINT+13
^PRCP(445 - [#445] PRINT+9
^PRCP(445.8 - [#445.8] DQ+3, DQ+5, PRINT+4, PRINT+6, PRINT+12, PRINT+24, STERILE+2, WRAPPING+2
^TMP($J PRCPCRDK+9, DQ+7, Q!, PRINT+3!, PRINT+4*, PRINT+11

Label References

Name Line Occurrences
$$STERILE PRINT+20
$$WRAPPING PRINT+21
H PRINT+10, PRINT+17, PRINT+19, PRINT+22, PRINT+25
PRINT DQ+4, DQ+7
Q PRCPCRDK+11

Naked Globals

Name Field # of Occurrence
^( PRINT+4, PRINT+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1~, PRINT+10, H*, H+1, H+6*, H+7, STERILE+1~, STERILE+2*, STERILE+3, WRAPPING+1~
, WRAPPING+2*, WRAPPING+3
%I PRINT+1~
>> %ZIS PRCPCRDK+11*
ALLKITS PRCPCRDK+4~, PRCPCRDK+9, PRCPCRDK+10, DQ+3, DQ+7
CATALOG PRINT+1~, PRINT+13*, PRINT+16
DATA PRINT+1~, PRINT+4*, PRINT+12*, PRINT+16, PRINT+24*, PRINT+26
EDITDATE PRINT+1~, PRINT+8*, H+5
EDITUSER PRINT+1~, PRINT+8*, H+5
IKDATA PRINT+1~, PRINT+6*, PRINT+7, PRINT+8
IKDATE PRINT+1~, PRINT+8*, H+4
IKITEM DQ+1~, DQ+3*, DQ+5, DQ+7*, PRINT+4, PRINT+6, PRINT+8, PRINT+9, PRINT+12, PRINT+20
PRINT+21, PRINT+24, H+2
IKLOC PRINT+1~, PRINT+9*, H+2
IKNAME PRINT+1~, PRINT+8*, H+2
IKUSER PRINT+1~, PRINT+8*, H+4
IO PRINT+10
IO("Q" PRCPCRDK+11!
IOF H
IOSL PRINT+17, PRINT+19, PRINT+22, PRINT+25
ITEMDA PRINT+1~, PRINT+4*, PRINT+11*, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16
LOCATION PRINT+1~, PRINT+14*, PRINT+16
NOW PRINT+1~, PRINT+10*, H
ONHAND PRINT+1~, PRINT+9*, H+3
PAGE PRINT+1~, PRINT+10*, H*
>> POP PRCPCRDK+11
>> PRCP("I" PRCPCRDK+3
PRCPFLAG DQ+1~, DQ+3, DQ+4, PRINT+11, PRINT+17, PRINT+18, PRINT+19, PRINT+22, PRINT+24, PRINT+25
PRCPINNM PRINT+1~, PRINT+7*, H+1
PRCPINPT PRINT+1~, PRINT+7*, PRINT+8, PRINT+9, PRINT+14, PRINT+16
REUSABLE PRINT+1~, PRINT+15*, PRINT+16
SCREEN DQ+1~, DQ+2*, DQ+5, PRINT+17, PRINT+19, PRINT+22, PRINT+25, H
SEQUENCE PRINT+1~, PRINT+11*
V1 STERILE~, STERILE+2, WRAPPING~, WRAPPING+2
VENDOR PRINT+1~, PRINT+13*, PRINT+16
X PRCPCRDK+4~, PRCPCRDK+5!, PRCPCRDK+7, DQ+1~, PRINT+24*
X(1 PRCPCRDK+5*
X(2 PRCPCRDK+6*
Y DQ+1~, PRINT+8*, PRINT+10*
>> ZTDESC PRCPCRDK+12*
>> ZTRTN PRCPCRDK+12*
>> ZTSAVE("ALLKITS" PRCPCRDK+13*
>> ZTSAVE("PRCP*" PRCPCRDK+13*
>> ZTSAVE("ZTREQ" PRCPCRDK+13*
>> ZTSAVE("^TMP($J,""PRCPKITS""," PRCPCRDK+13*
ZTSK PRCPCRDK+11!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All