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

Package: IFCAP

Routine: PRCPCSOR


Information

PRCPCSOR ;WISC/RFJ-surgery order supplies ; 06/23/2009 2:23 PM

Source Information

Source file <PRCPCSOR.m>

Entry Points

Name Comments DBIA/ICR reference
UNLOCK ; unlock distribution order
NO ; not available
PATLINK(ORDERDA,PATIENT,SURGERY)
AUTOITEM ; automatically put items in order
ASKORDER ; ask for order selection
; show orders already placed for patient and operation

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS OPTION SHOULD ONLY BE USED BY A SECONDARY INVENTORY POINT."
  • Line Location: PRCPCSOR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCPCSOR+17
Function Call: WRITE
  • Prompt: !!?2,"** Distribution from inventory point: ",PRCPINNM
  • Line Location: PRCPCSOR+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRCPCSOR+36
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRCPCSOR+40
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRCPCSOR+52
Function Call: WRITE
  • Prompt: !,"* * * ORDER HAS BEEN RELEASED * * *"
  • Line Location: PRCPCSOR+56
Function Call: WRITE
  • Prompt: !,"NO DEVICE SPECIFIED FOR PRINTING THE PICKING TICKET IN ",$E(PRCPINNM,1,15)
  • Line Location: PRCPCSOR+59
Function Call: WRITE
  • Prompt: !!,"Picking Ticket Queued on printer ",PRCPDEV," in ",$E(PRCPINNM,1,15)," !"
  • Line Location: PRCPCSOR+65
Function Call: WRITE
  • Prompt: !,"NOT AVAILABLE, SURGERY PACKAGE NOT LOADED."
  • Line Location: NO+1
Function Call: WRITE
  • Prompt: !!,"ADDING ITEMS TO THE ORDER:"
  • Line Location: AUTOITEM+2
Function Call: WRITE
  • Prompt: !,$E($$DESCR^PRCPUX1(PRCPPRIM,CCITEM),1,30),?32,"MI#",CCITEM,?45
  • Line Location: AUTOITEM+4
Function Call: WRITE
  • Prompt: "*** ITEM NOT ORDERED ***"
  • Line Location: AUTOITEM+6
Function Call: WRITE
  • Prompt: "Item Ordered"
  • Line Location: AUTOITEM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKORDER+3
Function Call: WRITE
  • Prompt: !,"YOU CAN ONLY SELECT ORDERS WHICH HAVE BEEN PLACED FOR THIS PATIENT AND OPERATION"
  • Line Location: ASKORDER+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCP(445.3 - [#445.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call