Routine: SROAPM

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

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*

Customize PDF page

Package: Surgery

Routine: SROAPM

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend:

Marked Items