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

Package: Surgery

Routine: SROACPM1


Information

SROACPM1 ;BIR/SJA - LAB INFO ;01/14/08

Source Information

Source file <SROACPM1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Surgery 2 ^SROACPM2  (,HDR)^SROAUTL  
VA Fileman 2 ^DIE  EN^DIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROCLAB  

Entry Points

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

External References

Name Field # of Occurrence
^DIE ONE+1, CONCC+4
EN^DIQ1 CONCC+3
^SROACPM2 START
^SROAUTL SROACPM1+3
HDR^SROAUTL ASK+5, DISP

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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-10) 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-10) 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
  • Timeout: DTIME
  • Variable: X
  • Line Location: HELP+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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: !!
  • Line Location: DISP+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+11
Routine Call
  • DIE
  • Line Location:
    • ONE+1
    • CONCC+4

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] CONCC+1
^SRO(139.2 - [#139.2] NORCHK+4

Label References

Name Line Occurrences
$$NORCHK DISP+1, DISP+2, DISP+3, DISP+4, DISP+5, DISP+6, DISP+7, DISP+8, DISP+9, DISP+10
CONCC ASK, ASK+1
DISP START
END SROACPM1+2, START, ASK, ASK+1, ASK+2, ASK+4
HELP ASK+2, ASK+4
ONE ASK+7, RANGE+1
RANGE ASK+6
START ASK+2, ASK+4, ASK+6, ASK+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CURLEY RANGE+1*
DA ONE+1*, CONCC+2!, CONCC+3*, CONCC+4!*
DIC CONCC+2!, CONCC+3*
DIE ONE+1!*, CONCC+4!*
DIQ CONCC+2!, CONCC+3*
DIQ(0 CONCC+3*
DR ONE+1!*, CONCC+2!, CONCC+3*, CONCC+4!*
DTIME SROACPM1+2, ASK, HELP+3, RET
>> EMILY ASK+7*, RANGE+1*, ONE+1
HIGH NORCHK+2~, NORCHK+4*, NORCHK+5, NORCHK+6
IOF END, HELP
LOW NORCHK+2~, NORCHK+4*, NORCHK+5, NORCHK+6
>> MOE DISP+11*
NODE NORCHK+2~, NORCHK+4*
>> P1 CONCC+3*, CONCC+4
>> P2 CONCC+3*, CONCC+4
RESULT NORCHK~, NORCHK+1, NORCHK+3*, NORCHK+5, NORCHK+6
>> S1 CONCC+2*, CONCC+3, CONCC+4
>> S2 CONCC+2*, CONCC+3, CONCC+4
>> SHEMP RANGE+1*
SRA START!
SRAO START!
SRAO( ASK+2, ASK+7, ONE+1, CONCC+2
SRAO(1 DISP+1
SRAO(10 DISP+10
SRAO(2 DISP+2
SRAO(3 DISP+3
SRAO(4 DISP+4
SRAO(5 DISP+5
SRAO(6 DISP+6
SRAO(7 DISP+7
SRAO(8 DISP+8
SRAO(9 DISP+9
SRAT NORCHK~, NORCHK+4
>> SRCON CONCC+1*, CONCC+4
>> SRHDR( DISP*
>> SRI CONCC+2*
>> SRNOMORE RANGE+1*, ONE+1*
>> SRPAGE ASK+5*, DISP*
>> SRSOUT SROACPM1+3*, START, ASK*, ASK+2, ASK+4, HELP+3*, RET*
>> SRTN SROACPM1+2, ONE+1, CONCC+1, CONCC+3
SRX DISP~, DISP+1*, DISP+2*, DISP+3*, DISP+4*, DISP+5*, DISP+6*, DISP+7*, DISP+8*, DISP+9*
, DISP+10*
SRY CONCC+2!, NORCHK+2~, NORCHK+3*, NORCHK+5
SRY(130 CONCC+3
>> X SROACPM1+2*, ASK*, ASK+1, ASK+2*, ASK+3*, ASK+4, ASK+6, ASK+7, HELP+3*, RANGE+1
, RET*
>> Y ASK+4*, ONE+1
>> Z ASK+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