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

VAFCADT5.m

Go to the documentation of this file.
  1. VAFCADT5 ;ALB/RJS - HL7 ADT BREAKOUT OF VAFCADT1 - APRIL 13,1995
  1. ;;5.3;Registration;**91**;Jun 06, 1996
  1. ;
  1. ;This routine was broken out of routine VAFCADT1 and
  1. ;contains numerous functions and procedures used by that routine
  1. ;
  1. 13(DFN) ;
  1. N NHCUADMT,NHCUNODE,MEDADMT,MEDNODE,NHCUCHK,NHCUPIVT,MEDPIVT
  1. N TRANSFER,TRNSNODE,PSUEDO,PSUNODE
  1. S NHCUADMT=$O(VAFH(1,0))
  1. S NHCUNODE=VAFH(1,NHCUADMT,"A")
  1. S MEDADMT=$O(VAFH(1,NHCUADMT))
  1. S MEDNODE=VAFH(1,MEDADMT,"A")
  1. S NHCUCHK=$$PIVCHK^VAFHPIVT(DFN,$P(NHCUNODE,"^",1),1,NHCUADMT_";DGPM(")
  1. S NHCUPIVT=$$PIVNW^VAFHPIVT(DFN,$P(NHCUNODE,"^",1),1,NHCUADMT_";DGPM(")
  1. S MEDPIVT=$$PIVNW^VAFHPIVT(DFN,$P(MEDNODE,"^",1),1,MEDADMT_";DGPM(")
  1. I NHCUCHK'>0 D G MEDICAL
  1. . K HISTORY
  1. . D BLDHIST^VAFCADT3(DFN,NHCUADMT,"HISTORY")
  1. . D:$D(VATRACE) HISTORY^VAFCADT4
  1. . D ENTIRE^VAFCADT4(+NHCUPIVT)
  1. I NHCUCHK>0 D
  1. . S TRANSFER=$O(VAFH(2,0))
  1. . S TRNSNODE=VAFH(2,TRANSFER,"A")
  1. . D BLDMSG^VAFCADT2(DFN,"A02",$P(TRNSNODE,"^",1),"05",TRANSFER,+NHCUPIVT)
  1. . S PSUEDO=$O(VAFH(3,0))
  1. . S PSUNODE=VAFH(3,PSUEDO,"A")
  1. . D BLDMSG^VAFCADT2(DFN,"A03",$P(PSUNODE,"^",1),"05",PSUEDO,+NHCUPIVT)
  1. MEDICAL ;
  1. D BLDMSG^VAFCADT2(DFN,"A01",$P(MEDNODE,"^",1),"05",MEDADMT,+MEDPIVT)
  1. Q
  1. ;
  1. 14(DFN) ;
  1. N NHCUADMT,NHCUNODE,NHCUPIVT,NHCUCHK,NHCUTRAN,TRANNODE,NHCUDIS,DISNODE
  1. S NHCUADMT=$O(VAFH(1,0))
  1. S NHCUNODE=VAFH(1,NHCUADMT,"A")
  1. S NHCUCHK=$$PIVCHK^VAFHPIVT(DFN,$P(NHCUNODE,"^",1),1,NHCUADMT_";DGPM(")
  1. S NHCUPIVT=$$PIVNW^VAFHPIVT(DFN,$P(NHCUNODE,"^",1),1,NHCUADMT_";DGPM(")
  1. I +NHCUCHK'>0 D Q
  1. . K HISTORY
  1. . D BLDHIST^VAFCADT3(DFN,NHCUADMT,"HISTORY")
  1. . D:$D(VATRACE) HISTORY^VAFCADT4
  1. . D ENTIRE^VAFCADT4(+NHCUPIVT)
  1. S NHCUDIS=$O(VAFH(3,0))
  1. S DISNODE=VAFH(3,NHCUDIS,"P")
  1. D BLDMSG^VAFCADT2(DFN,"A13",$P(DISNODE,"^",1),"05",NHCUDIS,+NHCUPIVT)
  1. S NHCUTRAN=$O(VAFH(2,0))
  1. S TRANNODE=VAFH(2,NHCUTRAN,"A")
  1. D BLDMSG^VAFCADT2(DFN,"A02",$P(TRANNODE,"^",1),"05",NHCUTRAN,+NHCUPIVT)
  1. Q
  1. ;
  1. 41(DFN) ;
  1. N NHCUADMT,NHCUNODE,NHCUPIVT,NHCUCHK,MEDADMT,MEDNODE,MEDPIVT,MEDCHK,NHCUPREV
  1. S NHCUADMT=$O(VAFH(1,0))
  1. S NHCUNODE=VAFH(1,NHCUADMT,"A")
  1. S NHCUPREV=VAFH(1,NHCUADMT,"P")
  1. S MEDADMT=$O(VAFH(1,NHCUADMT))
  1. S MEDNODE=VAFH(1,MEDADMT,"A")
  1. S NHCUCHK=$$PIVCHK^VAFHPIVT(DFN,$P(NHCUNODE,"^",1),1,NHCUADMT_";DGPM(")
  1. S NHCUPIVT=$$PIVNW^VAFHPIVT(DFN,$P(NHCUNODE,"^",1),1,NHCUADMT_";DGPM(")
  1. S MEDCHK=$$PIVCHK^VAFHPIVT(DFN,$P(MEDNODE,"^",1),1,MEDADMT_";DGPM(")
  1. S MEDPIVT=$$PIVNW^VAFHPIVT(DFN,$P(MEDNODE,"^",1),1,MEDADMT_";DGPM(")
  1. I +MEDCHK>0 D BLDMSG^VAFCADT2(DFN,"A03",$P(MEDNODE,"^",1),"05",MEDADMT,+MEDPIVT)
  1. I +MEDCHK'>0 D
  1. . K HISTORY
  1. . D BLDHIST^VAFCADT3(DFN,MEDADMT,"HISTORY")
  1. . D:$D(VATRACE) HISTORY^VAFCADT4
  1. . D ENTIRE^VAFCADT4(+MEDPIVT)
  1. I +NHCUCHK>0 D
  1. . S NHCUDSDT=$P(VAFH(3,$P(NHCUPREV,"^",17),"P"),"^",1)
  1. . D BLDMSG^VAFCADT2(DFN,"A13",NHCUDSDT,"05",NHCUADMT,+NHCUPIVT)
  1. . D BLDMSG^VAFCADT2(DFN,"A02",$P(DGPMA,"^",1),"05",NHCUADMT,+NHCUPIVT)
  1. I +NHCUCHK'>0 D
  1. . K HISTORY
  1. . D BLDHIST^VAFCADT3(DFN,NHCUADMT,"HISTORY")
  1. . D:$D(VATRACE) HISTORY^VAFCADT4
  1. . D ENTIRE^VAFCADT4(+NHCUPIVT)
  1. Q
  1. 43(DFN) ;
  1. N NHCUADMT,NHCUNODE,NHCUPIVT,NHCUCHK,NHCUTRAN,TRANNODE,NHCUDIS,DISNODE
  1. S NHCUADMT=$O(VAFH(1,0))
  1. S NHCUNODE=VAFH(1,NHCUADMT,"A")
  1. S NHCUCHK=$$PIVCHK^VAFHPIVT(DFN,$P(NHCUNODE,"^",1),1,NHCUADMT_";DGPM(")
  1. S NHCUPIVT=$$PIVNW^VAFHPIVT(DFN,$P(NHCUNODE,"^",1),1,NHCUADMT_";DGPM(")
  1. I +NHCUCHK'>0 D Q
  1. . K HISTORY
  1. . D BLDHIST^VAFCADT3(DFN,NHCUADMT,"HISTORY")
  1. . D:$D(VATRACE) HISTORY^VAFCADT4
  1. . D ENTIRE^VAFCADT4(+NHCUPIVT)
  1. S NHCUTRAN=$O(VAFH(2,0))
  1. S TRANNODE=VAFH(2,NHCUTRAN,"A")
  1. D BLDMSG^VAFCADT2(DFN,"A02",$P(TRANNODE,"^",1),"05",NHCUTRAN,+NHCUPIVT)
  1. S NHCUDIS=$O(VAFH(3,0))
  1. S DISNODE=VAFH(3,NHCUDIS,"A")
  1. D BLDMSG^VAFCADT2(DFN,"A03",$P(DISNODE,"^",1),"05",NHCUDIS,+NHCUPIVT)
  1. Q
  1. 44(DFN) ;
  1. N NHCUADMT,NHCUNODE,MEDADMT,MEDNODE,NHCUCHK,NHCUPIVT,MEDPIVT
  1. N TRANSFER,TRANNODE
  1. S MEDADMT=$O(VAFH(1,0))
  1. S MEDNODE=VAFH(1,MEDADMT,"A")
  1. S TRANSFER=$O(VAFH(2,0))
  1. S TRANNODE=VAFH(2,TRANSFER,"A")
  1. S NHCUADMT=$P(TRANNODE,"^",14)
  1. S NHCUCHK=$$PIVCHK^VAFHPIVT(DFN,$$ADMDATE^VAFCADT4(NHCUADMT),1,NHCUADMT_";DGPM(")
  1. S NHCUPIVT=$$PIVNW^VAFHPIVT(DFN,$$ADMDATE^VAFCADT4(NHCUADMT),1,NHCUADMT_";DGPM(")
  1. S MEDPIVT=$$PIVNW^VAFHPIVT(DFN,$P(MEDNODE,"^",1),1,MEDADMT_";DGPM(")
  1. I +NHCUCHK'>0 D
  1. . K HISTORY
  1. . D BLDHIST^VAFCADT3(DFN,NHCUADMT,"HISTORY")
  1. . D:$D(VATRACE) HISTORY^VAFCADT4
  1. . D ENTIRE^VAFCADT4(+NHCUPIVT)
  1. I +NHCUCHK>0 D BLDMSG^VAFCADT2(DFN,"A02",$P(TRANNODE,"^",1),"05",TRANSFER,+NHCUPIVT)
  1. D BLDMSG^VAFCADT2(DFN,"A01",$P(MEDNODE,"^",1),"05",MEDADMT,+MEDPIVT)
  1. Q
  1. ;
  1. 46(DFN) ;
  1. N NHCUADMT,NHCUNODE,NHCUPIVT,NHCUCHK,NHCUTRAN
  1. N MEDADMT,MEDNODE,MEDDIS,MEDPIVT,DISNODE
  1. S NHCUTRAN=$O(VAFH(2,0))
  1. S NHCUNODE=VAFH(2,NHCUTRAN,"A")
  1. S NHCUADMT=$P(VAFH(2,NHCUTRAN,"A"),"^",14)
  1. S NHCUCHK=$$PIVCHK^VAFHPIVT(DFN,$$ADMDATE^VAFCADT4(NHCUADMT),1,NHCUADMT_";DGPM(")
  1. S NHCUPIVT=$$PIVNW^VAFHPIVT(DFN,$$ADMDATE^VAFCADT4(NHCUADMT),1,NHCUADMT_";DGPM(")
  1. I +NHCUCHK'>0 D
  1. . K HISTORY
  1. . D BLDHIST^VAFCADT3(DFN,NHCUADMT,"HISTORY")
  1. . D:$D(VATRACE) HISTORY^VAFCADT4
  1. . D ENTIRE^VAFCADT4(+NHCUPIVT)
  1. I +NHCUCHK>0 D BLDMSG^VAFCADT2(DFN,"A02",$P(NHCUNODE,"^",1),"05",NHCUTRAN,+NHCUPIVT)
  1. S MEDADMT=$O(VAFH(1,0))
  1. S MEDNODE=VAFH(1,MEDADMT,"A")
  1. S MEDCHK=$$PIVCHK^VAFHPIVT(DFN,$P(MEDNODE,"^",1),1,MEDADMT_";DGPM(")
  1. S MEDDIS=$O(VAFH(3,0))
  1. S DISNODE=VAFH(3,MEDDIS,"A")
  1. S MEDPIVT=$$PIVNW^VAFHPIVT(DFN,$P(MEDNODE,"^",1),1,MEDADMT_";DGPM(")
  1. I +MEDCHK>0 D BLDMSG^VAFCADT2(DFN,"A03",$P(DISNODE,"^",1),"05",MEDDIS,+MEDPIVT)
  1. I +MEDCHK'>0 D
  1. . K HISTORY
  1. . D BLDHIST^VAFCADT3(DFN,MEDADMT,"HISTORY")
  1. . D:$D(VATRACE) HISTORY^VAFCADT4
  1. . D ENTIRE^VAFCADT4(+MEDPIVT)
  1. Q