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 |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: SROAPM

Package: Surgery

Routine: SROAPM


Information

SROAPM ;BIR/ADM - PATIENT DEMOGRAPHIC INFO ;03/03/08

Source Information

Source file <SROAPM.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 5 ^SROAPIMS  (,HDR)^SROAUTL  ^SROERR0  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
VA Fileman 4 WAIT^DICD  ^DIE  EN^DIQ1  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROA DEMOGRAPHICS  

Entry Points

Name Comments DBIA/ICR reference
HELP
TR
EXT
WRAP ;Wrap multiple race entries so that wrapped line
DEB ;;452^Observation Admission Date/Time
DEC ;;453^Observation Discharge Date/Time
DED ;;454^Observation Treating Specialty
DAG ;;417^Patient's Race
PIMS ; get update from PIMS records
GET
EAC ;;513^Surgery Consult Date
DAH ;;418^Hospital Admission Date/Time
DAI ;;419^Hospital Discharge Date/Time
ONE ; edit one item
PRESS
SEL
BDG ;;247^Length of Postop Hospital Stay
END
EAF ;;516^Date Surgery Consult Requested
PJAA ;;.011^In/Out-Patient Status
START
RANGE ; range of numbers
DBJ ;;420^Admit/Transfer to Surgical Svc.
CDB ;;342^Date of Death
EDIT
DAC ;;413^Transfer Status
DBA ;;421^Discharge/Transfer to Chronic Care

External References

Name Field # of Occurrence
WAIT^DICD PIMS+3
^DIE ONE+1
EN^DIQ1 EDIT+1, EDIT+32
^DIR START+3, PIMS+1, PRESS
^SROAPIMS PIMS+3
^SROAUTL SROAPM+3
HDR^SROAUTL START, EDIT
^SROERR0 EDIT+44
$$LOCK^SROUTL SEL+9, PIMS+2, RANGE+1
UNLOCK^SROUTL SEL+9, PIMS+2, RANGE+1
^SRSKILL END
DEM^VADPT EDIT+7

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SROAPM+2
Function Call: WRITE
  • Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue "
  • Line Location: SROAPM+2
Function Call: WRITE
  • Prompt: !,"11. Patient's Ethnicity:"
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: ?40,$P(VADM(11,1),U,2)
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: ?40,"UNANSWERED"
  • Line Location: EDIT+11
Function Call: WRITE
  • Prompt: !,"12. Patient's Race:"
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: ?40,"UNANSWERED"
  • Line Location: EDIT+30
Function Call: WRITE
  • Prompt: !,"13. Date/Time of Death:",?40,SREXT
  • Line Location: EDIT+37
Function Call: WRITE
  • Prompt: !,"14. Surgery Consult Date:",?40,SREXT
  • Line Location: EDIT+38
Function Call: WRITE
  • Prompt: !,"15. Date Surgery Consult Requested:",?40,SREXT
  • Line Location: EDIT+39
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+42
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EDIT+42
Function Call: WRITE
  • Prompt: ?40,SREXT
  • Line Location: EXT+0
Function Call: WRITE
  • Prompt: $S(SREXT="":"",SREXT=1:" Day",SREXT=0:" Days",SREXT>1:" Days",1:"")
  • Condition for execution: SRFLD=247
  • Line Location: EXT+0
Function Call: WRITE
  • Prompt: ?40,X
  • Line Location: EXT+1
Function Call: WRITE
  • Prompt: ?40,$E(X,1,J-1)
  • Line Location: EXT+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"The Patient's Race and Ethnicity information cannot be updated through the"
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: @IOF,!!!!,"Enter the number or range of numbers you want to edit. Examples of proper",!,"responses are listed below.",!!,"NOTE: Items 11 and 12 cannot be updated through the surgery package options."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"1. Enter 'A' to update items 1 through 10 and items 13 through 15.",!!,"2. Enter a number (1-"_SRZ_") to update an individual item. (For example,",!," enter '1' to update "_$P(SRZ(1),"^")_")"
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"3. Enter a range of numbers (1-"_SRZ_") separated by a ':' to enter a range",!," of items. (For example, enter '1:4' to update items 1, 2, 3 and 4.)",!
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"4. Enter 'N' or 'NO' to enter negative response for all items.",!!,"5. Enter '@' to delete information from all items.",!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESS+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Routine Call
  • DIE
  • Line Location:
    • ONE+1
