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

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)

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call