- ACHSTXX ; IHS/ITSC/PMF - EXPORT DATA (1/9) ; [ 10/16/2001 8:16 AM ]
- ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
- ;
- ; This is the lead program of the export process. You
- ;start here whether you are exporting or REexporting
- ;
- ;Depending on which function you selected, the var ACHSREEX
- ;will be set to:
- ; 0 exporting
- ; 1 reexporting by batch
- ; 2 reexporting selected POs
- ;
- ;
- ;set up some special things FOR TESTING ONLY
- ;D ^ACHSPMF
- S ACHSREEX=0
- ;
- ;INIT some vars
- ;DO a series of checks, any of which may cause us to STOP
- ;
- ;if we don't stop, then
- ; FOR each transaction in the time period
- ; if an export record is called for, then
- ; create it
- ; end for
- ; OPEN the unix file
- ; FOR each export record created
- ; send it to the unix file
- ; record it in the database
- ; endfor
- ; PRINT the export report
- ;
- ;
- ;
- D INIT
- ;do the checks
- ;FOR TEST
- ;D ^ACHSTXCK I STOP D END Q
- ;get the list to export. go different ways depending on REEX
- I ACHSREEX=1 D ^ACHSTX1R
- I ACHSREEX=2 D ^ACHSTX2R
- I 'ACHSREEX D ^ACHSTX11
- ;
- ;for testing only
- ;W !!,"back from tx11 " R PMF
- ;
- ;now that the transactions are created, bring them all into one
- ;global and send them.
- ;
- D END
- Q
- ;
- END ;
- ;we've come to the end of the job. maybe we completed the
- ;export, maybe we didn't. The value in tag STOP will tell
- ;us.
- ;
- ;if stop is true, do special stuff
- I STOP D STOP
- ;now do the stuff we do if stop is true or not
- ;
- X:$D(ACHSPCC) ACHSPPC
- U IO(0)
- ;
- ;for test
- ;I $$DIR^XBDIR("E","Press RETURN...")
- I '$$LOCK^ACHS("^ACHSF(DUZ(2),""D"")","-")
- K %DT,ACHSCRTN,DA,DFN,DIC,DIE,DOLRH,DR,DUOUT,DX,DY,LIST,NUM
- K OK,RET,ROUT,STOP,TNUM,VNDEINSX,W,X,X1,XBDT,XBF,XBGL,XBTIT,Y,Z
- D EN^XBVK("ACHS"),^%ZISC,^ACHSVAR
- ;
- ;for test
- D ^ACHSR1
- Q
- ;
- STOP ;
- I STOP=1 W !,"User terminated this function - no export performed"
- I STOP=2 W !,"Register not closed"
- I STOP=3 W !,"Authorizing facility number invalid"
- I STOP=4 W !,"No data for facility"
- I STOP=5 W !,"DHR record not 80 chars"
- ;
- W !,"Abnormal end of function"
- ;
- ;any abnormal end means no export happened. this line
- ;cleans out the record of it.
- I $G(DOLRH)'="" K ^ACHSXPRT(DOLRH)
- ;
- Q
- ;
- INIT ;
- D ^ACHSVAR
- D ^ACHSUF
- D LINES^ACHSFU
- ;
- S ACHSYAYA="" F S ACHSYAYA=$O(^ACHSXPRT(ACHSYAYA)) Q:ACHSYAYA="" K ^ACHSXPRT(ACHSYAYA)
- K ACHSYAYA
- ;
- S STOP=0
- S ACHSRCT=0,ACHSCRTN=""
- S ACHSF638=($$PARM^ACHS(0,8)="Y")
- S DOLRH=$TR($H,",","_")
- K DUOUT,DTOUT
- Q
- ACHSTXX ; IHS/ITSC/PMF - EXPORT DATA (1/9) ; [ 10/16/2001 8:16 AM ]
- +1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;;JUN 11, 2001
- +2 ;
- +3 ; This is the lead program of the export process. You
- +4 ;start here whether you are exporting or REexporting
- +5 ;
- +6 ;Depending on which function you selected, the var ACHSREEX
- +7 ;will be set to:
- +8 ; 0 exporting
- +9 ; 1 reexporting by batch
- +10 ; 2 reexporting selected POs
- +11 ;
- +12 ;
- +13 ;set up some special things FOR TESTING ONLY
- +14 ;D ^ACHSPMF
- +15 SET ACHSREEX=0
- +16 ;
- +17 ;INIT some vars
- +18 ;DO a series of checks, any of which may cause us to STOP
- +19 ;
- +20 ;if we don't stop, then
- +21 ; FOR each transaction in the time period
- +22 ; if an export record is called for, then
- +23 ; create it
- +24 ; end for
- +25 ; OPEN the unix file
- +26 ; FOR each export record created
- +27 ; send it to the unix file
- +28 ; record it in the database
- +29 ; endfor
- +30 ; PRINT the export report
- +31 ;
- +32 ;
- +33 ;
- +34 DO INIT
- +35 ;do the checks
- +36 ;FOR TEST
- +37 ;D ^ACHSTXCK I STOP D END Q
- +38 ;get the list to export. go different ways depending on REEX
- +39 IF ACHSREEX=1
- DO ^ACHSTX1R
- +40 IF ACHSREEX=2
- DO ^ACHSTX2R
- +41 IF 'ACHSREEX
- DO ^ACHSTX11
- +42 ;
- +43 ;for testing only
- +44 ;W !!,"back from tx11 " R PMF
- +45 ;
- +46 ;now that the transactions are created, bring them all into one
- +47 ;global and send them.
- +48 ;
- +49 DO END
- +50 QUIT
- +51 ;
- END ;
- +1 ;we've come to the end of the job. maybe we completed the
- +2 ;export, maybe we didn't. The value in tag STOP will tell
- +3 ;us.
- +4 ;
- +5 ;if stop is true, do special stuff
- +6 IF STOP
- DO STOP
- +7 ;now do the stuff we do if stop is true or not
- +8 ;
- +9 IF $DATA(ACHSPCC)
- XECUTE ACHSPPC
- +10 USE IO(0)
- +11 ;
- +12 ;for test
- +13 ;I $$DIR^XBDIR("E","Press RETURN...")
- +14 IF '$$LOCK^ACHS("^ACHSF(DUZ(2),""D"")","-")
- +15 KILL %DT,ACHSCRTN,DA,DFN,DIC,DIE,DOLRH,DR,DUOUT,DX,DY,LIST,NUM
- +16 KILL OK,RET,ROUT,STOP,TNUM,VNDEINSX,W,X,X1,XBDT,XBF,XBGL,XBTIT,Y,Z
- +17 DO EN^XBVK("ACHS")
- DO ^%ZISC
- DO ^ACHSVAR
- +18 ;
- +19 ;for test
- +20 DO ^ACHSR1
- +21 QUIT
- +22 ;
- STOP ;
- +1 IF STOP=1
- WRITE !,"User terminated this function - no export performed"
- +2 IF STOP=2
- WRITE !,"Register not closed"
- +3 IF STOP=3
- WRITE !,"Authorizing facility number invalid"
- +4 IF STOP=4
- WRITE !,"No data for facility"
- +5 IF STOP=5
- WRITE !,"DHR record not 80 chars"
- +6 ;
- +7 WRITE !,"Abnormal end of function"
- +8 ;
- +9 ;any abnormal end means no export happened. this line
- +10 ;cleans out the record of it.
- +11 IF $GET(DOLRH)'=""
- KILL ^ACHSXPRT(DOLRH)
- +12 ;
- +13 QUIT
- +14 ;
- INIT ;
- +1 DO ^ACHSVAR
- +2 DO ^ACHSUF
- +3 DO LINES^ACHSFU
- +4 ;
- +5 SET ACHSYAYA=""
- FOR
- SET ACHSYAYA=$ORDER(^ACHSXPRT(ACHSYAYA))
- IF ACHSYAYA=""
- QUIT
- KILL ^ACHSXPRT(ACHSYAYA)
- +6 KILL ACHSYAYA
- +7 ;
- +8 SET STOP=0
- +9 SET ACHSRCT=0
- SET ACHSCRTN=""
- +10 SET ACHSF638=($$PARM^ACHS(0,8)="Y")
- +11 SET DOLRH=$TRANSLATE($HOROLOG,",","_")
- +12 KILL DUOUT,DTOUT
- +13 QUIT
