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

Package: IFCAP

Routine: PRCPCSOR


Information

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

Source Information

Source file <PRCPCSOR.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
IFCAP 15 SURGDATA^PRCPCRPL  AUTOORD^PRCPCSO1  (SHOWCC,SHOWORD)^PRCPCSOU  $$ICPT^PRCPCUT1  DELORDER^PRCPOPD  ITEMS^PRCPOPEE  ($$ASKREL,RELEASE)^PRCPOPR  (BUILD,Q)^PRCPOPT  
VARIABLE^PRCPOPU  ($$ITEMADD,$$ORDERSEL,$$REMARKS,$$TYPE)^PRCPOPUS  $$SPD^PRCPUDPT  (ADD,CLEAR,SHOWWHO)^PRCPULOC  ^PRCPUSEL  ($$DESCR,$$INVNAME)^PRCPUX1  $$YN^PRCPUYN  
Kernel 3 ^%ZIS  ^%ZTLOAD  $$VERSION^XPDUTL  
Surgery 1 ^SROPS  
VA FileMan 1 ^DIE  

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

Package Total Caller Graph
IFCAP 2 PRCP SURGERY ORDER  PRCPCSO1  

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

External References

Name Field # of Occurrence
^%ZIS PRCPCSOR+14
^%ZTLOAD PRCPCSOR+64
^DIE PATLINK+3
SURGDATA^PRCPCRPL PRCPCSOR+19
AUTOORD^PRCPCSO1 PRCPCSOR+26
SHOWCC^PRCPCSOU PRCPCSOR+47
SHOWORD^PRCPCSOU ASKORDER+2
$$ICPT^PRCPCUT1 PRCPCSOR+21
DELORDER^PRCPOPD PRCPCSOR+37, PRCPCSOR+49
ITEMS^PRCPOPEE PRCPCSOR+48
$$ASKREL^PRCPOPR PRCPCSOR+54
RELEASE^PRCPOPR PRCPCSOR+54
BUILD^PRCPOPT PRCPCSOR+60
Q^PRCPOPT PRCPCSOR+64
VARIABLE^PRCPOPU PRCPCSOR+61
$$ITEMADD^PRCPOPUS AUTOITEM+5
$$ORDERSEL^PRCPOPUS ASKORDER+4
$$REMARKS^PRCPOPUS PRCPCSOR+52
$$TYPE^PRCPOPUS PRCPCSOR+40
$$SPD^PRCPUDPT PRCPCSOR+10
ADD^PRCPULOC PRCPCSOR+31
CLEAR^PRCPULOC UNLOCK+1
SHOWWHO^PRCPULOC PRCPCSOR+30
^PRCPUSEL PRCPCSOR+7
$$DESCR^PRCPUX1 AUTOITEM+4
$$INVNAME^PRCPUX1 PRCPCSOR+11
$$YN^PRCPUYN PRCPCSOR+36
^SROPS PRCPCSOR+17
$$VERSION^XPDUTL PRCPCSOR+5

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
Routine Call
  • %ZIS
  • Line Location:
    • PRCPCSOR+14
