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

Package: Surgery

Routine: SROAEX


Information

SROAEX ;BIR/MAM - EXCLUSION CRITERIA ;03/22/07

Source Information

Source file <SROAEX.m>

Entry Points

Name Comments DBIA/ICR reference
START
ASK
END
HELP
AQ ; update transmission status
RANGE ; range of numbers
ONE ; edit one item
RET
CRITERIA ; expand set of codes for exclusion criteria
UPANES
REASON

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"1. Exclusion Criteria: ",?35,$P(SRAO(1),"^"),!,"2. Surgical Priority:",?35,$P(SRAO(2),"^"),!,"3. Surgical Specialty:",?35,$P(SRAO(3),"^")
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !,"4. CPT Codes (view only):"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"5. Principal Anesthesia Technique: "_$P(SRAO(5),"^"),!,"6. Robotic Assistance (Y/N): ",?35,$$GET1^DIQ(130,SRTN_",",2006,"E"),!!
  • Line Location: START+11
Function Call: WRITE
  • Prompt: "-"
  • Line Location: START+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,!!!!,"Enter the number or range of numbers you want to edit. Examples of proper"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"responses are listed below.",!!,"1. Enter 'A' to update all information."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"2. Enter a number (1-5) to update the information in that field. (For"
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !," example, enter '2' to update Surgical Priority)"
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!,"3. Enter a range of numbers (1-5) separated by a ':' to enter a range of"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !," information. (For example, enter '1:2' to update the Exclusion Criteria "
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," and Surgical Priority)"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: RANGE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REASON+0

FileMan Files Accessed Via FileMan Db Call

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