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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Scheduling 3 $$HLEID^SCMCHL  $$BUILD^SCMCHLB  PTPD^SCMCHLB2  
MailMan 2 $$READ^XMGAPI1  $$NET^XMRENT  
Health Level Seven 1 INIT^HLFNC2  
Registration 1 $$SITE^VASITE  
VA Fileman 1 YN^DICN  

Entry Points

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

External References

Name Field # of Occurrence
YN^DICN ASK1+1
INIT^HLFNC2 RETRAN+18
$$HLEID^SCMCHL RETRAN+13
$$BUILD^SCMCHLB RETRAN+26
PTPD^SCMCHLB2 RETRAN+24
$$SITE^VASITE RETRAN+10
$$READ^XMGAPI1 ARRAY+6
$$NET^XMRENT GETMSG1+7

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
  • Timeout: 300
  • Variable: ANS
  • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DISV( GETMSG1+5, GETMSG1+19*
^DPT - [#2] ASK+2
^SCPT(404.43 - [#404.43] PARSE+21
^SCPT(404.49 - [#404.49] PARSE+16
^TMP("REJECTS" EXIT+1!, ARRAY+3!, ARRAY+7*, PARSE+6, PARSE+10

Label References

Name Line Occurrences
$$ASK TOP+5
ARRAY TOP+3
ASK1 ASK1+2
EXIT TOP+2, TOP+4
GETMSG TOP+1
GETMSG1 GETMSG1+4, GETMSG1+8, GETMSG1+13, GETMSG1+15
GETMSG2 GETMSG1+13, GETMSG1+15
PARSE TOP+4
RETRAN TOP+6
TOP TOP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% GETMSG+7~, ASK+1~, ASK1+1*, ASK1+2, ASK1+3
%DT GETMSG+7~
%Y ASK+1~
ANS GETMSG+7~, GETMSG1+3*, GETMSG1+4, GETMSG1+5*, GETMSG1+6, GETMSG1+7, GETMSG1+16, GETMSG1+19
CNT ARRAY+1~, ARRAY+4*, ARRAY+7, ARRAY+8*
DATA GETMSG+7~, GETMSG1+7*, GETMSG1+8, GETMSG1+12, GETMSG1+14
DFN EN+1~, TOP+4, PARSE+7*, PARSE+8, PARSE+14*, PARSE+19*, ASK+2
DUZ GETMSG1+5, GETMSG1+19
HD GETMSG+7~, GETMSG+10*, GETMSG+11
HL RETRAN+3~, RETRAN+18, RETRAN+19, RETRAN+26
HL("" RETRAN+19
HLECH RETRAN+3~
HLEID RETRAN+3~, RETRAN+13*, RETRAN+14, RETRAN+18
HLFS RETRAN+3~
HLQ RETRAN+3~
ID PARSE+4~, PARSE+11*, PARSE+12*, PARSE+13, PARSE+16
IDLONG PARSE+4~, PARSE+16*, PARSE+17
IOF GETMSG+11
IOM GETMSG+9, GETMSG+11
LINE GETMSG+7~, GETMSG+9*, GETMSG+12
LN PARSE+4~, PARSE+6*, PARSE+7, PARSE+10*, PARSE+11
PT RETRAN+2~
PTPI PARSE+4~, PARSE+17*, PARSE+18, PARSE+21, PARSE+22, RETRAN+2~, RETRAN+23*, RETRAN+24
RESULT RETRAN+2~, RETRAN+25, RETRAN+26*
SCDELETE EN+1~, PARSE+21*, RETRAN+22
SCFAC RETRAN+2~, RETRAN+10*
SCMSG EN+1~, GETMSG1!
SCMSG("FROM" GETMSG1+12*, GETMSG1+13
SCMSG("IEN" TOP+2, GETMSG1+1*, GETMSG1+16*, ARRAY+5
SCMSG("SUBJ" GETMSG1+14*, GETMSG1+15
U PARSE+16, ASK+2
VARPTR EN+1~, PARSE+22*, RETRAN+23, RETRAN+26
X GETMSG+7~, ARRAY+1~, ARRAY+6*, ARRAY+7
XMER ARRAY+1~, ARRAY+6
XMITARRY RETRAN+2~, RETRAN+6*, RETRAN+7, RETRAN+26, RETRAN+31
XMPOS ARRAY+1~
XMRG ARRAY+1~
XMZ ARRAY+1~, ARRAY+5*
Y GETMSG+7~
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All