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
Print Page as PDF
Routine: SCMCHLR

Package: Scheduling

Routine: SCMCHLR


Information

SCMCHLR ;BP/DJB - PCMM HL7 Re-transmit Rejects ; 8/25/99 2:29pm

Source Information

Source file <SCMCHLR.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
TOP ;
EXIT ;
GETMSG ;Prompt for reject message number.
GETMSG1
GETMSG2 ;
ARRAY ;Build array of message text.
PARSE ;Parse out DFN and VARPTR from text of message
ASK() ;Ask if they want to re-tranmit selected msgs.
ASK1
RETRAN ;Re-transmit selected items.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD
  • Line Location: GETMSG+11
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: GETMSG+12
Function Call: WRITE
  • Prompt: !!,"Select an Austin HL7 rejection Mailman message."
  • Line Location: GETMSG+13
Function Call: WRITE
  • Prompt: !!,"Enter MESSAGE NUMBER: "
  • Line Location: GETMSG1+2
Function Call: READ
  • Variable: ANS
  • Timeout: 300
  • Line Location: GETMSG1+3
Function Call: WRITE
  • Prompt: ANS
  • Line Location: GETMSG1+6
Function Call: WRITE
  • Prompt: !,"Enter a valid Mailman message number or <RET> to Quit."
  • Line Location: GETMSG1+9
Function Call: WRITE
  • Prompt: !,"Sorry, not a valid PCMM HL7 reject message number."
  • Line Location: GETMSG2+1
Function Call: WRITE
  • Prompt: !,"Cannot identify patient. Aborting."
  • Line Location: PARSE+9
Function Call: WRITE
  • Prompt: !,"Cannot identify event ID. Aborting."
  • Line Location: PARSE+15
Function Call: WRITE
  • Prompt: !,"Cannot identify long ID. Aborting."
  • Line Location: PARSE+20
Function Call: WRITE
  • Prompt: !!,"Patient: ",$P($G(^DPT(DFN,0)),U,1)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to re-transmit"
  • Line Location: ASK1+0
Function Call: WRITE
  • Prompt: " Enter YES or NO"
  • Line Location: ASK1+2
Function Call: WRITE
  • Prompt: "Unable to initialize HL7 variables - protocol not found"
  • Line Location: RETRAN+15
Function Call: WRITE
  • Prompt: $P(HL,"^",2)
  • Line Location: RETRAN+19
Function Call: WRITE
  • Prompt: $P(RESULT,"^",2)
  • Line Location: RETRAN+25
Function Call: WRITE
  • Prompt: !!,"Message re-transmitted...",!
  • Line Location: RETRAN+32
Info |  Source |  Entry Points |  Interaction Calls