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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SROSPLG

Package: Surgery

Routine: SROSPLG


Information

SROSPLG ;B'HAM ISC/ADM - MOVE SP DATA FROM SURGICAL RECORD ;4/12/94 08:54

Source Information

Source file <SROSPLG.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Surgery 2 ^SROSPLG1  ^SROSPLG2  
VA FileMan 2 (C,NOW)^%DTC  ^DIR  
Registration 1 DEM^VADPT  

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
Lab Service 2 LRAPLG  LRAPLG1  

Entry Points

Name Comments DBIA/ICR reference
OPT
NOOP
DOC
DISP
  • ICR #893
    • Status: Active
    • Usage: Private
    END
    LIST ; list cases
    CASE
    OTHER ; other operations
    LOOP ; break procedures

    External References

    Name Field # of Occurrence
    C^%DTC SROSPLG+4
    NOW^%DTC SROSPLG+4
    ^DIR SROSPLG+8, OPT+2
    ^SROSPLG1 CASE+2
    ^SROSPLG2 DISP
    DEM^VADPT SROSPLG+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"Checking surgical record for this patient...",!
    • Line Location: SROSPLG+5
    Function Call: WRITE
    • Prompt: !,"No operations on record in the past 7 days for this patient.",!
    • Line Location: SROSPLG+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: OPT+1
    Function Call: WRITE
    • Prompt: !!,"No operation selected.",!
    • Line Location: NOOP+0
    Function Call: WRITE
    • Prompt: !,CNT_". "
    • Line Location: LIST+5
    Function Call: WRITE
    • Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)
    • Line Location: CASE+0
    Function Call: WRITE
    • Prompt: ?14,SROPS(1)
    • Line Location: CASE+3
    Function Call: WRITE
    • Prompt: !,?14,SROPS(2)
    • Line Location: CASE+3
    Function Call: WRITE
    • Prompt: !,?14,SROPS(2)
    • Line Location: CASE+3
    Function Call: WRITE
    • Prompt: !,?14,SROPS(4)
    • Condition for execution: $D(SROPS(4))
    • Line Location: CASE+3
    Routine Call
    • DIR
    • Line Location:
      • SROSPLG+8
      • OPT+2

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LR - [#63] SROSPLG+2, SROSPLG+3
    ^SRF - [#130] DOC, DISP, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, CASE+1, OTHER+1, OTHER+2
    ^SRF("ADT" SROSPLG+6

    Label References

    Name Line Occurrences
    DOC SROSPLG+9
    END SROSPLG+2, SROSPLG+7, NOOP
    LIST SROSPLG+6
    LOOP CASE+2
    NOOP SROSPLG+8
    OTHER CASE+1

    Naked Globals

    Name Field # of Occurrence
    ^("NON" DOC
    ^(30 LIST+2
    ^(31 LIST+3
    ^(37 LIST+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % SROSPLG+4, END!
    CNT SROSPLG+6*, SROSPLG+7, SROSPLG+8, SROSPLG+9, OPT+1, OPT+3*, END!, LIST+5*, CASE+4
    >> DFN SROSPLG+3*, SROSPLG+6
    DIR SROSPLG+8!, OPT!, END!
    DIR("?" OPT*
    DIR("A" SROSPLG+8*, OPT+1*
    DIR(0 SROSPLG+8*, OPT+1*
    DR END!
    DT SROSPLG+4
    >> DTOUT SROSPLG+8, OPT+2
    >> DUOUT SROSPLG+8, OPT+2
    I END!, CASE+1*
    J END!
    K END!
    LOOP END!, LOOP+1*
    >> LRDFN SROSPLG+2, SROSPLG+3
    M END!, CASE+2*, LOOP+1
    MM END!, CASE+2!, LOOP+1*
    MMM END!, CASE+2!, LOOP+1*
    >> PNM SROSPLG+3*
    SR END!
    SRABORT END!
    SRCASE END!
    SRCASE( OPT+3, CASE+4*
    SRCASE(1 SROSPLG+9
    SRD END!
    SRDOC DOC*, END!
    SRDT SROSPLG+4*, SROSPLG+6*, END!, CASE+4
    SREND SROSPLG+4*, SROSPLG+6, END!
    SRJ END!
    SRK END!
    SRLONG END!, OTHER+1*, OTHER+2
    SRN END!
    SROP SROSPLG+6*, DISP*, END!, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, CASE+1, CASE+2
    , CASE+4, OTHER+1, OTHER+2
    SROPER END!, CASE+1*, CASE+2*, OTHER+1, OTHER+3*, LOOP+1*
    SROPERS END!, OTHER+1*, OTHER+2*, OTHER+3
    SROPS END!, CASE+2!
    SROPS( LOOP+1*
    SROPS(1 CASE+2*, CASE+3
    SROPS(2 CASE+3
    SROPS(3 CASE+3
    SROPS(4 CASE+3
    SROTHER END!, CASE+1*, OTHER+1*, OTHER+2
    SRSCAN END!, LIST+1*!, LIST+2, LIST+3
    SRSDATE DISP*, END!, LIST+5*, CASE
    SRSTAT END!
    SRSTATUS END!
    SRTN SROSPLG+6, SROSPLG+9*, OPT+3*, NOOP, DOC, DISP, END!
    >> SSN SROSPLG+3*
    VA END!
    VA("PID" SROSPLG+3
    VADM END!
    VADM(1 SROSPLG+3
    VAERR END!
    X SROSPLG+4, END!
    >> X1 SROSPLG+4*
    >> X2 SROSPLG+4*
    >> Y SROSPLG+8, SROSPLG+9, OPT+3
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All