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: SROAPM

Package: Surgery

Routine: SROAPM


Information

SROAPM ;BIR/ADM - PATIENT DEMOGRAPHIC INFO ;05/28/10

Source Information

Source file <SROAPM.m>

Entry Points

Name Comments DBIA/ICR reference
START
EDIT
WRAP ;Wrap multiple race entries so that wrapped line
EXT
SEL
PIMS ; get update from PIMS records
HELP
PRESS
RANGE ; range of numbers
ONE ; edit one item
TR
GET
END
PJAA ;;.011^Hospital Admission Status
BDG ;;247^Length of Postop Hospital Stay
DAC ;;413^Transfer Status
DAG ;;417^Patient's Race
DAH ;;418^Hospital Admission Date/Time
DAI ;;419^Hospital Discharge Date/Time
DBJ ;;420^Admit/Transfer to Surgical Svc.
DBA ;;421^Discharge/Transfer to Chronic Care
FHE ;;685^DC/REL Destination
DEB ;;452^Observation Admission Date/Time
DEC ;;453^Observation Discharge Date/Time
DED ;;454^Observation Treating Specialty
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: 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: !,"12. *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: !,"13. *Patient's Race:"
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: ?40,"UNANSWERED"
  • Line Location: EDIT+30
Function Call: WRITE
  • Prompt: !!
  • Line Location: EDIT+39
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EDIT+39
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
  • Variable: X
  • Timeout: DTIME
  • 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 12 and 13 cannot be updated through the surgery package options."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"1. Enter 'A' to update items 1 through 11 and item 14.",!!,"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

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