Routine: SROACPM

Package	Total	Call Graph
VA Fileman	5	(,C)^%DTC WAIT^DICD ^DIE EN^DIQ1 ^DIR
Surgery	4	^SROAPIMS (,HDR)^SROAUTL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
Kernel	1	$$FMDIFF^XLFDT
Registration	1	IN5^VADPT

Package	Total	Caller Graph
Surgery	1	SROA CARDIAC RESOURCE

Entry Points

Name	Comments	DBIA/ICR reference
HELP
DAH	;;418^Hospital Admission Date
CHCK	; compare admission and discharge dates to each other
EXT
DCA	;;431^Resource Data Comments
DGB	;;472^Surg Performed at Non-VA Facility
DGC	;;473^Homeless
DGA	;;471^Date/Time Discharged from ICU
PIMS	; get update from PIMS records
GET
DGJ	;;470^Date/Time Patient Extubated
EAC	;;513^CT Surgery Consult Date
TR
DAI	;;419^Hospital Discharge Date
ONE	; edit one item
PRESS
SEL
END
MVMT
CHK	; compare date OF OPERATION to CT Surgery Consult Date
START
RANGE	; range of numbers
PBJE	;;.205^Time Patient In OR
DDB	;;442^Employment Status Preoperatively
ADM
OK	; compare admission date to discharge date
DDJ	;;440^Cardiac Catheterization Date
EDIT
EAE	;;515^Cause for Delay for Surgery
LIST	; display list of patient movements
PBCB	;;.232^Time Patient Out OR

External References

