Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSC4

Package: Pharmacy Point of Sale

Routine: ABSPOSC4


Information

ABSPOSC4 ; IHS/FCS/DRS - installation testing ;

Source Information

Source file <ABSPOSC4.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Pharmacy Point of Sale 8 ZWRITE^ABSPOS  $$DEF5599^ABSPOSA  ($$LLIST,ULLIST)^ABSPOSAP  ($$PACKET,LOG)^ABSPOSC2  RUNTEST^ABSPOSC3  $$SWTYPE^ABSPOSCC  LOG^ABSPOSL2  $$IMPOSS^ABSPOSUE  
VA Fileman 3 (FILE,UPDATE)^DIE  EN1^DIP  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
THETEST ;EP - option
SETUP31() ; fill in some fields in the 9002313.31 header ; ret true/false
RESPONSE() ; does IEN31 have a response for the generated claim?
; returns false if not, else returns IEN in 9002313.03
PRINTRSP
INSFIND() ; returns IEN to ^AUTNINS, false if not found
IEN4DEL() ; delete the ABSP INSURER entry (because we temporarily created it)
; returns TRUE if successfully deleted
TEST1(DIALOUT) ; returns true if success, false if failure
; given INSNAME is insurer name and also format name
; (this is usually not the case!)
EXIT
DEFDIAL() ; returns IEN to the default dial out
IEN4FIND() ; returns IEN to 9002313.4, false if not found
IEN4MAKE() ; given INSNAME and FMTNAME
; return TRUE if successfully created ; FALSE if not
WAIT ; wait for response
; either user's decision to stop or we've noticed response rec'd

External References

Name Field # of Occurrence
ZWRITE^ABSPOS IEN4MAKE+11
$$DEF5599^ABSPOSA TEST1+4
$$LLIST^ABSPOSAP EXIT+4
ULLIST^ABSPOSAP EXIT+6
$$PACKET^ABSPOSC2 TEST1+35
LOG^ABSPOSC2 TEST1+50, WAIT+12
RUNTEST^ABSPOSC3 TEST1+42
$$SWTYPE^ABSPOSCC SETUP31+4
LOG^ABSPOSL2 IEN4MAKE+10, IEN4DEL+5, SETUP31+17
$$IMPOSS^ABSPOSUE SETUP31+8
FILE^DIE IEN4DEL+4, SETUP31+16
UPDATE^DIE IEN4MAKE+9
EN1^DIP PRINTRSP+7
^DIR WAIT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: THETEST+1
Function Call: WRITE
  • Prompt: !
  • Line Location: THETEST+2
Function Call: WRITE
  • Prompt: "This is a test of the send-and-receive mechanism.",!
  • Line Location: THETEST+3
Function Call: WRITE
  • Prompt: "It sends a test claim to an insurer.",!
  • Line Location: THETEST+4
Function Call: WRITE
  • Prompt: "The claim should be rejected; it is only a test claim",!
  • Line Location: THETEST+5
Function Call: WRITE
  • Prompt: "and the data is made-up.",!
  • Line Location: THETEST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: THETEST+7
Function Call: WRITE
  • Prompt: "This test should be done ONLY on a QUIET Point of Sale system.",!
  • Line Location: THETEST+8
Function Call: WRITE
  • Prompt: "There are theoretically possible conflicts with live processing,",!
  • Line Location: THETEST+9
Function Call: WRITE
  • Prompt: "which seem minor. Time has not permitted a comprehensive analysis.",!!
  • Line Location: THETEST+10
Function Call: WRITE
  • Prompt: "The test succeeded!",!
  • Line Location: THETEST+20
Function Call: WRITE
  • Prompt: "The test failed!",!
  • Line Location: THETEST+22
Function Call: WRITE
  • Prompt: "Default dialout not set up yet?!",!
  • Line Location: TEST1+5
Function Call: WRITE
  • Prompt: "Using dial out ",$P(^ABSP(9002313.55,DIALOUT,0),U),!
  • Line Location: TEST1+6
Function Call: WRITE
  • Prompt: "Missing entry in 9002313.31.",!
  • Line Location: TEST1+8
Function Call: WRITE
  • Prompt: "Missing ",INSNAME," in INSURER file",!
  • Line Location: TEST1+10
Function Call: WRITE
  • Prompt: "Missing format ",INSNAME," in INSURER file",!
  • Line Location: TEST1+12
Function Call: WRITE
  • Prompt: "Failed to create an ABSP INSURER entry for ",INSNAME,!
  • Line Location: TEST1+17
Function Call: WRITE
  • Prompt: "Failed in SETUP31, trying to set some fields in 9002313.31.",!
  • Line Location: TEST1+31
Function Call: WRITE
  • Prompt: "Failed to create claim packet in 9002313.02",!
  • Line Location: TEST1+37
Function Call: WRITE
  • Prompt: "Sending the test claim..."
  • Line Location: TEST1+41
Function Call: WRITE
  • Prompt: " it's been handed to the background job.",!
  • Line Location: TEST1+43
Function Call: WRITE
  • Prompt: "No response received (yet)",!
  • Line Location: TEST1+49
Function Call: WRITE
  • Prompt: !,"Yes, response received!",!
  • Line Location: TEST1+52
Function Call: WRITE
  • Prompt: "Failed to delete temporary ABSP INSURER entry for ",INSNAME,!
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: "Wait several seconds for the response - probably about 60 seconds",!
  • Line Location: WAIT+2
Function Call: WRITE
  • Prompt: " for a modem connection, or 30 seconds for the T1 line.",!
  • Line Location: WAIT+3
