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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSC2

Package: Pharmacy Point of Sale

Routine: ABSPOSC2


Information

ABSPOSC2 ; IHS/FCS/DRS - certification testing ; [ 06/22/2001 2:14 PM ]

Source Information

Source file <ABSPOSC2.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Pharmacy Point of Sale 9 $$REVERSE^ABSPECA8  ZWRITE^ABSPOS  (PRINT02,PRINT03)^ABSPOSAY  RUNTEST^ABSPOSC3  NEWCLAIM^ABSPOSCE  (INIT,LOG,PRINTLOG)^ABSPOSL  PASCII1^ABSPOSQH  COMMSLOG^ABSPOSU6  
IMPOSS^ABSPOSUE  
VA Fileman 2 ^DIE  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Point of Sale 1 ABSPOSC4  

Entry Points

Name Comments DBIA/ICR reference
REVERSAL(ENTRY,N)
ALL ; Construct packets for all entries in 9002313.31
SETABSP(ENTRY) ; Construct packet for just one entry in 9002313.31
LOG ;EP -
SEND(ENTRY)
PACKET(ENTRY,DIALOUT,DUMPABSP)
SETABSP1(FIELD,VALUE,N)
SAVEABSP
P12
PRINTR(IEN31) ;
TABLE ;
MYIEN59(N) ; a fake number
TEST(ENTRY)
PRINT(IEN31,FLAG) ;
DIALOUT()
PRINTLOG(N) ; print the log file for test claim number N

External References

Name Field # of Occurrence
$$REVERSE^ABSPECA8 REVERSAL+8
ZWRITE^ABSPOS PACKET+3
PRINT02^ABSPOSAY PRINT+5
PRINT03^ABSPOSAY P12+2
RUNTEST^ABSPOSC3 SEND+2
NEWCLAIM^ABSPOSCE PACKET+6
INIT^ABSPOSL SETABSP+39
LOG^ABSPOSL REVERSAL+1
PRINTLOG^ABSPOSL PRINTLOG+1
PASCII1^ABSPOSQH REVERSAL+14, PACKET+9
COMMSLOG^ABSPOSU6 LOG+2
IMPOSS^ABSPOSUE ALL+1, REVERSAL+7, REVERSAL+11
^DIE REVERSAL+17, PACKET+10
$$GET1^DIQ SETABSP+11, SETABSP+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Testing in ",$T(+0),!
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: "Field .04 in 9002313.31 needs to have pointer to insurer.",!
  • Line Location: TEST+3
Function Call: WRITE
  • Prompt: "Input: 9002313.31 entry `",ENTRY,!
  • Line Location: TEST+6
Function Call: WRITE
  • Prompt: "Output: 9002313.02 entry `",X,!
  • Line Location: TEST+7
Function Call: WRITE
  • Prompt: !,"To send this claim, DO SEND^ABSPOSC2(",ENTRY,")",!
  • Line Location: TEST+8
Function Call: WRITE
  • Prompt: "Reversal: 9002313.02 entry `",REVERSAL,!
  • Line Location: REVERSAL+9
Function Call: WRITE
  • Prompt: "The log file can be viewed by DO LOG^",$T(+0),!
  • Line Location: SEND+3
Function Call: WRITE
  • Prompt: !,"At the prompt, just type RES to get the RESERVED - DO NOT USE",!
  • Line Location: LOG+1
Function Call: WRITE
  • Prompt: "IEN31=",IEN31,!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: "No claim for IEN31=",IEN31,!
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: "No response for CLAIM=",CLAIM,!
  • Line Location: P12+1
Function Call: WRITE
  • Prompt: "Create 9002313.02 claim for "
  • Line Location: SETABSP+1
Function Call: WRITE
  • Prompt: $P(^ABSP(9002313.31,ENTRY,0),U),!
  • Line Location: SETABSP+2
Function Call: WRITE
  • Prompt: !,"Failed to find field ",FIELD," in TABLE^",$T(+0),!
  • Line Location: SETABSP1+7
