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 |  All
Print Page as PDF
Routine: ABSPOSF

Package: Pharmacy Point of Sale

Routine: ABSPOSF


Information

ABSPOSF ; IHS/FCS/DRS - Print NCPDP claim ; [ 09/12/2002 10:08 AM ]

Source Information

Source file <ABSPOSF.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Pharmacy Point of Sale 6 $$UNINS^ABSPOSF  (PRINT,SORT)^ABSPOSFA  ALIGN^ABSPOSFX  $$DTR^ABSPOSU1  $$FREETEXT^ABSPOSU2  $$YESNO^ABSPOSU3  
Kernel 2 ^%ZIS  ^%ZISC  
VA Fileman 2 ^DIC  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Pharmacy Point of Sale 2 ABSPOSF  ABSPOSFA  

Entry Points

Name Comments DBIA/ICR reference
JOIN ; REPRINT joins here
PAT57() ; Lookup patient in 9002313.57 transactions
ALIGN ;EP - align NCPDP forms
; Option name ABSP NCPDP FORMS ALIGN
ILCINS(PCNDFN) ; EP - get the ILC insurer IEN
ILCPRINT ; EP - ; For printing forms from ILC A/R pre-bill list
; Build ^TMP("ABSPOSF",$J,1,ien57)
INSFIRST() ; returns where to start printing or "" or "^" or "^^" to cancel
ILCINSNM(PCNDFN) ; EP - get the ILC insurer name
PRINT ; EP - ; For printing forms at a site which doesn't have ILC A/R:
; Option name ABSP NCPDP FORMS PRINT
; prompt for a date range
; and "start at insurer"
; and "are you sure?"
ALIGN1
REPRINT ;EP - reprint selected NCPDP forms
; Option name ABSP NCPDP FORMS REPRINT
UNINS(NAME) ; EP - is it an uninsured kind of pseudo-insurance

External References

Name Field # of Occurrence
^%ZIS ALIGN+3
^%ZISC ALIGN1+4
$$UNINS^ABSPOSF PRINT+36
PRINT^ABSPOSFA JOIN+10, ILCPRINT+20
SORT^ABSPOSFA JOIN+9, ILCPRINT+18
ALIGN^ABSPOSFX ALIGN1+1
$$DTR^ABSPOSU1 PRINT+10, REPRINT+9
$$FREETEXT^ABSPOSU2 INSFIRST+6
$$YESNO^ABSPOSU3 JOIN+6, ALIGN1+3, ILCPRINT+19, INSFIRST+2
^DIC PAT57+5
$$GET1^DIQ PRINT+29

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Print NCPDP Pharmacy Claim Forms",!!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,"Now building a list of transactions for which to print forms...",!
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !,"Number of claims: ",COUNT,!
  • Line Location: JOIN+1
Function Call: WRITE
  • Prompt: "Note: because some forms may have two claims on the same page,",!
  • Line Location: JOIN+4
Function Call: WRITE
  • Prompt: "you might print fewer than ",COUNT," forms.",!
  • Line Location: JOIN+5
Function Call: WRITE
  • Prompt: !,"Nothing done.",!
  • Line Location: JOIN+8
Function Call: WRITE
  • Prompt: !,"Test print for NCPDP forms",!
  • Line Location: ALIGN+2
Function Call: WRITE
  • Prompt: !!,"Reprint selected NCPDP forms",!!
  • Line Location: REPRINT+2
Function Call: WRITE
  • Prompt: "First, select the patient(s).",!
  • Line Location: REPRINT+3
Function Call: WRITE
  • Prompt: !!,"Choose a transaction date or range of transaction dates",!
  • Line Location: REPRINT+7
Function Call: WRITE
  • Prompt: "for which to reprint NCPDP forms for the selected patient(s).",!
  • Line Location: REPRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: REPRINT+9
Function Call: WRITE
  • Prompt: !,"Gathering the selected transactions..."
  • Line Location: REPRINT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT57+5
Function Call: WRITE
  • Prompt: "s"
  • Line Location: PAT57+12
Function Call: WRITE
  • Prompt: " "
  • Line Location: PAT57+12
Function Call: WRITE
  • Prompt: Y
  • Line Location: PAT57+13
Function Call: WRITE
  • Prompt: " - ",Y
  • Line Location: PAT57+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT57+15
Function Call: WRITE
  • Prompt: !,"Print NCPDP forms",!
  • Line Location: ILCPRINT+2
Function Call: WRITE
  • Prompt: !,"Note: if you answer YES to an ""Okay to update bills?"" question,",!
  • Line Location: ILCPRINT+5
Function Call: WRITE
  • Prompt: "later on in the ILC A/R system, it will update all the bills,",!
  • Line Location: ILCPRINT+6
Function Call: WRITE
  • Prompt: "not only the ones which were printed starting at ",INSFIRST,".",!
  • Line Location: ILCPRINT+7
Function Call: WRITE
  • Prompt: !,"Gathering claims from the NCPDP Prebill List in the A/R system..."
  • Line Location: ILCPRINT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ILCPRINT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ILCPRINT+19
