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

Package: CMOP

Routine: PSXDODB


Information

PSXDODB ;BIR/HTW-HL7 Message Conversion ;25 Jul 2002 10:02 PM

Source Information

Source file <PSXDODB.m>

Entry Points

Name Comments DBIA/ICR reference
EN(PATH,FNAME) ; needs directory & file name
; force an error in the next line
EN1 ;
EN2 ;entry for processing file into Vista Messages
XMZ
PIECE(REC,DLM,XX) ;
; Set variable V = piece P of REC using delimiter DLM
PUT(REC,DLM,XX) ;
; Set Variable V into piece P of REC using delimiter DLM
GETELM(STR,PIECES,SEPS) ;
; uses STRing and
; returns value of the element located by path of pieces and separators
; ex: 1st address line = $$getelm(ORC,"22,1","|,^")
; or = $$getelm(XMIT,"4,2,1","|,\F\,\S|")
ERRMSG ;
MSGSEQER ;send error message to folks & DOD
EXIT ;
LOADTMP ; load data into ^TMP
CLEARFLS(XX,EXT) ;
LOOP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MSGSEQER+13
Function Call: WRITE
  • Prompt: !,PSXTXT(I,0)
  • Line Location: MSGSEQER+13
Function Call: WRITE
  • Prompt: !,"path ",PATH,!,"files ",EXT
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !,FILE
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: $$DEL^%ZISH(PATH,"PSXL")
  • Line Location: LOOP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSX(554 - [#554] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call