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

Package: CMOP

Routine: PSXDODH1


Information

PSXDODH1 ;BIR/HTW-HL7 Message Conversion ;01/15/02 13:10:52

Source Information

Source file <PSXDODH1.m>

Entry Points

Name Comments DBIA/ICR reference
TESTBT ;test the sequence of the messages in the batch
; stored in ^tmp($j,"PSXDOD","MSG0",I)
CHECK ;patient safety check
HEADER ; read FHS,BHS,ORC assemble $$XMIT,NTE|1 called from PSXDODH
BLDSEQ ;build check sequence of SEGMENTS
SEGBLD ; data for checking sequence of segments. ZR1 needs special handling.
PIECE(REC,DLM,XX) ;
; Set VAR = piece I of REC using delimiter DLM
PUT(REC,DLM,XX) ;
; Set VAR into piece I of REC using delimiter DLM
GETELM(STR,PIECES,SEPS) ;
; uses STRing and
; returns value of the element located by path of pieces and seperators
; ex: PIECES "3,2,1" SEPS "|,^,&"
SETELM(STR,PIECES,SEPS,VALUE)
STRBLD(STR0,SEPS) ;
; default separators for all segments, fields, components are | ^ &
; other separators can be passed in SEPS ex: "|,^,&" or "|,\F\,\S\"
; or placed within the field and segment nodes STR0( , , ..,"S")= separator
; ex: for NTE|1 of HL7 2.1
; segment NTE|1 STR0("S")="|"
; facility field STR0(4,"S")="\F\"
; address component STR0(4,2,"S")="\S\"
L1
L2
L3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Order Sequence ",PSXERR,!,BATIDM,?40,BATIDB
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !,"Prescription Number ",PSXERR,!,RXIDE,?40,RXIDC
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !,"RX Number ",PSXERR,!,RXID1,?40,RXIDC
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !,"Batch Orders ",PSXERR,!,PTCNTB,?40,PTCNT
  • Line Location: CHECK+12
Function Call: WRITE
  • Prompt: !,"Batch Totals ",PSXERR,!,ORDCNTB,?40,ORDCNT
  • Line Location: CHECK+14
Info |  Source |  Entry Points |  Interaction Calls