Function Call: WRITE
  • Prompt: !
  • Line Location: INSFIRST+6
Routine Call
  • DIC
  • Line Location:
    • PAT57+5
Routine Call
  • %ZIS
  • Line Location:
    • ALIGN+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSPTL - [#9002313.57] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSBITMS(9002302 ILCPRINT+12, ILCINS+1, ILCINS+3, ILCINS+4, ILCINSNM+1
^ABSPTL - [#9002313.57] PRINT+32, PRINT+38, REPRINT+18, PAT57+9, PAT57+11
^ABSPTL("AC" PAT57+8, PAT57+10
^ABSPTL("AH" PRINT+27, PRINT+43, REPRINT+17, REPRINT+21
^ABSPTL("B" PRINT+39
^ABSPTL("C" ILCPRINT+15
^AUTNINS - [#9999999.18] PRINT+33
^DD("DD" PAT57+13, PAT57+14
^TMP("ABSPOSF" PRINT+21!, PRINT+41*, REPRINT+20*, ILCPRINT+9!, ILCPRINT+16*

Label References

Name Line Occurrences
$$ILCINSNM ILCPRINT+13
$$INSFIRST PRINT+17, ILCPRINT+3
$$PAT57 REPRINT+5
ALIGN1 ALIGN1+3
JOIN REPRINT+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COUNT PRINT+23~*, PRINT+42*, JOIN+1, JOIN+2, JOIN+3, JOIN+5, REPRINT+13*, REPRINT+20*
DATE1 PAT57+9~*, PAT57+12, PAT57+13, PAT57+14
DATE2 PAT57+11~*, PAT57+12, PAT57+14
DEF1 PRINT+5~, PRINT+8*, PRINT+10, REPRINT+9
DEF2 PRINT+5~, PRINT+8*, PRINT+10, REPRINT+9
DIC PAT57+1~, PAT57+2*
DIC("A" PAT57+3*
DIC("S" PAT57+4*
DIC(0 PAT57+2*
DLAYGO PAT57+1~
>> DTOUT PAT57+6
>> DUOUT PAT57+6
IEN57 PRINT+26~*, PRINT+27*, PRINT+29, PRINT+32, PRINT+38, PRINT+39, PRINT+41, REPRINT+4~, REPRINT+16*, REPRINT+17*
, REPRINT+18, REPRINT+20, PAT57+8~*, PAT57+9, PAT57+10*, PAT57+11, ILCPRINT+14~*, ILCPRINT+15*, ILCPRINT+16
INS PRINT+32~*, PRINT+33
INSFIRST PRINT+17~*, PRINT+35, REPRINT+22~*, ILCPRINT+3~*, ILCPRINT+4, ILCPRINT+7, ILCPRINT+13
>> INSIEN ILCINS+5*
INSNAME PRINT+33~*, PRINT+35, PRINT+36
IO ALIGN1
NAME UNINS~, UNINS+1, UNINS+2
PAT57 REPRINT+4~, REPRINT+5*, REPRINT+18*, REPRINT+19
PATARRAY REPRINT+4~
PATARRAY( REPRINT+5*, REPRINT+19
PATARRAY("" REPRINT+6
PCNDFN ILCPRINT+10~*, ILCPRINT+12*, ILCPRINT+13, ILCPRINT+15, ILCINS~, ILCINS+1, ILCINS+3, ILCINS+4, ILCINSNM~, ILCINSNM+1
POP ALIGN+3~
PROMPT1 PRINT+5~, PRINT+6*, PRINT+10, REPRINT+9
PROMPT2 PRINT+5~, PRINT+7*, PRINT+10, REPRINT+9
RANGE PRINT+10~*, PRINT+11, PRINT+12, PRINT+13*, PRINT+24, PRINT+25, REPRINT+9~*, REPRINT+10, REPRINT+11, REPRINT+12*
, REPRINT+14, REPRINT+15
RET INSFIRST+1~, INSFIRST+2*, INSFIRST+3, INSFIRST+4, INSFIRST+6*, INSFIRST+7
RXIRXR PRINT+38~*, PRINT+39
U PRINT+12, PRINT+13, PRINT+24, PRINT+25, PRINT+32, PRINT+33, PRINT+38, REPRINT+11, REPRINT+12, REPRINT+14
, REPRINT+15, REPRINT+18, PAT57+9, PAT57+11, ILCINS+1, ILCINS+4, ILCINSNM+1
WHEN PRINT+24~*, PRINT+25, PRINT+27, PRINT+43*, REPRINT+14~*, REPRINT+15, REPRINT+17, REPRINT+21*
X PRINT+12~*, PRINT+13*, JOIN+6~*, JOIN+7, REPRINT+11~*, REPRINT+12*, PAT57+1~, ILCINS+1~*, ILCINS+2*, ILCINS+3
, ILCINS+4*, ILCINS+5
Y PAT57+1~, PAT57+6, PAT57+7*, PAT57+8, PAT57+10, PAT57+13*, PAT57+14*
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 |  All