Function Call: WRITE
  • Prompt: "Type Q to Quit; L to view log file of transmission",!
  • Line Location: WAIT+4
Function Call: WRITE
  • Prompt: "Waiting for response to the test message..."
  • Line Location: WAIT+5
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $X>65
  • Line Location: WAIT+7
Function Call: WRITE
  • Prompt: "."
  • Line Location: WAIT+7
Function Call: WRITE
  • Prompt: !,"Can't find ",INSNAME," in ^AUTNINS",!
  • Line Location: IEN4MAKE+4
Function Call: WRITE
  • Prompt: !,"Missing ",FMTNAME," from ^ABSPF(9002313.92)",!
  • Line Location: IEN4MAKE+7
Routine Call
  • DIE
  • Line Location:
    • IEN4MAKE+9
Routine Call
  • DIE
  • Line Location:
    • IEN4DEL+4
    • SETUP31+16
Routine Call
  • DIR
  • Line Location:
    • WAIT+9

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.31 - [#9002313.31] TEST1+7, SETUP31+7, SETUP31+13
^ABSP(9002313.55 - [#9002313.55] TEST1+6, DEFDIAL+1
^ABSPC - [#9002313.02] PRINTRSP+4
^ABSPECX("POS" EXIT+3, EXIT+5!
^ABSPEI - [#9002313.4] IEN4DEL+6
^ABSPEI("B" IEN4FIND+1
^ABSPF(9002313.91 - [#9002313.91] SETUP31+6, SETUP31+12
^ABSPF(9002313.92 - [#9002313.92] TEST1+11, IEN4MAKE+6
^ABSPR("B" RESPONSE+2
^AUTNINS("B" INSFIND+1, IEN4MAKE+3

Label References

Name Line Occurrences
$$IEN4DEL EXIT
$$IEN4FIND TEST1+15
$$IEN4MAKE TEST1+16
$$INSFIND TEST1+9, IEN4FIND+1
$$RESPONSE TEST1+48, WAIT+10
$$SETUP31 TEST1+30
$$TEST1 THETEST+18
EXIT TEST1+30, TEST1+36, TEST1+48
PRINTRSP TEST1+53
WAIT TEST1+47

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BY PRINTRSP+3~*
DHD PRINTRSP+5~*
DIALOUT TEST1~, TEST1+4*, TEST1+6, TEST1+35, TEST1+42, EXIT+3, EXIT+5, SETUP31+4
DIC PRINTRSP+1~*
DIR WAIT+8~
DIR("A" WAIT+9*
DIR("T" WAIT+9*
DIR(0 WAIT+8*
DT SETUP31+10, SETUP31+15
F401 SETUP31+5~, SETUP31+6*, SETUP31+7
F414 SETUP31+11~, SETUP31+12*, SETUP31+13
FDA IEN4MAKE+2~, IEN4DEL+2~, SETUP31+1~
FDA( IEN4MAKE+5*, IEN4MAKE+8*, IEN4DEL+3*, SETUP31+2*, SETUP31+3*, SETUP31+4*, SETUP31+10*, SETUP31+15*
FLDS PRINTRSP+2~*
FMTNAME TEST1+3~*, IEN4MAKE+6, IEN4MAKE+7
FN IEN4MAKE+2~*, SETUP31+1~*, SETUP31+2, SETUP31+3, SETUP31+4
FR PRINTRSP+4~*
IEN02 TEST1+35~*, TEST1+36, TEST1+42, RESPONSE+2, PRINTRSP+4
IEN31 TEST1+7~*, TEST1+8, TEST1+35, SETUP31+1, SETUP31+7, SETUP31+13
IEN4 TEST1+15~*, TEST1+16*, IEN4DEL+3, IEN4DEL+6, SETUP31+3
IEN4ORIG TEST1+15~*, EXIT
IEN92 TEST1+11~*, TEST1+12
IENARR IEN4MAKE+2~
IENARR(1 IEN4MAKE+5*, IEN4MAKE+12
IENS IEN4MAKE+2~*, IEN4MAKE+5, IEN4MAKE+8, SETUP31+1~*, SETUP31+2, SETUP31+3, SETUP31+4, SETUP31+9, SETUP31+14
IENS401 SETUP31+5~, SETUP31+7*, SETUP31+8, SETUP31+9*, SETUP31+10
IENS414 SETUP31+11~, SETUP31+13*, SETUP31+14*, SETUP31+15
INSIEN TEST1+9~*, TEST1+10
INSNAME THETEST+12~*, TEST1+3, TEST1+7, TEST1+10, TEST1+11, TEST1+12, TEST1+17, EXIT+1, INSFIND+1, IEN4MAKE+3
, IEN4MAKE+4
IOP PRINTRSP+6~*
L PRINTRSP~*
MSG IEN4MAKE+2~, IEN4MAKE+10, IEN4MAKE+11, IEN4DEL+2~, IEN4DEL+5, SETUP31+1~, SETUP31+17, SETUP31+18
QUIT WAIT+6~*, WAIT+10*, WAIT+11*
RESULT THETEST+18~*, THETEST+19, TEST1+28*, TEST1+54*, EXIT+8
SEC WAIT+6~*
TO PRINTRSP+4~*
U TEST1+6, PRINTRSP+4
X WAIT+8~, IEN4MAKE+2~, IEN4MAKE+3*, IEN4MAKE+4, IEN4MAKE+5, IEN4MAKE+6*, IEN4MAKE+7, IEN4MAKE+8
Y WAIT+8~, WAIT+10, WAIT+11, WAIT+12

Marked Items

Name Field # of Occurrence
$T( SETUP31+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All