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

Package: Surgery

Routine: SROACOM


Information

SROACOM ;BIR/MAM - COMPLETE ASSESSMENT ;05/05/10

Source Information

Source file <SROACOM.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Surgery 8 PRIOR^SROACL2  ^SROACOM1  ^SROAPAS  CHK^SROAUTL  CHK^SROAUTL3  POST^SROCMPS  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^DIE  EN1^DIK  ^DIR  

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

Package Total Caller Graph
Surgery 1 SROA COMPLETE ASSESSMENT  

Entry Points

Name Comments DBIA/ICR reference
YEP
COMPLT
PRINT
EN
END
LIST
PRT
ANES
RET
PAGE

External References

Name Field # of Occurrence
^%ZIS PRINT+3
^%ZISC END+1
^%ZTLOAD PRINT+4
^DIE COMPLT, COMPLT+1, PRT+1, PRT+4, ANES
EN1^DIK COMPLT+2
^DIR YEP+2, LIST+2, RET
PRIOR^SROACL2 PRT+1
^SROACOM1 SROACOM+3
^SROAPAS EN
CHK^SROAUTL SROACOM+5
CHK^SROAUTL3 SROACOM+6
POST^SROCMPS PRT+3
$$LOCK^SROUTL YEP+4, LIST+3
UNLOCK^SROUTL COMPLT+3, LIST+3
^SRSKILL END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This assessment has a "_$S(Y="C":"'COMPLETE'",1:"'TRANSMITTED'")_" status.",!!,"No action taken."
  • Line Location: SROACOM+4
Function Call: WRITE
  • Prompt: !!,?6,"The coding for Procedure and Diagnosis is not complete."
  • Line Location: YEP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: YEP+1
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: YEP+3
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: YEP+5
Function Call: WRITE
  • Prompt: !!,"Updating the current status to 'COMPLETE'..."
  • Line Location: COMPLT+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: PRINT+0
Function Call: WRITE
  • Prompt: !!,"Enter <RET> to print the completed assessment, or 'NO' to return to the menu."
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF,!,"This assessment is missing the following items:",!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,?5,$J(SRCNT,2)_". "_$P(SRX(SRZ),"^")
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: PAGE+1
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+3
Routine Call
  • DIE
  • Line Location:
    • COMPLT
    • COMPLT+1
    • PRT+1
    • PRT+4
    • ANES
Routine Call
  • DIR
  • Line Location:
    • YEP+2
    • LIST+2
    • RET

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SROACOM+3, SROACOM+4
^SRO(136 - [#136] YEP

Label References

Name Line Occurrences
ANES PRT+2
COMPLT YEP+4
EN PRINT+5
END SROACOM+4, YEP+2, YEP+3, YEP+5, PRINT+4, PRINT+5
LIST SROACOM+7
PRINT PRINT+2
PRT LIST+3
RET END, LIST+1, PAGE

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS PRINT+3!*
%ZIS("A" PRINT+3*
DA COMPLT*, COMPLT+1*, COMPLT+2!*, PRT+1*, PRT+4*, ANES!*
DIE COMPLT!*, COMPLT+1!*, COMPLT+2!, PRT+1!*, PRT+4!*, ANES!*
DIK COMPLT+2!*
DIK(1 COMPLT+2*
DIR YEP+1!, YEP+2!, LIST+2!, RET!
DIR("?" YEP+2*
DIR("A" YEP+1*, LIST+2*
DIR("B" YEP+1*, LIST+2*
DIR(0 YEP+1*, LIST+2*, RET*
DR COMPLT!*, COMPLT+1!*, COMPLT+2!, PRT+1!*, PRT+4!*, ANES!*
DR(2 ANES*
DT COMPLT+1
DTIME PRINT
>> DTOUT YEP+2, LIST+2, RET
>> DUOUT YEP+2, LIST+2, RET
DUZ COMPLT
IO EN
IO("Q" PRINT+3!, PRINT+4!
IOF END+1, LIST, PRT+1, RET, PAGE+1
IOSL LIST+1
IOST END, END+1, PAGE
POP PRINT+3!
>> SRA SROACOM+4*, SROACOM+5, SROACOM+6, COMPLT+1, COMPLT+2
>> SRABATCH EN*
>> SRCNT LIST*, LIST+1*, PRT*
>> SRFLD SROACOM+7*, YEP+1*
SRMD END+2!, PRT*, PRT+1, PRT+2, PRT+3, PRT+4
SRMD1 END+2!, PRT*, PRT+4
>> SROVER SROACOM+4*
SRSFLG SROACOM+4*, END+2!, PRT, PRT+1*, PRT+4*, ANES*
>> SRSOUT SROACOM+4*, YEP+2*, PRINT*, PRINT+1*, PRINT+3*, PRINT+4*, END, LIST+1, LIST+2*, PRT*
, PRT+5*, RET*
>> SRTN SROACOM+2, SROACOM+3, SROACOM+4, YEP, YEP+4, COMPLT, COMPLT+1, COMPLT+2, COMPLT+3, LIST+3
, PRT+1, PRT+4, ANES
>> SRX( SROACOM+7, YEP+1, LIST+1, PRT
>> SRYN PRINT*, PRINT+1*, PRINT+2
>> SRZ LIST*, LIST+1*
STATUS COMPLT!, COMPLT+1!
>> X PRT+1
>> Y SROACOM+4*, YEP+3, LIST+3, PRT+1, PRT+4, ANES
>> ZTDESC PRINT+4*
>> ZTRTN PRINT+4*
>> ZTSAVE("SRSITE*" PRINT+4*
>> ZTSAVE("SRTN" PRINT+4*
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