Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCFFU1

PRCFFU1.m

Go to the documentation of this file.
  1. PRCFFU1 ;WISC/SJG-BUILD FMS SEGMENTS ;11/26/93 16:10
  1. V ;;5.1;IFCAP;;Oct 20, 2000
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. NEW(RECNO,TRCODE,TYCODE) ;
  1. N NODE0,NODE1,TMPLINE,PRCBUD,PRCCC,PRCSTR,INT
  1. S NODE0=$G(^PRC(442,RECNO,0))
  1. S NODE1=$G(^PRC(442,RECNO,1))
  1. S INT=GECSFMS("DA")
  1. S PRCCC=+$P(PO(0),U,5)
  1. S PRCSTR=$$ACC^PRC0C(PRC("SITE"),+$P(PO(0),U,3)_"^"_PRC("FY")_"^"_PRCFA("BBFY"))
  1. DOC ; Build 'DOC' header segments
  1. S TMPLINE=0
  1. I TRCODE'="AR" D
  1. . D MO2^PRCFFU2(NODE1,TYCODE)
  1. . D MO3^PRCFFU21
  1. . D MO4^PRCFFU22
  1. I TRCODE="AR" D
  1. . D RC2^PRCFFU2A(NODE1,TYCODE)
  1. . D RC3^PRCFFU2A
  1. S PRCBUD=$$BUD^PRCFFU3(PRCSTR)
  1. I PRCFA("MP")=21,TYCODE="M",TRCODE'="MO" S NUMB=1 D LIN Q ; 1358 modification
  1. N FMSLIN,FMSNOD S FMSLIN=0 F S FMSLIN=$O(^PRC(442,RECNO,22,FMSLIN)) Q:FMSLIN=""!(FMSLIN'>0) S FMSNOD=^PRC(442,RECNO,22,FMSLIN,0) D LIN
  1. QUIT
  1. ;
  1. LIN ; Build 'LIN' line segments
  1. I TRCODE'="AR" D MOA^PRCFFU3
  1. I TRCODE="AR" D RCA^PRCFFU3A
  1. Q