Routine Call
  • DIE
  • Line Location:
    • PATLINK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCP(445.3 - [#445.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" PRCPCSOR+4
^PRCP(445 - [#445] PRCPCSOR+59
^PRCP(445.3 - [#445.3] PRCPCSOR+26, PRCPCSOR+30, PRCPCSOR+49, PRCPCSOR+55, UNLOCK+2, PATLINK+2, ASKORDER+7
^PRCP(445.7 - [#445.7] PRCPCSOR+26, AUTOITEM+3

Label References

Name Line Occurrences
ASKORDER PRCPCSOR+30, ASKORDER+7
AUTOITEM PRCPCSOR+43
NO PRCPCSOR+4, PRCPCSOR+5
PATLINK ASKORDER+6
UNLOCK PRCPCSOR+34, PRCPCSOR+40, PRCPCSOR+49, PRCPCSOR+55, PRCPCSOR+59, PRCPCSOR+66

Naked Globals

Name Field # of Occurrence
^("TEST" PRCPCSOR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRCPCSOR+36*, PRCPCSOR+37, PRCPCSOR+38, PATLINK+1~
CCITEM AUTOITEM+1~, AUTOITEM+3*, AUTOITEM+4, AUTOITEM+5
D0 PATLINK+1~
DA PATLINK+1~, PATLINK+3*
DFN PRCPCSOR+9~, PRCPCSOR+17, PRCPCSOR+18
DI PATLINK+1~
DIC PATLINK+1~, PATLINK+3*
DIE PATLINK+1~, PATLINK+3*
DIPGM PRCPCSOR+9~, PATLINK+1~
DQ PATLINK+1~
DR PATLINK+1~, PATLINK+3*
IO("Q" PRCPCSOR+64!
IOP PRCPCSOR+14*!
ITEMDA AUTOITEM+1~, AUTOITEM+5*, AUTOITEM+6
OPCODE PRCPCSOR+9~, PRCPCSOR+20*, PRCPCSOR+21, PRCPCSOR+26, PRCPCSOR+47, AUTOITEM+3
OPDATEI PRCPCSOR+9~, PRCPCSOR+20*, PRCPCSOR+21, PRCPCSOR+47
ORDERDA PRCPCSOR+9~, PRCPCSOR+25*, PRCPCSOR+26, PRCPCSOR+30, PRCPCSOR+31, PRCPCSOR+37, PRCPCSOR+40, PRCPCSOR+47, PRCPCSOR+48, PRCPCSOR+49
, PRCPCSOR+52, PRCPCSOR+54, PRCPCSOR+55, PRCPCSOR+60, UNLOCK+1, UNLOCK+2, PATLINK~, PATLINK+2, PATLINK+3, AUTOITEM+5
, ASKORDER+4*, ASKORDER+6, ASKORDER+7
PATIENT PATLINK~, PATLINK+3
>> PRCP("DPTYPE" PRCPCSOR+8
>> PRCP("I" PRCPCSOR+7, PRCPCSOR+10, PRCPCSOR+12
PRCPDEV PRCPCSOR+9~, PRCPCSOR+59*, PRCPCSOR+65
PRCPFAUT PRCPCSOR+9~, PRCPCSOR+25*, PRCPCSOR+26*, PRCPCSOR+27, PRCPCSOR+30, PRCPCSOR+31, PRCPCSOR+40, PRCPCSOR+43*, PRCPCSOR+45
PRCPFLAG PRCPCSOR+9~, PRCPCSOR+25*, PRCPCSOR+26, PRCPCSOR+34!, PRCPCSOR+37*, PRCPCSOR+38*, PRCPCSOR+40*, PRCPCSOR+43, AUTOITEM+3*, AUTOITEM+6*
PRCPFNEW PRCPCSOR+9~, PRCPCSOR+25*, PRCPCSOR+27*, PRCPCSOR+34, ASKORDER+6
PRCPFONE PRCPCSOR+9~
PRCPINNM PRCPCSOR+9~, PRCPCSOR+11*, PRCPCSOR+22, PRCPCSOR+59, PRCPCSOR+65
PRCPORD PRCPCSOR+9~
PRCPPAT PRCPCSOR+9~, PRCPCSOR+18*, PRCPCSOR+26, ASKORDER+2, ASKORDER+6, ASKORDER+7
PRCPPRIM PRCPCSOR+9~, PRCPCSOR+10*, PRCPCSOR+11, PRCPCSOR+59, AUTOITEM+4, ASKORDER+4
PRCPSDAT PRCPCSOR+9~
PRCPSDAT(130 PRCPCSOR+20
PRCPSECO PRCPCSOR+9~, PRCPCSOR+12*, ASKORDER+4
PRCPSURG PRCPCSOR+9~, PRCPCSOR+18*, PRCPCSOR+19, PRCPCSOR+20, PRCPCSOR+26, ASKORDER+2, ASKORDER+6, ASKORDER+7
SRTN PRCPCSOR+9~, PRCPCSOR+17!, PRCPCSOR+18
SURGERY PATLINK~, PATLINK+3
X PRCPCSOR+3~, PRCPCSOR+4*, PATLINK+1~
>> XH PRCPCSOR+35*
>> XP PRCPCSOR+35*
Y PRCPCSOR+9~, PATLINK+1~
>> ZTDESC PRCPCSOR+62*
>> ZTIO PRCPCSOR+59*
>> ZTRTN PRCPCSOR+62*
>> ZTSAVE("ORDERDA" PRCPCSOR+63*
>> ZTSAVE("PRCP*" PRCPCSOR+63*
>> ZTSAVE("ZTREQ" PRCPCSOR+63*
>> ZTSAVE("^TMP( $J, ""PRCPOPT PICK LIST"", " , PRCPCSOR+63*
ZTSK PRCPCSOR+64!
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