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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCPCRPL

Package: IFCAP

Routine: PRCPCRPL


Information

PRCPCRPL ;WISC/RFJ/DWA-cc and ik preparation list ; 06/23/2009 2:15 PM

Source Information

Source file <PRCPCRPL.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
IFCAP 5 ($$STERILE,$$WRAPPING)^PRCPCRDK  $$ICPT^PRCPCUT1  $$STORAGE^PRCPESTO  P^PRCPUREP  ($$DESCR,$$INVNAME,$$UNIT)^PRCPUX1  
Kernel 1 $$VERSION^XPDUTL  
Registration 1 DEM^VADPT  
VA FileMan 1 EN^DIQ1  

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

Package Total Caller Graph
IFCAP 3 PRCPCSOR  PRCPOPT1  PRCPUPAT  

Entry Points

Name Comments DBIA/ICR reference
DQ ; called from prcpopt to print preparation list on picking ticket
; print cc from ^tmp($j,"prcpcrpl-cc",itemda)
; print ik from ^tmp($j,"prcpcrpl-ik",itemda)
Q ; clean up ^TMP
PAT ; get patient data
SURG ; get surgery data
CART ; process case carts
CART2 ; set up ^TMP($J,"PRCPCRPLSEQ", for print of carts
CART3 ; print out carts
IK ; process freestanding instrument kits
IK2 ; set up ^TMP($J,"PRCPCRPLSEQ", for print of kits
IK3 ; print out kits
KIT ; process kits associated with cart
KIT2 ; set up ^TMP($J,"PRCPCRPLSEQ2", for print of kits
KIT3 ; print out kits
WRITE ; write data
CCIKNAME ; write cc or ik name
COMMENTS ; print comments
H
SURGDATA(DA,DR)

External References

Name Field # of Occurrence
EN^DIQ1 SURGDATA+4
$$STERILE^PRCPCRDK COMMENTS+3
$$WRAPPING^PRCPCRDK COMMENTS+4
$$ICPT^PRCPCUT1 SURG+3
$$STORAGE^PRCPESTO CART2+4, WRITE+2, CCIKNAME+4
P^PRCPUREP CART+11, IK+10, KIT+13, WRITE+1, CCIKNAME+1, COMMENTS+1, COMMENTS+7
$$DESCR^PRCPUX1 WRITE+3, CCIKNAME+5
$$INVNAME^PRCPUX1 CCIKNAME+8
$$UNIT^PRCPUX1 WRITE+4
DEM^VADPT PAT+2
$$VERSION^XPDUTL PAT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?2,DESCR,?45,$J(+$P(ITEMDATA,"^",2),5),$J($P($$UNIT^PRCPUX1(PRCPINPT,ITEMDA,"^"),"^",2),4)," ",$E(LOCATION,1,15),?72,"__ __ __"
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: !!?22,"* * * * * ",$S(PRCPFILE=445.7:" CASE CART ",1:"INSTRUMENT KIT")," * * * * *"
  • Line Location: CCIKNAME+6
Function Call: WRITE
  • Prompt: !,$E(DESCR,1,55),?56,$E(LOCATION,1,15),?72,"__ __ __"
  • Line Location: CCIKNAME+7
Function Call: WRITE
  • Prompt: !?10,"from: ",$$INVNAME^PRCPUX1(PRCPINPT)
  • Line Location: CCIKNAME+8
Function Call: WRITE
  • Prompt: !,"METHOD OF STERILIZATION : ",$$STERILE^PRCPCRDK(CCIKITEM)
  • Line Location: COMMENTS+3
Function Call: WRITE
  • Prompt: !,"METHOD OF WRAPPING/PACKAGING: ",$$WRAPPING^PRCPCRDK(CCIKITEM)
  • Line Location: COMMENTS+4
Function Call: WRITE
  • Prompt: !,$S(PRCPFILE=445.7:"CASE CART",1:"INSTRUMENT KIT")," SPECIAL INSTRUCTIONS/REMARKS:"
  • Line Location: COMMENTS+5
Function Call: WRITE
  • Prompt: !,DATA
  • Line Location: COMMENTS+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: $C(13),"CASE CART OR INSTRUMENT KIT PREPARATION LIST ",?(80-$L(%)),%
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?1,"PATIENT: ",$E(PATNAME,1,28),?40,"SSN: ",PATSSN,?63,"RETURNED BY ____."
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?1,"DATE OF OPERATION: ",OPDATE,?32,"OR ROOM: ",$E(ORROOM,1,18),?60,"RECEIVED BY ____. |"
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !?1,"PRINCIPAL OPERATION CODE: ",OPCODE,?59,"PICKED BY ____. | |"
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !?1,"SURGEON: ",SURGEON,?73,"| | |"
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !?73,"V V V"
  • Line Location: H+7
Function Call: WRITE
  • Prompt: !,"DESCRIPTION (#MI)",?45,$J("QTY",5),$J("UI",4),?56,"LOCATION",?72,"CK CK CK",!,%
  • Line Location: H+8
Function Call: WRITE
  • Prompt: !?1,"COMMENTS:"
  • Line Location: H+9
Function Call: WRITE
  • Prompt: !,COMMENTS(%)
  • Line Location: H+10
Function Call: WRITE
  • Prompt: !
  • Line Location: H+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCP( KIT2+4, KIT2+5, KIT3+6, CCIKNAME+2, COMMENTS+6
^PRCP(445.3 - [#445.3] PAT+1
^PRCP(445.7 - [#445.7] CART2+3, CART3+6
^PRCP(445.8 - [#445.8] CART2+7, IK2+4, IK2+5, IK3+6
^TMP("PRCPCRPL-CC" Q+1!
^TMP("PRCPCRPL-IK" Q+1!
^TMP("PRCPCRPL-KIT" Q+1!
^TMP("PRCPCRPLSEQ" Q+1!
^TMP("PRCPCRPLSEQ2" Q+1!
^TMP($J CART+1, CART+3!, CART+4, CART+10!, CART+12!, CART2+6*, CART2+7*, CART3+3, CART3+5, IK+2
, IK+4, IK+9!, IK2+2!, IK2+7*, IK3+3, IK3+5, KIT+5, KIT+7, KIT+12!, KIT2+2!
, KIT2+8*, KIT3+3, KIT3+5

Label References

Name Line Occurrences
CART DQ+6
CART2 CART+8
CART3 CART+8
CCIKNAME CART+7, IK+6, KIT+8
COMMENTS CART+9, IK+8, KIT+11
H CART+5, IK+5, KIT+8, WRITE+1, CCIKNAME+1, COMMENTS+1, COMMENTS+7
IK DQ+7
IK2 IK+7
IK3 IK+7
KIT CART+12
KIT2 KIT+10
KIT3 KIT+10
PAT DQ+4
Q DQ+8
SURG DQ+5
SURGDATA SURG+1
WRITE CART3+7, IK3+7, KIT3+7

Naked Globals

Name Field # of Occurrence
^( COMMENTS+6
^(2 PAT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DQ+3~, H*, H+1, H+2*, H+8, H+10*
CCIKITEM DQ+3~, CART+2*, CART+4*, CART2+3, CART2+6, CART2+7, CART3+5, CART3+6, IK+3*, IK+4*
, IK2+4, IK2+5, IK2+7, IK3+5, IK3+6, KIT+2~, KIT+6*, KIT+7*, KIT2+4, KIT2+5
, KIT2+8, KIT3+5, KIT3+6, CCIKNAME+2, CCIKNAME+4, CCIKNAME+5, COMMENTS+3, COMMENTS+4, COMMENTS+6
CCITEM KIT+2~, KIT+4*, KIT+5*, KIT+7
COMMENTS DQ+3~
COMMENTS( H+10
D0 SURGDATA+1~
DA SURGDATA~
>> DATA COMMENTS+6*, COMMENTS+8
DESCR DQ+3~, WRITE+3*, WRITE+4, CCIKNAME+5*, CCIKNAME+7
DFN DQ+3~, PAT+2*
DIC SURGDATA+1~, SURGDATA+4*
DIQ SURGDATA+1~, SURGDATA+4*
DIQ(0 SURGDATA+4*
DR SURGDATA~
IOF H
IOSL WRITE+1, CCIKNAME+1, COMMENTS+1, COMMENTS+7
>> ITEMDA CART2+2*, CART2+3*, CART2+4, CART2+6, CART2+7, CART3+4*, CART3+5*, CART3+6, IK2+3*, IK2+4*
, IK2+5, IK2+7, IK3+4*, IK3+5*, IK3+6, KIT2+3*, KIT2+4*, KIT2+5, KIT2+8, KIT3+4*
, KIT3+5*, KIT3+6, WRITE+2, WRITE+3, WRITE+4
ITEMDATA DQ+3~, CART3+6*, IK3+6*, KIT2+5*, KIT2+6, KIT3+6*, WRITE+4
LOCATION DQ+3~, WRITE+2*, WRITE+4, CCIKNAME+4*, CCIKNAME+7
>> NOW H
OPCODE DQ+3~, SURG+2*, SURG+3*, H+5
OPDATE DQ+3~, SURG+2*, H+4
OPDATEI DQ+3~, SURG+3*
>> ORDERDA PAT+1
ORROOM DQ+3~, SURG+2*, H+4
>> PAGE H*
PATNAME DQ+3~, PAT+3*, H+3
PATSSN DQ+3~, PAT+3*, H+3
PRCPDATA DQ+3~, CCIKNAME+2*, CCIKNAME+3
PRCPFILE DQ+3~, CART+2*, CART+6*, IK+3*, KIT+3*, KIT2+4, KIT2+5, KIT3+6, CCIKNAME+2, CCIKNAME+6
, COMMENTS+2, COMMENTS+5, COMMENTS+6
>> PRCPFLAG CART+4, CART+7, CART+8, CART+9, CART+11, CART+13, CART2+1, CART2+3, CART3+1, CART3+3
, CART3+5, CART3+8, IK+1, IK+4, IK+6, IK+7, IK+8, IK+10, IK+11, IK2+1
, IK2+4, IK3+1, IK3+3, IK3+5, IK3+8, KIT+1, KIT+5, KIT+7, KIT+9, KIT+10
, KIT+11, KIT+13, KIT2+1, KIT2+4, KIT3+1, KIT3+3, KIT3+5, KIT3+8, WRITE+1, CCIKNAME+1
, COMMENTS+1, COMMENTS+6, COMMENTS+7
PRCPINPT DQ+3~, CART2+4, WRITE+2, WRITE+3, WRITE+4, CCIKNAME+3*, CCIKNAME+4, CCIKNAME+5, CCIKNAME+8
PRCPPAT DQ+3~, PAT+1*, PAT+2
PRCPSDAT DQ+3~, SURGDATA+2!
PRCPSDAT(130 SURG+2, SURG+3
PRCPSURG DQ+3~, PAT+1*, SURG+1, SURG+2, SURG+3
QPQPQ SURGDATA+1~, SURGDATA+3*
>> SCREEN CART+11, IK+10, KIT+13, WRITE+1, CCIKNAME+1, COMMENTS+1, COMMENTS+7, H
SEQ DQ+3~, CART2+4*, CART2+5*, CART2+6, CART3+2*, CART3+3*, CART3+5, IK2+5*, IK2+6*, IK2+7
, IK3+2*, IK3+3*, IK3+5, KIT2+6*, KIT2+7*, KIT2+8, KIT3+2*, KIT3+3*, KIT3+5
SURGEON DQ+3~, SURG+2*, H+6
VADM DQ+3~
VADM(1 PAT+3
VADM(2 PAT+3
VAERR DQ+3~
X DQ+3~, COMMENTS+6*
Y DQ+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All