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

Package: Surgery

Routine: SROACOM1


Information

SROACOM1 ;BIR/MAM - COMPLETE ASSESSMENT ;12/19/07

Source Information

Source file <SROACOM1.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Surgery 5 PRIOR^SROACL2  ^SROAPAS  CHK^SROAUTLC  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^DIE  EN1^DIK  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROACOM  

Entry Points

Name Comments DBIA/ICR reference
EN
END
LIST
RET
CHCK ; cardiac checks added by SR*3*93
PRT
COMPLT
PRINT
YEP
PAGE

External References

Name Field # of Occurrence
^%ZIS PRINT+3
^%ZISC END+1
^%ZTLOAD PRINT+4
^DIE COMPLT, COMPLT+1, PRT+1, PRT+2
EN1^DIK COMPLT+2
^DIR YEP+2, LIST+2, CHCK+4, RET
PRIOR^SROACL2 PRT+1
^SROAPAS EN
CHK^SROAUTLC SROACOM1+4
$$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: SROACOM1+3
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
  • Timeout: DTIME
  • Variable: SRYN
  • 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($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: !!," *** NOTE: Discharge Date precedes Admission Date!! Please check. ***"
  • Line Location: CHCK+2
Function Call: WRITE
  • Prompt: !!," *** NOTE: Ischemic Time is greater than CPB Time!! Please check. ***",!
  • Line Location: CHCK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHCK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CHCK+4
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
  • DIE
  • Line Location:
    • COMPLT
    • COMPLT+1
    • PRT+1
    • PRT+2
Routine Call
  • DIR
  • Line Location:
    • YEP+2
    • LIST+2
    • CHCK+4
    • RET
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+3

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] SROACOM1+3, CHCK+1
^SRO(136 - [#136] YEP

Label References

Name Line Occurrences
CHCK SROACOM1+6
COMPLT YEP+4
EN PRINT+5
END SROACOM1+3, SROACOM1+6, YEP+2, YEP+3, YEP+5, PRINT+4, PRINT+5
LIST SROACOM1+5
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+2*
DIE COMPLT!*, COMPLT+1!*, COMPLT+2!, PRT+1!*, PRT+2!*
DIK COMPLT+2!*
DIK(1 COMPLT+2*
DIR YEP+1!, YEP+2!, LIST+2!, CHCK+4!, RET!
DIR("?" YEP+2*
DIR("A" YEP+1*, LIST+2*
DIR("B" YEP+1*, LIST+2*
DIR(0 YEP+1*, LIST+2*, CHCK+4*, RET*
DR COMPLT!*, COMPLT+1!*, COMPLT+2!, PRT+1!*, PRT+2!*
DT COMPLT+1
DTIME PRINT
>> DTOUT YEP+2, LIST+2, CHCK+4, RET
>> DUOUT YEP+2, LIST+2, CHCK+4, RET
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 SROACOM1+3*, SROACOM1+4, SROACOM1+6, COMPLT+1, COMPLT+2
>> SRABATCH EN*
SRADM CHCK+1~*, CHCK+2
>> SRCNT LIST*, LIST+1*, PRT*
SRCPB CHCK+1~*, CHCK+3
SRDIS CHCK+1~*, CHCK+2
>> SRFLD SROACOM1+5*, YEP+1*
SRISCH CHCK+1~*, CHCK+3
SRMD END+2!, PRT*, PRT+1, PRT+2
SRMD1 END+2!, PRT*, PRT+2
SRMDD END+2!, PRT*
>> SROVER SROACOM1+3*
SRRET CHCK+1~*, CHCK+2*, CHCK+3*, CHCK+4
SRSFLG SROACOM1+3*, END+2!, PRT, PRT+1*, PRT+2*
>> SRSOUT SROACOM1+3*, SROACOM1+6, YEP+2*, PRINT*, PRINT+1*, PRINT+3*, PRINT+4*, END, LIST+1, LIST+2*
, PRT*, PRT+3*, CHCK+4*, RET*
>> SRTN SROACOM1+2, SROACOM1+3, YEP, YEP+4, COMPLT, COMPLT+1, COMPLT+2, COMPLT+3, LIST+3, PRT+1
, PRT+2, CHCK+1
>> SRX( SROACOM1+5, YEP+1, LIST+1, PRT, CHCK+2*, CHCK+3*
>> SRYN PRINT*, PRINT+1*, PRINT+2
>> SRZ LIST*, LIST+1*
>> SRZZ(418 CHCK+2*
>> SRZZ(450 CHCK+3*
STATUS COMPLT!, COMPLT+1!
>> X PRT+1, CHCK+1*
>> Y SROACOM1+3*, YEP+3, LIST+3, PRT+1, PRT+2
>> 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