Routine Call
  • DIR
  • Line Location:
    • START+3
    • PIMS+1
    • PRESS

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
EDIT EDIT+43
END SROAPM+2, START, START+3
EXT EDIT+5, EDIT+36
GET EDIT+3, EDIT+34
HELP SEL+4, SEL+5
ONE SEL+9, RANGE+3, RANGE+4
PIMS START+4
RANGE SEL+7
SEL EDIT+43
START START+4, EDIT+45
TR EDIT+3, EDIT+34
WRAP EDIT+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C EDIT+14*, EDIT+15, EDIT+16, EDIT+17, EDIT+18, EDIT+19*
>> CURLEY RANGE+2*
>> D EDIT+26*, EDIT+27, EDIT+28
DA EDIT+1!*, EDIT+32!*, ONE+1!*
DIC EDIT+1!*, EDIT+32!*
DIE ONE+1!*
DIQ EDIT+1!*, EDIT+32!*
DIQ(0 EDIT+1*, EDIT+32*
DIR START+3!, PIMS+1!, PRESS!
DIR("?" START+2*
DIR("A" START+1*, START+3*, PIMS+1*, PRESS*
DIR("B" PIMS+1*
DIR(0 START+3*, PIMS+1*, PRESS*
DR EDIT!*, EDIT+1*!, EDIT+32!*, ONE+1!*
DTIME SROAPM+2, SEL, SEL+3
>> DTOUT START+3, PIMS+1, PRESS
>> DUOUT START+3, PIMS+1, PRESS
>> E WRAP+3*, WRAP+4, WRAP+7, WRAP+8*
>> EMILY SEL+8*, RANGE+3*, RANGE+4*, ONE+1
I EDIT+2*, EDIT+33*, WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+10, WRAP+11, WRAP+12, EXT+1~
, EXT+2*, TR
IOF HELP, END
J EXT+1~, EXT+2*, TR*
>> K EDIT+42*, WRAP+5*, WRAP+6, WRAP+7
>> M EDIT+2*, EDIT+33*
>> N EDIT+14*, EDIT+22
>> SHEMP RANGE+2*, RANGE+3, RANGE+4
>> SRDR EDIT*, EDIT+1, EDIT+2, EDIT+32*, EDIT+33
>> SRDT ONE+1*
>> SREXT EDIT+4*, EDIT+35*, EXT, EXT+1
>> SRFLD EDIT+4*, EDIT+35*, EXT
>> SRFLG SEL+4, HELP+3
>> SRNUM WRAP+15*, WRAP+16*, WRAP+17
SRNUM1 EDIT+22*, EDIT+26, EDIT+40!, WRAP+15*, WRAP+17, WRAP+18*
>> SROERR EDIT+44*
SROL EDIT+14*, EDIT+40!, WRAP+3*
SROL( EDIT+22*, EDIT+27, EDIT+28, WRAP+17*
SROLINE EDIT+14*, EDIT+17*, EDIT+18*, EDIT+22, EDIT+23, EDIT+40!, WRAP+3, WRAP+4
SROLN EDIT+40!, WRAP+3*
SROLN( WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+10
SROLN1 EDIT+40!, WRAP+3*
SROLN1( WRAP+6*, WRAP+10*, WRAP+11*, WRAP+12*, WRAP+16, WRAP+17
SROLNGTH WRAP+3~*, WRAP+4
SRORACE EDIT+14*, EDIT+40!
SRORACE( EDIT+16*, EDIT+17, EDIT+18
SRORC EDIT+14*, EDIT+15*, EDIT+16, EDIT+40!
SROWRAP EDIT+40!, WRAP+3*, WRAP+4, WRAP+7*, WRAP+10*, WRAP+11, WRAP+12
>> SRQ EDIT*
>> SRR EDIT*, EDIT+43, SEL+1*, SEL+4*, SEL+5*, SEL+7*, SEL+8*
>> SRSOUT SROAPM+3*, START, START+3*, SEL*, PRESS*, RANGE+3, RANGE+4, ONE+1*
>> SRSUPCPT SROAPM+3*
>> SRTN SROAPM+2, EDIT+1, EDIT+4, EDIT+32, EDIT+35, EDIT+44, SEL+9, PIMS+2, RANGE+1, ONE+1
SRY EDIT+1!, EDIT+32!
SRY(130 EDIT+4, EDIT+35
SRZ EDIT+2!*, EDIT+4*, EDIT+5, EDIT+33*, EDIT+35*, EDIT+36, SEL+5, SEL+6, HELP+1, HELP+2
SRZ( EDIT+4*, EDIT+35*, SEL+4, SEL+8, ONE+1
SRZ(1 HELP+1
SRZ(11 EDIT+9*
SRZ(12 EDIT+25*
U EDIT+10, EDIT+16
>> VADM(11 EDIT+10, EDIT+11
>> VADM(12 EDIT+15, EDIT+16, EDIT+26, EDIT+30
X SROAPM+2*, EDIT+4, EDIT+35, EXT+1~*, EXT+2*, SEL*, SEL+1, SEL+3*, SEL+4*, SEL+5
, SEL+6*, SEL+7, SEL+8, RANGE+2, GET*
Y START+3, START+4, EDIT+4*, EDIT+35*, EXT+1~, EXT+2*, SEL+5*, PIMS+1, ONE+1
>> Z EDIT+4*, EDIT+5, EDIT+35*, EDIT+36, SEL+5*

Marked Items

Name Field # of Occurrence
$T(@J GET
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items |  All