Routine Call
  • DIE
  • Line Location:
    • REVERSAL+17
    • PACKET+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSPEI - [#9002313.4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.31 - [#9002313.31] TEST+2, REVERSAL+5, SEND+1, PRINT+2, PACKET+5, SETABSP+2, SETABSP+3, SETABSP+4, SETABSP+22, SETABSP+24
, SETABSP+28, SETABSP+30, SETABSP+31
^ABSP(9002313.55 - [#9002313.55] DIALOUT
^ABSP(9002313.56 - [#9002313.56] SETABSP+20
^ABSP(9002313.99 - [#9002313.99] SETABSP+8
^ABSPC - [#9002313.02] REVERSAL+1
^ABSPC(0 PACKET+7
^ABSPEI - [#9002313.4] SETABSP+6
^ABSPF(9002313.91 - [#9002313.91] SETABSP+25, SETABSP+32
^ABSPF(9002313.92 - [#9002313.92] SETABSP+17, SETABSP+18, SETABSP+19
^ABSPR("B" P12
^TMP($J SAVEABSP!, SAVEABSP+2*

Label References

Name Line Occurrences
$$DIALOUT TEST+4, REVERSAL+14, SEND+2
$$MYIEN59 SETABSP+38, PRINTLOG+1
$$PACKET TEST+5
P12 PRINT+4
PRINT PRINTR+1
SAVEABSP PACKET+4
SETABSP PACKET+2
SETABSP1 SETABSP+26, SETABSP+33
TEST REVERSAL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SAVEABSP+1~*, SAVEABSP+2*
A SETABSP+21~*, SETABSP+22*, SETABSP+24, SETABSP+29~*, SETABSP+30*, SETABSP+31
ABSP PACKET+1~
ABSP("Envoy T erminal ID" , SETABSP+20*
ABSP("Insurer" SETABSP+3*, SETABSP+6
ABSP("NCPDP" SETABSP+6*, SETABSP+10, SETABSP+12*, SETABSP+13*, SETABSP+14*, SETABSP+17*, SETABSP+18*, SETABSP+19*
ABSP("Patient" SETABSP+41*
ABSP("RX" SETABSP+38*, SETABSP+39
ABSP("Site" SETABSP+4*, SETABSP+5*, SETABSP+35*
CLAIM PRINT+2~*, PRINT+3, PRINT+5, P12, P12+1
CLAIMIEN REVERSAL+13~, REVERSAL+14*, PACKET+7~*, PACKET+10, PACKET+11
COUNT REVERSAL+13~*, PACKET+8~*
DA REVERSAL+17*, PACKET+10~*
DIALOUT TEST+4~*, TEST+5, REVERSAL+13~, REVERSAL+14*, PACKET~
DIE REVERSAL+17~*, PACKET+10~*
DO SETABSP+9~, SETABSP+10*, SETABSP+11, SETABSP+14
DR REVERSAL+17*, PACKET+10~*
DUMPABSP PACKET~, PACKET+3, PACKET+4
ENTRY TEST~, TEST+2, TEST+5, TEST+6, TEST+8, REVERSAL~, REVERSAL+4, REVERSAL+5, REVERSAL+17, SEND~
, SEND+1, PACKET~, PACKET+2, PACKET+5, PACKET+10, SETABSP~, SETABSP+2, SETABSP+3, SETABSP+4, SETABSP+22
, SETABSP+24, SETABSP+28, SETABSP+30, SETABSP+31
FIELD SETABSP+25~*, SETABSP+26, SETABSP+32~*, SETABSP+33, SETABSP1~, SETABSP1+4, SETABSP1+7
FLAG PRINT~, PRINT+4
I SETABSP1+2~*
IEN02 SEND+1~*, SEND+2
IEN31 PRINT~, PRINT+1, PRINT+2, PRINT+3, PRINTR~, PRINTR+1
N REVERSAL~, REVERSAL+8, PACKET+5~*, PACKET+6, SETABSP+21~, SETABSP+27*, SETABSP+28*, SETABSP+30, SETABSP+31, SETABSP+33
, SETABSP+38, SETABSP+39, PRINTLOG~, PRINTLOG+1, MYIEN59~, MYIEN59+1, SETABSP1~
OK SETABSP1+1~*, SETABSP1+2, SETABSP1+6*, SETABSP1+7
ORIG REVERSAL+5~*, REVERSAL+6, REVERSAL+8
RESP P12~*, P12+1, P12+2
>> REV REVERSAL+1
REVERSAL REVERSAL+8~*, REVERSAL+9, REVERSAL+10, REVERSAL+14, REVERSAL+17
U TEST+2, REVERSAL+1, REVERSAL+5, SEND+1, PRINT+2, PACKET+5, PACKET+7, SETABSP+2, SETABSP+3, SETABSP+4
, SETABSP+6, SETABSP+17, SETABSP+18, SETABSP+19, SETABSP+20, SETABSP+25, SETABSP+26, SETABSP+32, SETABSP+33
VALUE SETABSP1~
VERSION SETABSP+9~, SETABSP+11*, SETABSP+12, SETABSP+13
X TEST+5~*, TEST+7, SETABSP+24~*, SETABSP+25, SETABSP+26, SETABSP+31*, SETABSP+32, SETABSP+33, SETABSP1+3~*, SETABSP1+4
, SETABSP1+5

Marked Items

Name Field # of Occurrence
$T( ALL+1, TEST+1, REVERSAL+7, REVERSAL+11, SEND+3, SAVEABSP, SAVEABSP+2, SETABSP1+7
$T(TABLE+I SETABSP1+2, SETABSP1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All