Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
START
EDIT
CHCK ; compare admission and discharge dates to each other
EXT
SEL
END
PIMS ; get update from PIMS records
HELP
PRESS
RANGE ; range of numbers
ONE ; edit one item
OK ; compare admission date to discharge date
LIST ; display list of patient movements
MVMT
ADM
TR
GET
DAC ;;413^Transfer Status
DAH ;;418^Hospital Admission Date
DAI ;;419^Hospital Discharge Date
FHE ;;685^DC/REL Destination
DDJ ;;440^Cardiac Catheterization Date
PBJE ;;.205^Time Patient In OR
PBB ;;.22^Date/Time Operation Began
PBC ;;.23^Date/Time Operation Ended
PBCB ;;.232^Time Patient Out OR
DGJ ;;470^Date/Time Patient Extubated
DGA ;;471^Date/Time Discharged from ICU
DGC ;;473^Homeless
DDB ;;442^Employment Status Preoperatively
CDB ;;342^Date of Death
CDBPA ;;342.1^30-Day Death

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+9
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: ",?39,$FN((X/3600),"+",1)
  • Line Location: EXT+3
Function Call: WRITE
  • Prompt: ?39,$E(SREXT,1,40)
  • Line Location: EXT+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call