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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call