Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABSPOSC3

ABSPOSC3.m

Go to the documentation of this file.
  1. ABSPOSC3 ; IHS/FCS/DRS - development - certification testing ;
  1. ;;1.0;PHARMACY POINT OF SALE;;JUN 21, 2001
  1. Q
  1. RUNTEST(DIALOUT,FROM,THRU) ;EP - from ABSPOSC2,ABSPOSC4
  1. I '$D(THRU) S THRU=FROM
  1. K ^ABSPECX("POS",DIALOUT)
  1. N I F I=FROM:1:THRU D
  1. . N J S J=$P(^ABSPC(I,"M",0),U,3)
  1. . S ^ABSPECX("POS",DIALOUT,"C",I,0)=J
  1. . N K F K=1:1:J D
  1. . . S ^ABSPECX("POS",DIALOUT,"C",I,K)=^ABSPC(I,"M",K,0)
  1. D TASK^ABSPOSQ2 ; which should start up COMMS^ABSPOSQ3
  1. Q
  1. LASTCOMM ; print the last comms log - look backwards for the last .1 suffix
  1. S X=9999999999
  1. F S X=$O(^ABSPECP("LOG",X),-1) Q:'X Q:X#1=.1
  1. W "Comms log ",X,! H 1
  1. D PRINTLOG^ABSPOSL(X)
  1. Q
  1. RESTOR02 ; by sending ASCII file A:\ABSPEC02.GSA
  1. N I,X,Y
  1. K ^TMP($J) N DONE
  1. W "SEND file A:\ABSPEC02.GSA in ASCII mode, you have 20 seconds:",!
  1. F I=1:1 R ^TMP($J,I):20 Q:'$T
  1. D CLR0203("YES")
  1. ;K ^ABSPC(*)
  1. W !,"Now setting the data values...",!
  1. F I=3:2 D Q:$G(DONE)
  1. . S X=^TMP($J,I),Y=^TMP($J,I+1)
  1. . I X="*",Y="*" S DONE=1 Q
  1. . S @X=Y
  1. W "We processed up through line number ",I-1,!
  1. Q
  1. CLR0203(X) ; erase all entries in 9002313.02 and .03 claims & responses
  1. I X'="YES" D Q ; must pass this parameter to say you're really sure
  1. . D IMPOSS^ABSPOSUE("P","TI","parameter X="_X,,"CLR0203",$T(+0))
  1. N IEN,DA,DR,DIE,FILE
  1. F FILE=9002313.02,9002313.03 DO CLR0203A(FILE)
  1. Q
  1. CLR0203A(FILE) I X'="YES" D Q
  1. . D IMPOSS^ABSPOSUE("P","TI","parameter X="_X,,"CLR0203A",$T(+0))
  1. N X,IEN,DIE,DA,DR
  1. W "Erasing all entries in file ",FILE,"..."
  1. S IEN=0 F S IEN=$O(^ABSP(FILE,IEN)) Q:'IEN D
  1. . S DIE=FILE
  1. . I DIE'=9002313.02,DIE'=9002313.03 D Q ; safety!
  1. . . D IMPOSS^ABSPOSUE("P","TI","DIE="_DIE,,"CLR0203A",$T(+0))
  1. . S DA=IEN,DR=".01///@"
  1. . D ^DIE
  1. . W:$X>70 !?5 W "."
  1. W !
  1. D ZWRITE^ABSPOS("IEN")
  1. Q