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

Package: Surgery

Routine: SROCMPED


Information

SROCMPED ;BIR/MAM - ENTER/EDIT OCCURRENCES ;08/16/2011

Source Information

Source file <SROCMPED.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 ^DIC  ^DIE  ^DIK  Y^DIQ  ^DIR  
Surgery 3 HDR^SROAUTL  ($$ICD,$$ICD910,$$ICDSTR)^SROICD  ($$LOCK,UNLOCK)^SROUTL  

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 SROCMPS  

Entry Points

Name Comments DBIA/ICR reference
START
DISP
ICDSTR ; get diagnosis info
HELP
RANGE ; range of numbers
ONE ; edit one item
END
SEPSIS
STROKE
NMC
UTI
SR40 ;
RCP
NOCAT
DEL
YUP ; delete occurrence
PRESS

External References

Name Field # of Occurrence
^DIC NOCAT+2
^DIE DISP+22, ONE+5, SEPSIS+1, STROKE+1, STROKE+2, NMC+1, UTI, RCP+1, NOCAT+3
^DIK YUP+1
Y^DIQ START+10, START+11, START+12, START+13, START+16, SR40+1, SR40+2, SR40+3, SR40+4, SR40+5
^DIR STROKE, PRESS
HDR^SROAUTL START+7, DISP+18, SEPSIS, STROKE, NMC, UTI, RCP
$$ICD^SROICD ICDSTR+2
$$ICD910^SROICD DISP
$$ICDSTR^SROICD DISP+7, DISP+22, ONE+2
$$LOCK^SROUTL DISP+20, RANGE+1
UNLOCK^SROUTL DISP+20, RANGE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"1. Occurrence: ",?30,$P(SRO(1),"^"),!,"2. Occurrence Category: ",?30,$P(SRO(2),"^")
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,II_". Treatment Instituted:",?30,$P(SRO(II),"^"),!,(II+1)_". Outcome to Date:",?30,$P(SRO(II+1),"^")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,II_". Date Noted: ",?30,$P(SRO(II),"^")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !,SRX_". Occurrence Comments: ",?30,$P(SRO(SRX),"^")
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: !!,SRLINE
  • Line Location: DISP+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+18
Function Call: WRITE
  • Prompt: @IOF,!!!!,"Enter the number, or range of numbers you want to edit. Examples of proper",!,"responses are listed below."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"1. Enter 'A' to update all occurrence information."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"2. Enter a number "_RANGE_" to update a specific occurrence element. (For",!," example, enter '2' to update the occurrence category)"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!,"3. Enter a range of numbers "_RANGE_" separated by a ':' to enter a range of",!," elements. (For example, enter '1:3' to enter occurrence, occurrence",!," category, and ICD diagnosis code)"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: @IOF,!,"The occurrence selected does not have a corresponding category. A category",!,"must be selected at this time, or the occurrence will be deleted.",!
  • Line Location: NOCAT+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: DEL+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to delete this occurrence from the patient's record. Enter 'NO'",!,"to backup and enter a category for this occurrence."
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESS+0
Routine Call
  • DIC
  • Line Location:
    • NOCAT+2
Routine Call
  • DIE
  • Line Location:
    • DISP+22
    • ONE+5
    • SEPSIS+1
    • STROKE+1
    • STROKE+2
    • NMC+1
    • UTI
    • RCP+1
    • NOCAT+3
