VAQPST24.m

VAQPST24 ;ALB/JRP - POST INIT (FILE CONVERSION);11-JUN-93

 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993

 ;

CNVRT ;COMPLETE FILE CONVERSION FOR LOCAL AND REMOTE REQUESTS

 ;CONTINUATION FOR REQUEST^VAQPST21 & PROCESS^VAQPST22

 ;  DECLARATIONS DONE IN CALLING ROUTINE

 S (PTR15,TRAN15)=0

 S TMP=$$NEWTRAN^VAQFILE

 I ($P(TMP,"^",1)="-1") S ERRCNT=ERRCNT+1 Q

 S PTR15=$P(TMP,"^",1)

 S TRAN15=$P(TMP,"^",2)

 ;TRANSFER INFO

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.02,STATUS)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.05,RELEASE)

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.07,"1.0")

 I (PATPTR'="") S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.03,("`"_PATPTR))

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,10,NAME)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,11,SSN)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,12,DOB)

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,13,PID)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,20,DATE)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,21,USER)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,30,SITE)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,31,DOMAIN)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,40,"NO")

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,60,REMOTE)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,61,RETURN)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.06,REMTRAN)

 I (TMP) D ERROR Q

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,70,"NO")

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,80,"PDX*MIN",.01,"PDX*MIN")

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,80,"PDX*MAS",.01,"PDX*MAS")

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,80,"PDX*MPL",.01,"PDX*MPL")

 S TMP=$$FILEINFO^VAQFILE(394.61,PTR15,90,"NO")

 Q

 ;

ERROR ;DELETE NEW TRANSACTION

 S ERRCNT=ERRCNT+1

 S TMP=$$DELTRAN^VAQFILE(PTR15)

 Q

 ;

 ;

DELETE(DEBUG) ;DELETE ENTRIES IN VERSION 1.0 FILES

 ;INPUT  : DEBUG - Turns on debug mode (info written to screen)

 ;           1 - Debug on

 ;           0 - Debug off (default)

 ;OUTPUT : NONE

 ;

 ;CHECK INPUT

 S DEBUG=+$G(DEBUG)

 ;DECLARE VARIABLES

 N TMP,FILE

 W:(DEBUG) !!!!

 W:(DEBUG) !,"**************************"

 W:(DEBUG) !,"*                        *"

 W:(DEBUG) !,"*  Deletion of Entries   *"

 W:(DEBUG) !,"*  In Version 1.0 Files  *"

 W:(DEBUG) !,"*                        *"

 W:(DEBUG) !,"**************************"

 W:(DEBUG) !!,"Beginning deletions",!,"  Time: ",$$NOW^VAQUTL99,!

 ;LOOP THROUGH ALL FILES & DELETE ENTRIES

 F FILE=394,394.1,394.2,394.3,394.4 D

 .W:(DEBUG) !!,"Deleting entries in file number ",FILE," ... "

 .;GET ZERO NODE FOR FILE

 .S TMP=$G(^VAT(FILE,0))

 .;UPDATE ZERO NODE

 .S $P(TMP,"^",3)=0

 .S $P(TMP,"^",4)=0

 .;DELETE ENTRIES

 .K ^VAT(FILE)

 .;RESET ZERO NODE

 .S ^VAT(FILE,0)=TMP

 .W:(DEBUG) "Done"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VAQPST24   2854     printed  Mar 13, 2025@21:31:01                                                                                                                                                                                                    Page 2

VAQPST24  ;ALB/JRP - POST INIT (FILE CONVERSION);11-JUN-93

 +1       ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993

 +2       ;

