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 |  Local Variables |  All
Print Page as PDF
Routine: SROCMPED

Package: Surgery

Routine: SROCMPED


Information

SROCMPED ;BIR/MAM - ENTER/EDIT OCCURRENCES ;05/01/09

Source Information

Source file <SROCMPED.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 ^DIC  ^DIE  ^DIK  Y^DIQ  ^DIR  
Surgery 2 HDR^SROAUTL  ($$LOCK,UNLOCK)^SROUTL  
DRG Grouper 1 $$ICDDX^ICDCODE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROCMPS  

Entry Points

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

External References

Name Field # of Occurrence
^DIC NOCAT+2
^DIE DISP+15, ONE+1, SEPSIS+1, RCP+1, NOCAT+3
^DIK YUP+1
Y^DIQ START+6, START+9
^DIR PRESS
$$ICDDX^ICDCODE ICDSTR+2
HDR^SROAUTL START+4, DISP+12, SEPSIS, RCP
$$LOCK^SROUTL DISP+14, RANGE+1
UNLOCK^SROUTL DISP+14, RANGE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"1. Occurrence: ",?26,$P(SRO(1),"^"),!,"2. Occurrence Category: ",?26,$P(SRO(2),"^")
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !,"3. "_$S($P(SR,"^",2)=3:"Sepsis Type",$P(SR,"^",2)=27&($P($G(^SRF(SRTN,"RA")),"^",2)="C"):"CPB Status",1:"ICD Diagnosis Code")_":",?26,$P(SRO(3),"^")
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !,"4. Treatment Instituted:",?26,$P(SRO(4),"^"),!,"5. Outcome to Date:",?26,$P(SRO(5),"^")
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,"6. Date Noted: ",?26,$P(SRO(6),"^")
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,SRX_". Occurrence Comments: ",?26,$P(SRO(SRX),"^")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !!,SRLINE
  • Line Location: DISP+7
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+12
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
  • Timeout: DTIME
  • Variable: SRYN
  • 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
  • DIE
  • Line Location:
    • DISP+15
    • ONE+1
    • SEPSIS+1
    • RCP+1
    • NOCAT+3
Routine Call
  • DIC
  • Line Location:
    • NOCAT+2
Routine Call
  • DIR
  • Line Location:
    • PRESS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130.22 START+6, START+9
^SRF - [#130] SROCMPED+2, SROCMPED+3, START, START+1, START+3, START+8, START+9, START+11, DISP+1, DISP+4
, ONE+1
^SRO(136.5 - [#136.5] START+5

Label References

Name Line Occurrences
DEL DEL+1
END START+2, START+3, DISP+8, DISP+10, DISP+11
HELP DISP+10, DISP+11
ICDSTR START+10
NOCAT SROCMPED+2, DEL+2
ONE RANGE+2
PRESS DISP+14, HELP+5, RANGE+3
RANGE DISP+13
RCP START+3
SEPSIS START+2
START START+2, START+3, DISP+10, DISP+11, DISP+13, DISP+16
YUP DEL

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C START+6*, START+9*
>> CURLEY RANGE+2*, RANGE+3
DA DISP+15!*, ONE+1!*, END!, SEPSIS!, SEPSIS+1*!, SEPSIS+2!, RCP!, RCP+1*!, RCP+2!, NOCAT+3!*
, YUP+1!*
DA(1 DISP+15*, ONE+1*, SEPSIS+1*, 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+15!*, ONE+1!*, END!, SEPSIS!, SEPSIS+1*, SEPSIS+2!, RCP!, RCP+1*, RCP+2!, NOCAT+1!
, NOCAT+3!*
DIK YUP+1!*
DIR PRESS!
DIR(0 PRESS*
DR DISP+15!*, ONE+1!*, END!, SEPSIS!, SEPSIS+1*!, SEPSIS+2!, RCP!, RCP+1*!, RCP+2!, NOCAT+3!*
DTIME DISP+8, DEL
>> DTOUT ONE+1, SEPSIS+2, RCP+2, PRESS
>> DUOUT PRESS
>> EMILY RANGE+2*, ONE+1
IOF DISP+10, DISP+11, HELP, NOCAT
>> RANGE HELP+2*, HELP+3, HELP+4
>> SHEMP START+12*, RANGE+2*
SR START+1*, START+2, START+3, START+5, START+6, START+7, START+8, START+9, START+10, START+12
, START+13, DISP+1, END!
SR(2 START+11*
SRCAT NOCAT+1!, NOCAT+3*, NOCAT+4!
SRENTRY SROCMPED+2, SROCMPED+3!, START!, START+1, START+11, DISP+4, DISP+15, ONE+1, SEPSIS+1, RCP+1
, NOCAT+3, YUP+1
SRICDSTR ICDSTR+1~, ICDSTR+2*
>> SRLINE DISP+7
>> SRMAX DISP+5*, DISP+9, DISP+11, HELP+2
>> SRNEW START+2, START+3, SEPSIS+2*, RCP+2*
SRO END!
SRO( DISP+4*, DISP+5*, DISP+6, DISP+10, DISP+15, ONE+1
SRO(1 START+5*, DISP
SRO(2 START+5*, DISP
SRO(3 START+6*, START+9*, START+10*, DISP+1
SRO(4 START+11*, DISP+2
SRO(5 START+12*, DISP+2
SRO(6 START+13!*, DISP+3
>> SRSDATE START+8*, ICDSTR+2
>> SRSOUT SROCMPED+2*, SROCMPED+3*, START*, START+1*, START+2, START+3, DISP+8*, DISP+10, DISP+11, RANGE+2
, ONE+1*, SEPSIS+2*, RCP+2*, DEL*, YUP+1*, PRESS*
>> SRTN SROCMPED+2, SROCMPED+3, START, START+1, START+3, START+8, START+9, START+11, DISP+1, DISP+4
, DISP+14, DISP+15, RANGE+1, ONE+1, SEPSIS+1, RCP+1, NOCAT+3, YUP+1
>> SRTYPE SROCMPED+2, SROCMPED+3, START, START+1, START+2, START+3, START+5, START+10, START+11, START+13
, DISP+4, DISP+5, DISP+15, ONE+1, SEPSIS+1, RCP+1, NOCAT+2, NOCAT+3, YUP+1
>> SRX DISP+4*, DISP+5, DISP+6
>> SRYN DEL*, DEL+1, DEL+2
>> SRZ DISP+14, DISP+15*
X START+5*, START+10*, START+12*, START+13*, DISP+5*, DISP+8*, DISP+9*, DISP+10, DISP+11, DISP+13
, DISP+15, ICDSTR+2*, RANGE+2, END!, NOCAT+1!
Y START+6*, START+9*, DISP+11*, ONE+1, END!, SEPSIS+2, RCP+2, NOCAT+1!, NOCAT+3
>> Z DISP+11*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All