- ABSPOS6M ; IHS/FCS/DRS - Print log of claim ;
- ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001
- Q
- CLAIMLOG(RXI,DEST) ;EP - from ABSPOS6D
- ;
- ; optional parameters: prescription #
- ; and destination device (already opened)
- ; Prompts for any missing parameters.
- ;
- ; Note that it will give you only the most recent transmit/receive
- ; If there have been retransmissions, DO ^%GSE for claim number,
- ; and print the entire log file. The purpose of this part is to
- ; show when the successful I/O or last failed I/O occurred.
- ;
- I '$D(RXI) S RXI=$$GETRX^ABSPOSIV Q:RXI<1
- I $D(DEST) S IO=DEST
- E D ^%ZIS I $G(POP) Q
- U IO W "Pharmacy POS Log of activity for one prescription",!
- N REC,X,X1,X2 M REC=^ABSPT(RXI)
- N I F I=0:1:2 I '$D(REC(I)) S REC(I)=""
- W "Prescription #",$P(^ABSPT(RXI,1),U,11) ;$G(^PSRX(RXI,0)),U)
- S X=$P(REC(1),U) I X W " Refill #",X
- W " (RXI=",RXI,")"
- W !
- W "Patient: "
- S X=$P(REC(0),U,6) I X]"" S X=$P($G(^DPT(X,0)),U) W X
- W ?50,"Visit: "
- S X=$P(REC(0),U,7) I X]"" S X=$G(^AUPNVSIT(X,"VCN")) W X
- W !
- W "Status: "
- S X=$P(REC(0),U,2) W:X'=99 "Q" W X,":",$$STATI^ABSPOSU(X),!
- I X=99 D W !
- .D DISPRESP^ABSPOSUA
- .;W "Result: ",$$RESULTI^ABSPOSU($P(REC(2),U))
- .;S X=$P(REC(2),U,2,$L(REC(2),U)) I X]"" W " - ",X
- W "Submitted on " S X1=$P(REC(0),U,11) I X1]"" W $$DATETIME^ABSPOSUD(X1),!
- W " Last activity @" S X2=$P(REC(0),U,8) I X2]"" D
- .W $P($$DATETIME^ABSPOSUD(X2),"@",2)
- I X1]"",X2]"" W " Elapsed time: " W $$TIMEDIF^ABSPOSUD(X1,X2)
- W !
- S X=$P(REC(0),U,4)
- I X="" W "No entry "
- E W "See also entry `",X
- S X1=9002313.02 W " in file #",X1,", ",$P(^DIC(X1,0),U),!
- I X]"" D
- .S X=$P(REC(0),U,5)
- .I X="" W "but there is no entry "
- .E W " and entry `",X
- S X1=9002313.03 W " in file #",X1,", ",$P(^DIC(X1,0),U),!
- W !
- W "Log of this claim's activity: ",!
- I $$EXISTS^ABSPOSL(RXI) D
- . D PRESSANY^ABSPOSU5()
- . D PRINTLOG^ABSPOSL(RXI)
- E W "Log file for ",RXI," is not on file.",!
- S X=$P(REC(0),U,12),X1=$P(REC(0),U,4) ; X=where,X1=claim #
- I X,X1 D
- .D PRESSANY^ABSPOSU5() ; now that you've seen end of claim log
- .W !,"Log of transmission, "
- .W "in log file #",$P(X,",")," at line #",$P(X,",",2),":",!
- .D PRCLLOG^ABSPOSL(X,X1) ;
- ;D PRESSANY^ABSPOSU5()
- ;I IO=$P D ; printout to screen
- ;D PRESSANY^ABSPOSU5() ; press any key to continue
- I '$D(DEST) D ^%ZISC ; we opened the device so we close it
- ;E caller opened the device, and the caller should close it.
- CZ Q
- ABSPOS6M ; IHS/FCS/DRS - Print log of claim ;
- +1 ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001
- +2 QUIT
- CLAIMLOG(RXI,DEST) ;EP - from ABSPOS6D
- +1 ;
- +2 ; optional parameters: prescription #
- +3 ; and destination device (already opened)
- +4 ; Prompts for any missing parameters.
- +5 ;
- +6 ; Note that it will give you only the most recent transmit/receive
- +7 ; If there have been retransmissions, DO ^%GSE for claim number,
- +8 ; and print the entire log file. The purpose of this part is to
- +9 ; show when the successful I/O or last failed I/O occurred.
- +10 ;
- +11 IF '$DATA(RXI)
- SET RXI=$$GETRX^ABSPOSIV
- IF RXI<1
- QUIT
- +12 IF $DATA(DEST)
- SET IO=DEST
- +13 IF '$TEST
- DO ^%ZIS
- IF $GET(POP)
- QUIT
- +14 USE IO
- WRITE "Pharmacy POS Log of activity for one prescription",!
- +15 NEW REC,X,X1,X2
- MERGE REC=^ABSPT(RXI)
- +16 NEW I
- FOR I=0:1:2
- IF '$DATA(REC(I))
- SET REC(I)=""
- +17 ;$G(^PSRX(RXI,0)),U)
- WRITE "Prescription #",$PIECE(^ABSPT(RXI,1),U,11)
- +18 SET X=$PIECE(REC(1),U)
- IF X
- WRITE " Refill #",X
- +19 WRITE " (RXI=",RXI,")"
- +20 WRITE !
- +21 WRITE "Patient: "
- +22 SET X=$PIECE(REC(0),U,6)
- IF X]""
- SET X=$PIECE($GET(^DPT(X,0)),U)
- WRITE X
- +23 WRITE ?50,"Visit: "
- +24 SET X=$PIECE(REC(0),U,7)
- IF X]""
- SET X=$GET(^AUPNVSIT(X,"VCN"))
- WRITE X
- +25 WRITE !
- +26 WRITE "Status: "
- +27 SET X=$PIECE(REC(0),U,2)
- IF X'=99
- WRITE "Q"
- WRITE X,":",$$STATI^ABSPOSU(X),!
- +28 IF X=99
- Begin DoDot:1
- +29 DO DISPRESP^ABSPOSUA
- +30 ;W "Result: ",$$RESULTI^ABSPOSU($P(REC(2),U))
- +31 ;S X=$P(REC(2),U,2,$L(REC(2),U)) I X]"" W " - ",X
- End DoDot:1
- WRITE !
- +32 WRITE "Submitted on "
- SET X1=$PIECE(REC(0),U,11)
- IF X1]""
- WRITE $$DATETIME^ABSPOSUD(X1),!
- +33 WRITE " Last activity @"
- SET X2=$PIECE(REC(0),U,8)
- IF X2]""
- Begin DoDot:1
- +34 WRITE $PIECE($$DATETIME^ABSPOSUD(X2),"@",2)
- End DoDot:1
- +35 IF X1]""
- IF X2]""
- WRITE " Elapsed time: "
- WRITE $$TIMEDIF^ABSPOSUD(X1,X2)
- +36 WRITE !
- +37 SET X=$PIECE(REC(0),U,4)
- +38 IF X=""
- WRITE "No entry "
- +39 IF '$TEST
- WRITE "See also entry `",X
- +40 SET X1=9002313.02
- WRITE " in file #",X1,", ",$PIECE(^DIC(X1,0),U),!
- +41 IF X]""
- Begin DoDot:1
- +42 SET X=$PIECE(REC(0),U,5)
- +43 IF X=""
- WRITE "but there is no entry "
- +44 IF '$TEST
- WRITE " and entry `",X
- End DoDot:1
- +45 SET X1=9002313.03
- WRITE " in file #",X1,", ",$PIECE(^DIC(X1,0),U),!
- +46 WRITE !
- +47 WRITE "Log of this claim's activity: ",!
- +48 IF $$EXISTS^ABSPOSL(RXI)
- Begin DoDot:1
- +49 DO PRESSANY^ABSPOSU5()
- +50 DO PRINTLOG^ABSPOSL(RXI)
- End DoDot:1
- +51 IF '$TEST
- WRITE "Log file for ",RXI," is not on file.",!
- +52 ; X=where,X1=claim #
- SET X=$PIECE(REC(0),U,12)
- SET X1=$PIECE(REC(0),U,4)
- +53 IF X
- IF X1
- Begin DoDot:1
- +54 ; now that you've seen end of claim log
- DO PRESSANY^ABSPOSU5()
- +55 WRITE !,"Log of transmission, "
- +56 WRITE "in log file #",$PIECE(X,",")," at line #",$PIECE(X,",",2),":",!
- +57 ;
- DO PRCLLOG^ABSPOSL(X,X1)
- End DoDot:1
- +58 ;D PRESSANY^ABSPOSU5()
- +59 ;I IO=$P D ; printout to screen
- +60 ;D PRESSANY^ABSPOSU5() ; press any key to continue
- +61 ; we opened the device so we close it
- IF '$DATA(DEST)
- DO ^%ZISC
- +62 ;E caller opened the device, and the caller should close it.
- CZ QUIT
