VENPCC25 ; IHS/OIT/GIS - FACILITY PRINT DEAMON ;
;;2.6;PCC+;;NOV 12, 2007
;
; NEW DATA FILE UTILITIES
; WORKS WITH VER 2.5 PRINT SERVICE
;
INIT ; EP - DIRVER
N MN F MN="ef","25","pn","hs" D POP(MN)
Q
;
POP(MN) ; EP-POPULATE THE NEW HEADER FILE
N STG,PATH,FILE,POP,REC,DIC,DA,X,Y,LEN,PCE
S PATH=$G(^VEN(7.5,$$CFG^VENPCCU,2)) I '$L(PATH) Q
S FILE=MN_"HEADER.TXT"
S DIC="^VEN(7.49,",DIC(0)="L"
S X=MN,DLAYGO=19707.49
D ^DIC I Y=-1 Q
S DA(1)=+Y S DIC=DIC_DA(1)_",1,"
S DIC(0)="LX" S DIC("P")=19707.491
S POP=$$OPN^VENPCCP(PATH,FILE,"R","R REC")
S LEN=$L(REC,U)
F PCE=1:1:LEN S X=$P(REC,U,PCE) D ^DIC
Q
;
DOLD(FILE) ; EP-CONVERT A VER 2.5 DATA FILE TO A TRADITIONAL DATA FILE
I '$L($G(FILE)) Q
N PATH,REC,X,Y,ZPCE,STG1,STG2,POP
S PATH=$G(^VEN(7.5,$$CFG^VENPCCU,1)) I '$L(PATH) Q
S POP=$$OPN^VENPCCP(PATH,FILE,"R","R REC") I POP Q
I '$L(REC) Q
S L=$L(REC,U),STG1="",STG2=""
F PCE=1:1:L D
. S X=$P(REC,U,PCE)
. S Y=$P(X,$C(30))
. S Z=$P(X,$C(30),2)
. I PCE>1 S STG1=STG1_U
. S STG1=STG1_Y
. I PCE>1 S STG2=STG2_U
. S STG2=STG2_Z
. Q
S POP=$$OPN^VENPCCP(PATH,FILE,"W","W STG1,!,STG2")
Q
;
HOLD(MN) ; EP-CREATE A TRADITIONAL HEADER FILE FROM THE CONTENTS OF VEN EHP HEADER GROUP
I '$L(MN) Q
N FILE,PATH,HFIEN,POP
S FILE=MN_"header.txt"
S PATH=$G(^VEN(7.5,$$CFG^VENPCCU,2)) I '$L(PATH) Q
S POP=$$OPN^VENPCCP(PATH,FILE,"W","D HPOP^VENPCC25(MN)") I POP Q
D CONVERT^VENPCCU(MN,2) ; ALSO CREAT THE PRINT SERVER HEADER FILE
Q
;
HPOP(MN) ; EP-POPULATE THE HEADER FILE
I '$L(MN) Q
N HFIEN,MMF,CNT,MIEN
S HFIEN=$O(^VEN(7.49,"B",MN,0)) I 'HFIEN Q
S CNT=0,MIEN=0
F S MIEN=$O(^VEN(7.49,HFIEN,1,MIEN)) Q:'MIEN D
. S MMF=$P($G(^VEN(7.49,HFIEN,1,MIEN,0)),U)
. S CNT=CNT+1
. I CNT>1 W U
. W MMF
. Q
Q
DEMODATA ; EP-CREATE A DEMO DATA FILE FOR BUILDING PCC+ TEMPLATES ; FOR VER 2.5 AND WIN XP
N DIR,DA,DEMODATA,REC,PATH,FILE,POP,DLM,X,HDR,HIEN,HGIEN,%
S DIR(0)="FO^1:20",DIR("A")="Name of test data file"
S DIR("?")="Example: 'eftest'. No file extension reqd." D ^DIR
I Y'?2.20AN G DDX
S DEMODATA=Y
D DEMODATA^VENPCC
S FILE=DEMODATA_".txt"
S PATH=$G(^VEN(7.5,$$CFG^VENPCCU,3)) I '$L(PATH) G DDX
S POP=$$OPN^VENPCCP(PATH,FILE,"R","R REC")
I POP W !,"Unable to generate test file. Request cancelled..." G DDX
S DLM="",X=$L(REC,U)
S $P(DLM,U,X)=""
S HGIEN=$O(^VEN(7.49,"B","25",0)) I 'HGIEN G DDX
S HDR="",HIEN=0
F S HIEN=$O(^VEN(7.49,HGIEN,1,HIEN)) Q:'HIEN D
. S %=$G(^VEN(7.49,HGIEN,1,HIEN,0))
. I $L(HDR) S HDR=HDR_U
. S HDR=HDR_%
. Q
DDF S POP=$$OPN^VENPCCP(PATH,FILE,"W","W HDR,!,REC,!,DLM")
DDX D ^XBFMK
Q
;
VENPCC25 ; IHS/OIT/GIS - FACILITY PRINT DEAMON ;
+1 ;;2.6;PCC+;;NOV 12, 2007
+2 ;
+3 ; NEW DATA FILE UTILITIES
+4 ; WORKS WITH VER 2.5 PRINT SERVICE
+5 ;
INIT ; EP - DIRVER
+1 NEW MN
FOR MN="ef","25","pn","hs"
DO POP(MN)
+2 QUIT
+3 ;
POP(MN) ; EP-POPULATE THE NEW HEADER FILE
+1 NEW STG,PATH,FILE,POP,REC,DIC,DA,X,Y,LEN,PCE
+2 SET PATH=$GET(^VEN(7.5,$$CFG^VENPCCU,2))
IF '$LENGTH(PATH)
QUIT
+3 SET FILE=MN_"HEADER.TXT"
+4 SET DIC="^VEN(7.49,"
SET DIC(0)="L"
+5 SET X=MN
SET DLAYGO=19707.49
+6 DO ^DIC
IF Y=-1
QUIT
+7 SET DA(1)=+Y
SET DIC=DIC_DA(1)_",1,"
+8 SET DIC(0)="LX"
SET DIC("P")=19707.491
+9 SET POP=$$OPN^VENPCCP(PATH,FILE,"R","R REC")
+10 SET LEN=$LENGTH(REC,U)
+11 FOR PCE=1:1:LEN
SET X=$PIECE(REC,U,PCE)
DO ^DIC
+12 QUIT
+13 ;
DOLD(FILE) ; EP-CONVERT A VER 2.5 DATA FILE TO A TRADITIONAL DATA FILE
+1 IF '$LENGTH($GET(FILE))
QUIT
+2 NEW PATH,REC,X,Y,ZPCE,STG1,STG2,POP
+3 SET PATH=$GET(^VEN(7.5,$$CFG^VENPCCU,1))
IF '$LENGTH(PATH)
QUIT
+4 SET POP=$$OPN^VENPCCP(PATH,FILE,"R","R REC")
IF POP
QUIT
+5 IF '$LENGTH(REC)
QUIT
+6 SET L=$LENGTH(REC,U)
SET STG1=""
SET STG2=""
+7 FOR PCE=1:1:L
Begin DoDot:1
+8 SET X=$PIECE(REC,U,PCE)
+9 SET Y=$PIECE(X,$CHAR(30))
+10 SET Z=$PIECE(X,$CHAR(30),2)
+11 IF PCE>1
SET STG1=STG1_U
+12 SET STG1=STG1_Y
+13 IF PCE>1
SET STG2=STG2_U
+14 SET STG2=STG2_Z
+15 QUIT
End DoDot:1
+16 SET POP=$$OPN^VENPCCP(PATH,FILE,"W","W STG1,!,STG2")
+17 QUIT
+18 ;
HOLD(MN) ; EP-CREATE A TRADITIONAL HEADER FILE FROM THE CONTENTS OF VEN EHP HEADER GROUP
+1 IF '$LENGTH(MN)
QUIT
+2 NEW FILE,PATH,HFIEN,POP
+3 SET FILE=MN_"header.txt"
+4 SET PATH=$GET(^VEN(7.5,$$CFG^VENPCCU,2))
IF '$LENGTH(PATH)
QUIT
+5 SET POP=$$OPN^VENPCCP(PATH,FILE,"W","D HPOP^VENPCC25(MN)")
IF POP
QUIT
+6 ; ALSO CREAT THE PRINT SERVER HEADER FILE
DO CONVERT^VENPCCU(MN,2)
+7 QUIT
+8 ;
HPOP(MN) ; EP-POPULATE THE HEADER FILE
+1 IF '$LENGTH(MN)
QUIT
+2 NEW HFIEN,MMF,CNT,MIEN
+3 SET HFIEN=$ORDER(^VEN(7.49,"B",MN,0))
IF 'HFIEN
QUIT
+4 SET CNT=0
SET MIEN=0
+5 FOR
SET MIEN=$ORDER(^VEN(7.49,HFIEN,1,MIEN))
IF 'MIEN
QUIT
Begin DoDot:1
+6 SET MMF=$PIECE($GET(^VEN(7.49,HFIEN,1,MIEN,0)),U)
+7 SET CNT=CNT+1
+8 IF CNT>1
WRITE U
+9 WRITE MMF
+10 QUIT
End DoDot:1
+11 QUIT
DEMODATA ; EP-CREATE A DEMO DATA FILE FOR BUILDING PCC+ TEMPLATES ; FOR VER 2.5 AND WIN XP
+1 NEW DIR,DA,DEMODATA,REC,PATH,FILE,POP,DLM,X,HDR,HIEN,HGIEN,%
+2 SET DIR(0)="FO^1:20"
SET DIR("A")="Name of test data file"
+3 SET DIR("?")="Example: 'eftest'. No file extension reqd."
DO ^DIR
+4 IF Y'?2.20AN
GOTO DDX
+5 SET DEMODATA=Y
+6 DO DEMODATA^VENPCC
+7 SET FILE=DEMODATA_".txt"
+8 SET PATH=$GET(^VEN(7.5,$$CFG^VENPCCU,3))
IF '$LENGTH(PATH)
GOTO DDX
+9 SET POP=$$OPN^VENPCCP(PATH,FILE,"R","R REC")
+10 IF POP
WRITE !,"Unable to generate test file. Request cancelled..."
GOTO DDX
+11 SET DLM=""
SET X=$LENGTH(REC,U)
+12 SET $PIECE(DLM,U,X)=""
+13 SET HGIEN=$ORDER(^VEN(7.49,"B","25",0))
IF 'HGIEN
GOTO DDX
+14 SET HDR=""
SET HIEN=0
+15 FOR
SET HIEN=$ORDER(^VEN(7.49,HGIEN,1,HIEN))
IF 'HIEN
QUIT
Begin DoDot:1
+16 SET %=$GET(^VEN(7.49,HGIEN,1,HIEN,0))
+17 IF $LENGTH(HDR)
SET HDR=HDR_U
+18 SET HDR=HDR_%
+19 QUIT
End DoDot:1
DDF SET POP=$$OPN^VENPCCP(PATH,FILE,"W","W HDR,!,REC,!,DLM")
DDX DO ^XBFMK
+1 QUIT
+2 ;
