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 |  Marked Items |  All
Print Page as PDF
Routine: SROACPM

Package: Surgery

Routine: SROACPM


Information

SROACPM ;BIR/ADM - CARDIAC RESOURCE INFO ;12/04/07

Source Information

Source file <SROACPM.m>

Call Graph

Call Graph Total: 11

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  

Caller Graph

Caller Graph Total: 1

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*

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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All