- TIUPNCV1 ;SLC/DJP-SF/JLI ;11/24/97 14:31
- ;;1.0;TEXT INTEGRATION UTILITIES;**9**;Jun 20, 1997
- SETFIELD ;Sets fields for copy into TIU Document File
- D VISIT,SIGVAR,COSVAR,ADDENDA,FIELDS
- Q
- ;
- VISIT ;Sets Visit Tracking data elements
- N DFN,VDT,TIUVSIT
- S DFN=TIU(.02),VDT=TIU(1301)
- D PXAPI^TIUPXAP1(.TIUVSIT,DFN,"",VDT,"E")
- I +$G(TIUVSIT)'>0 S PROBLEM="Progress Note - IFN "_GMRPIFN_": Unable to create Visit Tracking entry based on entry date." D ERRORLOG^TIUPNCV3 K PROBLEM Q
- S TIU(.03)=+$G(TIUVSIT)
- Q
- ;
- FIELDS ;Individual fields, such as S-O-A-P, are converted as a single document
- S CNT1=0,CNT2=0,RENUM=0
- F GMRPFLD=10,20,21,22,23,30,32,33,34,40,41,42,43,44,45,46,47,48,8 I $D(^GMR(121,GMRPIFN,GMRPFLD)) D WHATSIT^TIUPNCV2
- I RENUM=1 D RENUM^TIUPNCV2 K RENUM
- Q
- ;
- SIGVAR ;Sets additional variables for signature block --
- ;.05 STATUS
- ;1503 SIGNATURE BLOCK NAME
- ;1504 SIGNATURE BLOCK TITLE
- ;1505 SIGNATURE BLOCK MODE
- I TIU(1502)="",TIU("SIGCHART")="" S TIUSTAT="UNSIGNED",TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT),TIU(1505)="" K TIUSTAT Q
- S:TIU("SIGCHART")'="" TIU(1502)=TIU(1512)
- S DR=$G(^VA(200,TIU(1502),20)),TIU(1503)=$P(DR,U,2)
- S TIU(1504)=$P(DR,U,3),TIU(1505)=$S(TIU(1512)="":"E",1:"")
- S TIUSTAT="COMPLETED",TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT)
- I TIU(1512)'="" S TIUSTAT="COMPLETED",TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT),TIU(1505)="C"
- K DIC,X,Y,DIQ,DR,TIUSTAT,DA Q
- ;
- COSVAR ;Sets required variables for cosignature block
- ;.05 STATUS
- ;1509 COSIGNATURE BLOCK NAME
- ;1510 COSIGNATURE BLOCK TITLE
- ;1511 COSIGNATURE BLOCK MODE
- S TIU(1511)="" I TIU(1506)="",TIU(1508)="",TIU("COSCHART")="" Q
- I TIU(1508)="",TIU("COSCHART")="" Q:TIU(1502)=""&(TIU("SIGCHART")="") S TIUSTAT="UNCOSIGNED",TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT),TIU(1208)=$G(TIUECS) K TIUSTAT Q
- S:TIU("COSCHART")'="" TIU(1508)=TIU(1513)
- S DR=$G(^VA(200,TIU(1508),20)),TIU(1509)=$P(DR,U,2)
- S TIU(1510)=$P(DR,U,3),TIU(1511)=$S(TIU(1513)="":"E",1:"")
- S TIUSTAT="COMPLETED",TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT)
- I TIU(1513)'="" S TIUSTAT="COMPLETED",TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT),TIU(1511)="C"
- K DIC,X,Y,DIQ,DR,TIUSTAT,DA Q
- ;
- ADDENDA ;sets the Parent variable for notes that are addenda - .06 PARENT
- Q:TIU("PARENT")=""
- S PARENT=$G(^GMR(121,GMRPIFN,100))
- S TIU("PARENT")=$G(^GMR(121,"CNV",PARENT))
- S TIUNEWTY=+$$WHATITLE^TIUPUTU("ADDENDUM")
- S TIU(.04)=$$DOCCLASS^TIULC1(TIUNEWTY)
- Q
- TIUPNCV1 ;SLC/DJP-SF/JLI ;11/24/97 14:31
- +1 ;;1.0;TEXT INTEGRATION UTILITIES;**9**;Jun 20, 1997
- SETFIELD ;Sets fields for copy into TIU Document File
- +1 DO VISIT
- DO SIGVAR
- DO COSVAR
- DO ADDENDA
- DO FIELDS
- +2 QUIT
- +3 ;
- VISIT ;Sets Visit Tracking data elements
- +1 NEW DFN,VDT,TIUVSIT
- +2 SET DFN=TIU(.02)
- SET VDT=TIU(1301)
- +3 DO PXAPI^TIUPXAP1(.TIUVSIT,DFN,"",VDT,"E")
- +4 IF +$GET(TIUVSIT)'>0
- SET PROBLEM="Progress Note - IFN "_GMRPIFN_": Unable to create Visit Tracking entry based on entry date."
- DO ERRORLOG^TIUPNCV3
- KILL PROBLEM
- QUIT
- +5 SET TIU(.03)=+$GET(TIUVSIT)
- +6 QUIT
- +7 ;
- FIELDS ;Individual fields, such as S-O-A-P, are converted as a single document
- +1 SET CNT1=0
- SET CNT2=0
- SET RENUM=0
- +2 FOR GMRPFLD=10,20,21,22,23,30,32,33,34,40,41,42,43,44,45,46,47,48,8
- IF $DATA(^GMR(121,GMRPIFN,GMRPFLD))
- DO WHATSIT^TIUPNCV2
- +3 IF RENUM=1
- DO RENUM^TIUPNCV2
- KILL RENUM
- +4 QUIT
- +5 ;
- SIGVAR ;Sets additional variables for signature block --
- +1 ;.05 STATUS
- +2 ;1503 SIGNATURE BLOCK NAME
- +3 ;1504 SIGNATURE BLOCK TITLE
- +4 ;1505 SIGNATURE BLOCK MODE
- +5 IF TIU(1502)=""
- IF TIU("SIGCHART")=""
- SET TIUSTAT="UNSIGNED"
- SET TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT)
- SET TIU(1505)=""
- KILL TIUSTAT
- QUIT
- +6 IF TIU("SIGCHART")'=""
- SET TIU(1502)=TIU(1512)
- +7 SET DR=$GET(^VA(200,TIU(1502),20))
- SET TIU(1503)=$PIECE(DR,U,2)
- +8 SET TIU(1504)=$PIECE(DR,U,3)
- SET TIU(1505)=$SELECT(TIU(1512)="":"E",1:"")
- +9 SET TIUSTAT="COMPLETED"
- SET TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT)
- +10 IF TIU(1512)'=""
- SET TIUSTAT="COMPLETED"
- SET TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT)
- SET TIU(1505)="C"
- +11 KILL DIC,X,Y,DIQ,DR,TIUSTAT,DA
- QUIT
- +12 ;
- COSVAR ;Sets required variables for cosignature block
- +1 ;.05 STATUS
- +2 ;1509 COSIGNATURE BLOCK NAME
- +3 ;1510 COSIGNATURE BLOCK TITLE
- +4 ;1511 COSIGNATURE BLOCK MODE
- +5 SET TIU(1511)=""
- IF TIU(1506)=""
- IF TIU(1508)=""
- IF TIU("COSCHART")=""
- QUIT
- +6 IF TIU(1508)=""
- IF TIU("COSCHART")=""
- IF TIU(1502)=""&(TIU("SIGCHART")="")
- QUIT
- SET TIUSTAT="UNCOSIGNED"
- SET TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT)
- SET TIU(1208)=$GET(TIUECS)
- KILL TIUSTAT
- QUIT
- +7 IF TIU("COSCHART")'=""
- SET TIU(1508)=TIU(1513)
- +8 SET DR=$GET(^VA(200,TIU(1508),20))
- SET TIU(1509)=$PIECE(DR,U,2)
- +9 SET TIU(1510)=$PIECE(DR,U,3)
- SET TIU(1511)=$SELECT(TIU(1513)="":"E",1:"")
- +10 SET TIUSTAT="COMPLETED"
- SET TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT)
- +11 IF TIU(1513)'=""
- SET TIUSTAT="COMPLETED"
- SET TIU(.05)=$$STATUS^TIUPNCV3(TIUSTAT)
- SET TIU(1511)="C"
- +12 KILL DIC,X,Y,DIQ,DR,TIUSTAT,DA
- QUIT
- +13 ;
- ADDENDA ;sets the Parent variable for notes that are addenda - .06 PARENT
- +1 IF TIU("PARENT")=""
- QUIT
- +2 SET PARENT=$GET(^GMR(121,GMRPIFN,100))
- +3 SET TIU("PARENT")=$GET(^GMR(121,"CNV",PARENT))
- +4 SET TIUNEWTY=+$$WHATITLE^TIUPUTU("ADDENDUM")
- +5 SET TIU(.04)=$$DOCCLASS^TIULC1(TIUNEWTY)
- +6 QUIT
