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 |  Local Variables |  All
Print Page as PDF
Routine: SROPOST0

Package: Surgery

Routine: SROPOST0


Information

SROPOST0 ;B'HAM ISC/MAM,ADM - POST INITS (CONT) ; 20 MAR 1992 12:00 pm

Source Information

Source file <SROPOST0.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 C^%DTC  FILE^DICN  ^DIE  (EN1,IXALL)^DIK  EN^DIU2  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROPOST  

Entry Points

Name Comments DBIA/ICR reference
NEWSP
CODE
LOCK ; clean up dangling 'LOCK' nodes
SP ; set specialty
ANUP ; set ANESTHETIST CATEGORY
POS ; update surgery position entries to multiple format
P24 ; entry for update of surgery position for SR*3*24
AR ; create 'AR' x-ref
DEL
CLEAN ; clean up dangling 'AL' & 'AUD' x-refs
B ; delete B x-ref on anesthesia agent
REPLACE
OUT

External References

Name Field # of Occurrence
C^%DTC DEL+3
FILE^DICN SP+2
^DIE CODE+2, SP+2
EN1^DIK ANUP+2
IXALL^DIK DEL+6
EN^DIU2 DEL+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The post initialization process will now loop through the Surgery file to",!,"perform the following tasks:",!,"(1) Update the Anesthetist Category field"
  • Line Location: SROPOST0+3
Function Call: WRITE
  • Prompt: !,"(2) Convert existing attending codes to correspond with the new set of codes",!,"(3) Clean up dangling 'LOCK' nodes",!,"(4) Update existing outcome to match new format"
  • Line Location: SROPOST0+4
Function Call: WRITE
  • Prompt: !,"(5) Update surgery position entries to the new multiple format"
  • Line Location: SROPOST0+5
Function Call: WRITE
  • Prompt: !!,"(A dot will be printed for every 100 cases processed) "
  • Line Location: SROPOST0+6
Function Call: WRITE
  • Prompt: !!,"Deleting the ATTENDING CODE file (132.9)..."
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !!,"Now cleaning up dangling 'AL' and 'AUD' cross references."
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!,"Deleting 'WL' cross reference..."
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"Re-indexing the SURGERY WAITING LIST file..."
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !!,"This portion of the post initialization routine will update the SURGICAL",!,"SPECIALTY file (45.3) if necessary."
  • Line Location: NEWSP+0
Function Call: WRITE
  • Prompt: !!,"Adding "_SHEMP_" "_SRSP_" to the SURGICAL SPECIALTY file (45.3)..."
  • Line Location: SP+2
Function Call: WRITE
  • Prompt: !!,"This process will update surgery position entries to the multiple format. "
  • Line Location: P24+1
Function Call: WRITE
  • Prompt: !!,"Finished."
  • Line Location: P24+3
Routine Call
  • DIE
  • Line Location:
    • CODE+2
    • SP+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
^SRO(133.8 - [#133.8] Classic Fileman Calls
^DIC(45.3 - [#45.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(45.3 - [#45.3] NEWSP+1
^SRF - [#130] SROPOST0+7!, CODE, ANUP+1, POS+1, POS+2*, OUT*, OUT+1*, OUT+2*, CLEAN+1, CLEAN+2
, LOCK+1!, AR+1, AR+2, AR+3, AR+4, B+1!, P24+2
^SRF("AC" DEL+3
^SRF("AL" CLEAN+2!
^SRF("AR" AR+4*
^SRF("AUD" CLEAN+1!
^SRO(132.9 - [#132.9] SROPOST0+2, DEL+1!, CODE+1
^SRO(133.8 - [#133.8] DEL+4!

Label References

Name Line Occurrences
ANUP SROPOST0+7
AR DEL+3
B SROPOST0+7
CLEAN DEL+2
CODE SROPOST0+7
LOCK SROPOST0+7
NEWSP SROPOST0+2
OUT SROPOST0+7
POS SROPOST0+7, P24+2
REPLACE OUT, OUT+1, OUT+2
SP NEWSP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT SROPOST0+7*, NEWSP+2!, P24+2*, P24+3!
CODE NEWSP+2!, CODE*, CODE+1*, CODE+2
CURLEY NEWSP+1*, NEWSP+2!
D0 SP+2!
DA NEWSP+2!, CODE+2!*, ANUP+2*!, SP+2!*
DD SP+2!
>> DFN AR+4*
DIC NEWSP+2!, SP+2!*
DIC(0 SP+2*
DIE NEWSP+2!, CODE+2!*, SP+2!*
DIK DEL+6*, NEWSP+2!, ANUP+2!*
DIK(1 ANUP+2*
>> DIU DEL+1*
>> DIU(0 DEL+1*
DLAYGO SP+2*!
DR NEWSP+2!, CODE+2!*, SP+2!*
DT DEL+3
MM NEWSP+2!, OUT, OUT+1, OUT+2, REPLACE*
MMM NEWSP+2!
>> REQ AR+1*
>> SCH AR+2*
SHEMP NEWSP+1*, NEWSP+2!, SP+1, SP+2
>> SRSDATE DEL+3*, AR+4
SRSP NEWSP+2!, SP+1*, SP+2
SRTN SROPOST0+7*, DEL+3*, NEWSP+2!, CODE, CODE+2, ANUP+1, ANUP+2, POS+1, POS+2, OUT
, OUT+1, OUT+2, CLEAN+1*, CLEAN+2*, LOCK+1, AR+1, AR+2, AR+3, AR+4, B+1
, P24+2*, P24+3!
>> SRVER SROPOST0+2
>> TECH B+1*
X DEL+3, NEWSP+2!, SP+2*, OUT*, OUT+1*, OUT+2*
>> X1 DEL+3*
>> X2 DEL+3*
Y NEWSP+2!, CODE+1*, SP+2, OUT*, OUT+1*, OUT+2*, REPLACE
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 |  Local Variables |  All