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

Package: Surgery

Routine: SROACPM1


Information

SROACPM1 ;BIR/SJA - LAB INFO ;05/05/10

Source Information

Source file <SROACPM1.m>

Entry Points

Name Comments DBIA/ICR reference
START
ASK
END
HELP
RANGE ; range of numbers
ONE ; edit one item
RET
DISP
CONCC ; check for concurrent case and update if one exists
NORCHK(SRAT,RESULT) ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SROACPM1+2
Function Call: WRITE
  • Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue "
  • Line Location: SROACPM1+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
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 information.",!!,"2. Enter a number (1-11) to update the information in that field. (For",!," example, enter '7' to update Serum Creatinine)"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"3. Enter a range of numbers (1-11) separated by a ':' to enter a range of",!," information. (For example, enter '5:7' to update Serum Potassium,",!," Serum Bilirubin, and Serum Creatinine)"
  • Line Location: HELP+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: !," 1. HDL:",?25,$J(SRX,6),?35,$$NORCHK(21,SRX),?38,$P(SRAO(1),"^",2)
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !," 2. LDL:",?25,$J(SRX,6),?35,$$NORCHK(23,SRX),?38,$P(SRAO(2),"^",2)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !," 3. Total Cholesterol:",?25,$J(SRX,6),?35,$$NORCHK(24,SRX),?38,$P(SRAO(3),"^",2)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !," 4. Serum Triglyceride:",?25,$J(SRX,6),?35,$$NORCHK(22,SRX),?38,$P(SRAO(4),"^",2)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !," 5. Serum Potassium:",?25,$J(SRX,6),?35,$$NORCHK(5,SRX),?38,$P(SRAO(5),"^",2)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !," 6. Serum Bilirubin:",?25,$J(SRX,6),?35,$$NORCHK(14,SRX),?38,$P(SRAO(6),"^",2)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !," 7. Serum Creatinine:",?25,$J(SRX,6),?35,$$NORCHK(7,SRX),?38,$P(SRAO(7),"^",2)
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !," 8. Serum Albumin:",?25,$J(SRX,6),?35,$$NORCHK(11,SRX),?38,$P(SRAO(8),"^",2)
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !," 9. Hemoglobin:",?25,$J(SRX,6),?35,$$NORCHK(1,SRX),?38,$P(SRAO(9),"^",2)
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !,"10. Hemoglobin A1c:",?25,$J(SRX,6),?35,$$NORCHK(27,SRX),?38,$P(SRAO(10),"^",2)
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,"11. BNP:",?25,$J(SRX,6),?35,$$NORCHK(28,SRX),?38,$P(SRAO(11),"^",2)
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+12

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