Name	Field # of Occurrence
^%DTC	CHK+1
C^%DTC	ADM+1
WAIT^DICD	PIMS+2
^DIE	ONE+2, CHK+2, LIST+11, LIST+12
EN^DIQ1	EDIT+3
^DIR	START+3, PIMS+1, PRESS, LIST+10
^SROAPIMS	PIMS+2
^SROAUTL	SROACPM+6
HDR^SROAUTL	START, EDIT+2
$$LOCK^SROUTL	SEL+6, RANGE+1
UNLOCK^SROUTL	SEL+6, RANGE+1
^SRSKILL	END
IN5^VADPT	MVMT, ADM, ADM+1
$$FMDIFF^XLFDT	EXT+3

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: SROACPM+5
Function Call: WRITE	Prompt: !!,"A Surgery Risk Assessment must be selected prior to using this option.",!!,"Press <RET> to continue " Line Location: SROACPM+5
Function Call: WRITE	Prompt: $J(SRZ,2)_". "_$P(Z,"^")_": " Line Location: EDIT+7
Function Call: WRITE	Prompt: ! Line Location: EDIT+8
Function Call: WRITE	Prompt: "-" Line Location: EDIT+8
Function Call: WRITE	Prompt: ! Line Location: CHCK+3
Function Call: WRITE	Prompt: !,"* NOTE: Discharge Date precedes Admission Date!! Please check. *" Line Location: CHCK+4
Function Call: WRITE	Prompt: !,"* NOTE: D/Time Pt Extubated should be later than the D/Time Pt Out of OR. *" Line Location: CHCK+5
Function Call: WRITE	Prompt: !,"* NOTE: D/Time Pt Extubated should be < the ICU Discharge D/Time. *" Line Location: CHCK+6
Function Call: WRITE	Prompt: !,"* NOTE: D/Time Discharged from ICU should be > the Extubation D/Time. *" Line Location: CHCK+7
Function Call: WRITE	Prompt: !,"*** NOTE: D/Time Discharged from ICU should be <= the Hospital Discharge D/Time*" Line Location: CHCK+8
Function Call: WRITE	Prompt: ?39,SREXT,!,?10,"Postop Intubation Hrs: "_$FN((X/3600),"+",1) Line Location: EXT+3
Function Call: WRITE	Prompt: ?39,SREXT Line Location: EXT+5
Function Call: WRITE	Prompt: $S(SREXT="":"",SREXT=1:" Day",SREXT=0:" Days",SREXT>1:" Days",1:"") Condition for execution: SRFLD=247 Line Location: EXT+5
Function Call: WRITE	Prompt: ?28,SREXT Line Location: EXT+7
Function Call: WRITE	Prompt: ?28,X Line Location: EXT+8
Function Call: WRITE	Prompt: ?28,$E(X,1,J-1) Line Location: EXT+9
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: ! Line Location: PIMS+2
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 items.",!!,"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: !!," * NOTE: Discharge Date precedes Admission Date!! Please check. *",! Line Location: OK+2
Function Call: WRITE	Prompt: ! Line Location: OK+2
Function Call: WRITE	Prompt: !!,?5,"To identify the date and time the patient was discharged from intensive",!,?5,"care following surgery, see the following list of patient movements" Line Location: LIST+6
Function Call: WRITE	Prompt: !,?5,"that occurred during the inpatient stay associated with this surgery.",! Line Location: LIST+7
Function Call: WRITE	Prompt: !,$J(SRN,3)_".",?5,$P($P(X,"^"),":",1,2),?25,$P(X,"^",3),?37,$S(SRT=3:"From",1:"To")_": "_$P(X,"^",4) Line Location: LIST+8
Function Call: WRITE	Prompt: !,?5,">> No postoperative patient movements were found for this patient." Line Location: LIST+9
Function Call: WRITE	Prompt: ! Line Location: LIST+10
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Routine Call	DIE Line Location: ONE+2 CHK+2 LIST+11 LIST+12
Routine Call	DIR Line Location: START+3 PIMS+1 PRESS LIST+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APTT1"	ADM+1
^SRF - [#130]	EDIT+1, OK+1, CHK+1, CHK+2*, LIST+2

Label References

Name	Line Occurrences
ADM	LIST+3
CHCK	EDIT+8
CHK	ONE+4
EDIT	EDIT+9
END	SROACPM+5, START, START+3
EXT	EDIT+7
GET	EDIT+5
HELP	SEL+1, SEL+2
LIST	ONE+1
MVMT	LIST+4
OK	ONE+3
ONE	SEL+6, RANGE+2
PIMS	START+4
PRESS	OK+2
RANGE	SEL+4
SEL	EDIT+9
START	START+4, EDIT+10
TR	EDIT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	LIST+1~, LIST+4, LIST+8, MVMT+1, MVMT+3, MVMT+6
>> CURLEY	RANGE+2*
DA	EDIT+3!, ONE+2!, CHK+2!, LIST+11!, LIST+12!*
DAYS	EDIT~
>> DFN	LIST+2*, ADM+1
DIC	EDIT+3!*
DIE	ONE+2!, CHK+2!, LIST+11!, LIST+12!
DIQ	EDIT+3!*
DIQ(0	EDIT+3*
DIR	START+3!, PIMS+1!, PRESS!, LIST+10!
DIR("?"	START+2*
DIR("A"	START+1, START+3, PIMS+1, PRESS, LIST+10*
DIR("B"	PIMS+1*
DIR(0	START+3, PIMS+1, PRESS, LIST+10
DR	EDIT+2!, EDIT+3!, ONE+2!, CHK+2!, LIST+11!, LIST+12!
DTIME	SROACPM+5, SEL
>> DTOUT	START+3, PIMS+1, PRESS
>> DUOUT	START+3, PIMS+1, PRESS
>> EMILY	SEL+5, RANGE+2, ONE+1, ONE+2, ONE+3, ONE+4
HOURS	EDIT~
I	EDIT+4, EXT+8~, EXT+9, TR
IOF	HELP, END
J	EXT+8~, EXT+9, TR
>> K	EDIT+8*
>> M	EDIT+4*, EDIT+7
MINS	EDIT~
>> SHEMP	RANGE+2*
SR24	ADM~, ADM+1*
SRADM	CHCK+1~, CHCK+3, CHCK+4, OK+1~, OK+2, LIST+1~, LIST+3*
SRDICU	CHCK+1~, CHCK+2*, CHCK+6, CHCK+7, CHCK+8
SRDIS	CHCK+1~, CHCK+3, CHCK+4, CHCK+8, OK+1~, OK+2
>> SRDR	EDIT+2*, EDIT+3, EDIT+4
>> SRDT	ONE+2, CHK+2, ADM+1*
SREXT	EDIT+6, CHCK+1~, CHCK+2, CHCK+5, CHCK+6, CHCK+7, EXT, EXT+1, EXT+3, EXT+4* , EXT+5, EXT+7, EXT+8
>> SRFLD	EDIT+6*, EXT, EXT+1, EXT+2, EXT+4, EXT+5, EXT+6
>> SRFLG	SEL+1, HELP+3
SRLOC	LIST+1~, MVMT+2, MVMT+3, MVMT+6
SRMOVE	LIST+1~, MVMT+2, MVMT+3, MVMT+6
SRMVMT	LIST+1~
SRMVMT(	LIST+8, LIST+11, MVMT+3, MVMT+6
SRMVMT(0	LIST+9
SRN	LIST+1~, LIST+8*, LIST+10
SROUT	CHCK+1~, CHCK+2*, CHCK+5
>> SRPAGE	EDIT+2*
>> SRQ	EDIT+2*
>> SRR	EDIT+2, EDIT+9, SEL+1, SEL+2, SEL+4, SEL+5*
>> SRSOUT	SROACPM+6, START, START+3, SEL, PRESS, RANGE+2, ONE+2, ONE+3, CHK+2
>> SRSUPCPT	SROACPM+6*
SRT	LIST+1~, LIST+8, LIST+11
>> SRTN	SROACPM+5, EDIT+1, EDIT+3, EDIT+6, CHCK+2, CHCK+3, EXT+2, EXT+3, SEL+6, RANGE+1 , ONE+2, OK+1, CHK+1, CHK+2, LIST+2, LIST+11, LIST+12
SRTYPE	LIST+1~, MVMT+2, MVMT+3, MVMT+6
SRY	EDIT+3!, LIST+1~, MVMT*, MVMT+1, MVMT+4
SRY(130	EDIT+6, CHCK+2, CHCK+3, EXT+2, EXT+3
SRZ	EDIT+4!, EDIT+6, EDIT+7, SEL+2, SEL+3, HELP+1, HELP+2, LIST+1~, LIST+2, LIST+4 , MVMT, MVMT+4, MVMT+5, MVMT+6, MVMT+7, ADM, ADM+1, ADM+2*
SRZ(	EDIT+6*, SEL+1, SEL+5, ONE+2
SRZ(1	HELP+1
SRZ(13	CHK+2
>> VAIP("D"	MVMT, ADM, ADM+1*
>> VAIP(1	MVMT+5
>> VAIP(13	ADM+1, ADM+2
>> VAIP(16	MVMT+6, MVMT+7
>> VAIP(17	MVMT+5, MVMT+6
>> VAIP(2	MVMT+2
>> VAIP(3	MVMT, MVMT+2
>> VAIP(5	MVMT+2
X	SROACPM+5, EDIT+6, EXT+3, EXT+8~, EXT+9, SEL, SEL+1, SEL+2, SEL+3, SEL+4 , SEL+5, RANGE+2, OK+1, CHK+1, LIST+8, ADM+1, GET
>> X1	CHK+1, ADM+1
>> X2	CHK+1, ADM+1
Y	START+3, START+4, EDIT+6, EXT+8~, EXT+9, SEL+2*, PIMS+1, ONE+2, CHK+2, LIST+10 , LIST+11
>> Z	EDIT+6, EDIT+7, SEL+2

Customize PDF page

Package: Surgery

Routine: SROACPM

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items