CNVRT     ;COMPLETE FILE CONVERSION FOR LOCAL AND REMOTE REQUESTS

 +1       ;CONTINUATION FOR REQUEST^VAQPST21 & PROCESS^VAQPST22

 +2       ;  DECLARATIONS DONE IN CALLING ROUTINE

 +3        SET (PTR15,TRAN15)=0

 +4        SET TMP=$$NEWTRAN^VAQFILE

 +5        IF ($PIECE(TMP,"^",1)="-1")

               SET ERRCNT=ERRCNT+1

               QUIT 

 +6        SET PTR15=$PIECE(TMP,"^",1)

 +7        SET TRAN15=$PIECE(TMP,"^",2)

 +8       ;TRANSFER INFO

 +9        SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.02,STATUS)

 +10       IF (TMP)

               DO ERROR

               QUIT 

 +11       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.05,RELEASE)

 +12       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.07,"1.0")

 +13       IF (PATPTR'="")

               SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.03,("`"_PATPTR))

 +14       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,10,NAME)

 +15       IF (TMP)

               DO ERROR

               QUIT 

 +16       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,11,SSN)

 +17       IF (TMP)

               DO ERROR

               QUIT 

 +18       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,12,DOB)

 +19       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,13,PID)

 +20       IF (TMP)

               DO ERROR

               QUIT 

 +21       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,20,DATE)

 +22       IF (TMP)

               DO ERROR

               QUIT 

 +23       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,21,USER)

 +24       IF (TMP)

               DO ERROR

               QUIT 

 +25       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,30,SITE)

 +26       IF (TMP)

               DO ERROR

               QUIT 

 +27       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,31,DOMAIN)

 +28       IF (TMP)

               DO ERROR

               QUIT 

 +29       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,40,"NO")

 +30       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,60,REMOTE)

 +31       IF (TMP)

               DO ERROR

               QUIT 

 +32       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,61,RETURN)

 +33       IF (TMP)

               DO ERROR

               QUIT 

 +34       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,.06,REMTRAN)

 +35       IF (TMP)

               DO ERROR

               QUIT 

 +36       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,70,"NO")

 +37       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,80,"PDX*MIN",.01,"PDX*MIN")

 +38       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,80,"PDX*MAS",.01,"PDX*MAS")

 +39       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,80,"PDX*MPL",.01,"PDX*MPL")

 +40       SET TMP=$$FILEINFO^VAQFILE(394.61,PTR15,90,"NO")

 +41       QUIT 

 +42      ;

ERROR     ;DELETE NEW TRANSACTION

 +1        SET ERRCNT=ERRCNT+1

 +2        SET TMP=$$DELTRAN^VAQFILE(PTR15)

 +3        QUIT 

 +4       ;

 +5       ;

DELETE(DEBUG) ;DELETE ENTRIES IN VERSION 1.0 FILES

 +1       ;INPUT  : DEBUG - Turns on debug mode (info written to screen)

 +2       ;           1 - Debug on

 +3       ;           0 - Debug off (default)

 +4       ;OUTPUT : NONE

 +5       ;

 +6       ;CHECK INPUT

 +7        SET DEBUG=+$GET(DEBUG)

 +8       ;DECLARE VARIABLES

 +9        NEW TMP,FILE

 +10       if (DEBUG)

               WRITE !!!!

 +11       if (DEBUG)

               WRITE !,"**************************"

 +12       if (DEBUG)

               WRITE !,"*                        *"

 +13       if (DEBUG)

               WRITE !,"*  Deletion of Entries   *"

 +14       if (DEBUG)

               WRITE !,"*  In Version 1.0 Files  *"

 +15       if (DEBUG)

               WRITE !,"*                        *"

 +16       if (DEBUG)

               WRITE !,"**************************"

 +17       if (DEBUG)

               WRITE !!,"Beginning deletions",!,"  Time: ",$$NOW^VAQUTL99,!

 +18      ;LOOP THROUGH ALL FILES & DELETE ENTRIES

 +19       FOR FILE=394,394.1,394.2,394.3,394.4

               Begin DoDot:1

 +20               if (DEBUG)

                       WRITE !!,"Deleting entries in file number ",FILE," ... "

 +21      ;GET ZERO NODE FOR FILE

 +22               SET TMP=$GET(^VAT(FILE,0))

 +23      ;UPDATE ZERO NODE

 +24               SET $PIECE(TMP,"^",3)=0

 +25               SET $PIECE(TMP,"^",4)=0

 +26      ;DELETE ENTRIES

 +27               KILL ^VAT(FILE)

 +28      ;RESET ZERO NODE

 +29               SET ^VAT(FILE,0)=TMP

 +30               if (DEBUG)

                       WRITE "Done"

               End DoDot:1

 +31       QUIT