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

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

    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
    Info |  Source |  Entry Points |  Interaction Calls