IVMCUPL.m

IVMCUPL ;ALB/KCL - INCOME TEST UPLOAD UTILITIES ; 04-MAY-98

 ;;2.0;INCOME VERIFICATION MATCH;**17**;21-OCT-94

 ;

 ;

GETLOCKS(DFN) ;

 ; Description: Locks first the income test upload, then the local

 ; income test. Used to synchronize the income test upload with

 ; local income test options.

 ;

 ;  Input: DFN - ien of record in PATIENT file

 ; Output: none

 ;

 N COUNT

 F COUNT=1:1:720 Q:$$BEGUPLD(DFN)

 F COUNT=1:1:720 Q:$$LOCK^DGMTUTL(DFN)

 Q

 ;

 ;

RELLOCKS(DFN) ;

 ; Description: Release the locks obtained by GETLOCKS().

 ; Used to synchronize the income test upload with local income

 ; test options.

 ;

 ;  Input: DFN - ien of record in PATIENT file

 ; Output: none

 ;

 D ENDUPLD(DFN)

 D UNLOCK^DGMTUTL(DFN)

 Q

 ;

 ;

BEGUPLD(DFN) ;

 ; Description: Sets a lock used to determine if an income test upload

 ; is in progress. 

 ;

 ;  Input:

 ;    DFN - ien of record in PATIENT file

 ;

 ; Output:

 ;   Function value - returns 1 if the lock was obtained, 0 otherwise.

 ;

 Q:'$G(DFN) 1

 L +^IVM("INCOME TEST UPLOAD",DFN):5

 Q $T

 ;

 ;

ENDUPLD(DFN) ;

 ; Description: Release the lock obtained by calling $$BEGUPLD(DFN).

 ;

 ;  Input: DFN - ien of record in PATIENT file

 ; Output: none

 ;

 Q:'$G(DFN)

 L -^IVM("INCOME TEST UPLOAD",DFN)

 Q

 ;

 ;

CKUPLOAD(DFN) ;

 ; Description: Checks if an income test upload is in progress.  If so,

 ; it pauses until it is completed.  If the lock is not obtained

 ; initially, it is assumed that the upload is in progress, and a

 ; message is displayed to the user.

 ;

 ;  Input: DFN - ien of record in PATIENT file

 ; Output: none

 ;

 N I

 I '$$BEGUPLD(DFN) D

 .W !!,"Upload of income test is in progress ..."

 .F I=1:1:60 Q:$$BEGUPLD(DFN)  W "."

 .W !,"Upload of income test completed.",!

 D ENDUPLD(DFN)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IVMCUPL   1820     printed  Feb 18, 2025@23:27:15                                                                                                                                                                                                     Page 2

IVMCUPL   ;ALB/KCL - INCOME TEST UPLOAD UTILITIES ; 04-MAY-98

 +1       ;;2.0;INCOME VERIFICATION MATCH;**17**;21-OCT-94

 +2       ;

 +3       ;

GETLOCKS(DFN) ;

 +1       ; Description: Locks first the income test upload, then the local

 +2       ; income test. Used to synchronize the income test upload with

 +3       ; local income test options.

 +4       ;

 +5       ;  Input: DFN - ien of record in PATIENT file

 +6       ; Output: none

 +7       ;

 +8        NEW COUNT

 +9        FOR COUNT=1:1:720

               if $$BEGUPLD(DFN)

                   QUIT 

 +10       FOR COUNT=1:1:720

               if $$LOCK^DGMTUTL(DFN)

                   QUIT 

 +11       QUIT 

 +12      ;

 +13      ;

RELLOCKS(DFN) ;

 +1       ; Description: Release the locks obtained by GETLOCKS().

 +2       ; Used to synchronize the income test upload with local income

 +3       ; test options.

 +4       ;

 +5       ;  Input: DFN - ien of record in PATIENT file

 +6       ; Output: none

 +7       ;

 +8        DO ENDUPLD(DFN)

 +9        DO UNLOCK^DGMTUTL(DFN)

 +10       QUIT 

 +11      ;

 +12      ;

BEGUPLD(DFN) ;

 +1       ; Description: Sets a lock used to determine if an income test upload

 +2       ; is in progress. 

 +3       ;

 +4       ;  Input:

 +5       ;    DFN - ien of record in PATIENT file

 +6       ;

 +7       ; Output:

 +8       ;   Function value - returns 1 if the lock was obtained, 0 otherwise.

 +9       ;

 +10       if '$GET(DFN)

               QUIT 1

 +11       LOCK +^IVM("INCOME TEST UPLOAD",DFN):5

 +12       QUIT $TEST

 +13      ;

 +14      ;

ENDUPLD(DFN) ;

 +1       ; Description: Release the lock obtained by calling $$BEGUPLD(DFN).

 +2       ;

 +3       ;  Input: DFN - ien of record in PATIENT file

 +4       ; Output: none

 +5       ;

 +6        if '$GET(DFN)

               QUIT 

 +7        LOCK -^IVM("INCOME TEST UPLOAD",DFN)

 +8        QUIT 

 +9       ;

 +10      ;

CKUPLOAD(DFN) ;

 +1       ; Description: Checks if an income test upload is in progress.  If so,

 +2       ; it pauses until it is completed.  If the lock is not obtained

 +3       ; initially, it is assumed that the upload is in progress, and a

 +4       ; message is displayed to the user.

 +5       ;

 +6       ;  Input: DFN - ien of record in PATIENT file

 +7       ; Output: none

 +8       ;

 +9        NEW I

 +10       IF '$$BEGUPLD(DFN)

               Begin DoDot:1

 +11               WRITE !!,"Upload of income test is in progress ..."

 +12               FOR I=1:1:60

                       if $$BEGUPLD(DFN)

                           QUIT 

                       WRITE "."

 +13               WRITE !,"Upload of income test completed.",!

               End DoDot:1

 +14       DO ENDUPLD(DFN)

 +15       QUIT