Routine Call
  • DIR
  • Line Location:
    • STROKE
    • PRESS

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130.13 START+13
^DD(130.22 START+10, START+11, START+12, START+16, SR40+1, SR40+2, SR40+3, SR40+4, SR40+5
^SRF - [#130] SROCMPED+2, SROCMPED+3, START, START+1, START+3, START+15, START+16, START+18, DISP+7, DISP+10
, DISP+23, ONE+6, SR40+6, SR40+9
^SRO(136.5 - [#136.5] START+8

Label References

Name Line Occurrences
DEL STROKE+1, DEL+1
DISP START+9
END START+2, START+3, START+4, START+5, START+6, DISP+14, DISP+16, DISP+17
HELP DISP+16, DISP+17
ICDSTR START+17
NMC START+5
NOCAT SROCMPED+2, DEL+2
ONE RANGE+2
PRESS DISP+20, HELP+5, RANGE+3
RANGE DISP+19
RCP START+3
SEPSIS START+2
SR40 START+9
START START+2, START+3, START+4, START+5, START+6, DISP+16, DISP+17, DISP+19, DISP+24
STROKE START+4
UTI START+6
YUP DISP+23, DEL

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C START+10*, START+11*, START+12*, START+13*, START+16*, SR40+1*, SR40+2*, SR40+3*, SR40+4*, SR40+5*
>> CURLEY RANGE+2*, RANGE+3
DA DISP+21!*, DISP+22!, ONE+1!, ONE+3*, ONE+5!, END!, SEPSIS!, SEPSIS+1*!, SEPSIS+2!, STROKE+1!*
, STROKE+2*!, NMC!, NMC+1*!, NMC+2!, UTI*!, UTI+1!, RCP!, RCP+1*!, RCP+2!, NOCAT+3!*
, YUP+1!*
DA(1 DISP+21*, ONE+3*, SEPSIS+1*, STROKE+2*, NMC+1*, UTI*, RCP+1*, NOCAT+3*, YUP+1*
DIC NOCAT+1!, NOCAT+2*
DIC("A" NOCAT+2*
DIC("S" NOCAT+2*
DIC(0 NOCAT+2*
DIE DISP+21!*, ONE+1!, ONE+4*, END!, SEPSIS!, SEPSIS+1*, SEPSIS+2!, STROKE+1!*, STROKE+2*!, NMC!
, NMC+1*, NMC+2!, UTI*, UTI+1!, RCP!, RCP+1*, RCP+2!, NOCAT+1!, NOCAT+3!*
DIK YUP+1!*
DIR STROKE!, PRESS!
DIR("A" STROKE*
DIR("B" STROKE*
DIR(0 STROKE*, PRESS*
DR DISP+21!, DISP+22*!, ONE+1!, ONE+2*, ONE+5!, END!, SEPSIS!, SEPSIS+1*!, SEPSIS+2!, STROKE+1!*
, STROKE+2*!, NMC!, NMC+1*!, NMC+2!, UTI*!, UTI+1!, RCP!, RCP+1*!, RCP+2!, NOCAT+3!*
DTIME DISP+14, DEL
>> DTOUT ONE+6, SEPSIS+2, STROKE, NMC+2, UTI+1, RCP+2, PRESS
>> DUOUT PRESS
>> EMILY RANGE+2*, ONE+2
>> II DISP+8*, DISP+9*
IOF DISP+16, DISP+17, HELP, NOCAT
>> RANGE HELP+2*, HELP+3, HELP+4
>> SHEMP START+19*, RANGE+2*, SR40+7*
SR START+1*, START+2, START+3, START+4, START+5, START+6, START+8, START+9, START+10, START+11
, START+12, START+13, START+14, START+15, START+16, START+17, START+19, START+20, DISP+2, DISP+6
, DISP+8, DISP+9, DISP+10, DISP+23, END!, SR40+1, SR40+2, SR40+3, SR40+4, SR40+5
, SR40+7, SR40+8
SR(2 START+18*, SR40+6*
SRCAT NOCAT+1!, NOCAT+3*, NOCAT+4!
SRENTRY SROCMPED+2, SROCMPED+3!, START!, START+1, START+18, DISP+10, DISP+21, DISP+23, ONE+3, ONE+6
, SEPSIS+1, STROKE+2, NMC+1, UTI, SR40+6, SR40+9, RCP+1, NOCAT+3, YUP+1
SRICDSTR ICDSTR+1~, ICDSTR+2*
>> SRLINE DISP+13
>> SRMAX DISP+11*, DISP+15, DISP+17, HELP+2
>> SRNEW START+2, START+3, START+4, START+5, START+6, SEPSIS+2*, STROKE+2*, NMC+2*, UTI+1*, RCP+2*
SRO END!
SRO( DISP+8, DISP+9, DISP+10*, DISP+11*, DISP+12, DISP+16, DISP+22, ONE+2, SR40+9*, SR40+10*
SRO(1 START+8*, DISP+1
SRO(10 SR40+8!*
SRO(2 START+8*, DISP+1
SRO(3 START+10*, START+11*, START+12*, START+13*, START+16*, START+17*, DISP+3, DISP+7, SR40+1*
SRO(4 START+18*, DISP+4, SR40+2*
SRO(5 START+19*, DISP+4, SR40+3*
SRO(6 START+20!*, DISP+5, SR40+4*
SRO(7 DISP+5, SR40+5*
SRO(8 SR40+6*
SRO(9 SR40+7*
>> SRSDATE START+15*
>> SRSOUT SROCMPED+2*, SROCMPED+3*, START*, START+1*, START+2, START+3, START+4, START+5, START+6, DISP+14*
, DISP+16, DISP+17, RANGE+2, ONE+6*, SEPSIS+2*, STROKE*, NMC+2*, UTI+1*, RCP+2*, DEL*
, PRESS*
SRSYS DISP~*
>> SRTN SROCMPED+2, SROCMPED+3, START, START+1, START+3, START+15, START+16, START+18, DISP, DISP+7
, DISP+10, DISP+20, DISP+21, DISP+22, DISP+23, ICDSTR+2, RANGE+1, ONE+2, ONE+3, ONE+4
, ONE+6, SEPSIS+1, STROKE+1, STROKE+2, NMC+1, UTI, SR40+6, SR40+9, RCP+1, NOCAT+3
, YUP+1
>> SRTYPE SROCMPED+2, SROCMPED+3, START, START+1, START+2, START+3, START+4, START+6, START+8, START+12
, START+13, START+17, START+18, START+20, DISP+7, DISP+10, DISP+11, DISP+21, DISP+22, ONE+2
, ONE+4, ONE+6, SEPSIS+1, NMC+1, SR40+6, SR40+9, RCP+1, NOCAT+2, NOCAT+3, YUP+1
>> SRX DISP+10*, DISP+11, DISP+12, SR40+9*, SR40+10
>> SRYN DEL*, DEL+1, DEL+2
>> SRZ DISP+20, DISP+21*, DISP+23
X START+8*, START+17*, START+19*, START+20*, DISP+6*, DISP+7, DISP+11*, DISP+14*, DISP+15*, DISP+16
, DISP+17, DISP+19, DISP+21, DISP+22, ICDSTR+2*, RANGE+2, END!, STROKE+1, SR40+7*, SR40+8*
, NOCAT+1!
Y START+10*, START+11*, START+12*, START+13*, START+16*, DISP+17*, ONE+6, END!, SEPSIS+2, STROKE+1
, STROKE+2, NMC+2, UTI+1, SR40+1*, SR40+2*, SR40+3*, SR40+4*, SR40+5*, RCP+2, NOCAT+1!
, NOCAT+3
>> Z DISP+17*
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