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

Package: Pharmacy Point of Sale

Routine: ABSPOS28


Information

ABSPOS28 ; IHS/FCS/DRS - test of insurance selection ;

Source Information

Source file <ABSPOS28.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Pharmacy Point of Sale 4 $$NDCVAL^ABSPFUNC  ZWRITE^ABSPOS  INSURER^ABSPOS25  $$FINDTYPE^ABSPOS26  

Entry Points

Name Comments DBIA/ICR reference
FIND(TYPE)
TEST3 ; Look through 9002313.59 entries
TEST2
FINDTYPE(TYPE)
TEST1(N,M,DEBUG) ; look through some prescriptions and see what you get
; Stores copies of ARRAY(*) in ^TMP($J,
; See FIND* utilities below for help in searching ^TMP($J,
; for instances of interesting things.
; look at N prescrips ; optionally start M from end
; S DEBUG=1
FIND1 ; find records that have two BIRTHDAY rules
SRH2 ; search for: prvt & care & caid & ben (rule should not happen)
SRH1 ; search for: self pay ahead of others (the rule happened)
FINDINIT
FOUND(WHICH)
FINDNEXT
FINDLOOP
FINDN1
FINDN2
FIND2 ; find records that have the EMPLOY2 rule
FIND3
TYPES ;
TEST4(PCNDFN)

External References

Name Field # of Occurrence
$$NDCVAL^ABSPFUNC TEST1+16
ZWRITE^ABSPOS TEST2+6, TEST2+12, TEST4+17, TEST4+19, TEST4+20, FOUND+2
INSURER^ABSPOS25 TEST2+9, TEST4+15
$$FINDTYPE^ABSPOS26 FINDTYPE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IJK," "
  • Line Location: TEST1+11
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: TEST1+11
Function Call: WRITE
  • Prompt: "- - - for RXI=",ABSBRXI,",RXR=",ABSBRXR
  • Line Location: TEST1+20
Function Call: WRITE
  • Prompt: ", NDC=",ABSBNDC
  • Line Location: TEST1+21
Function Call: WRITE
  • Prompt: " - - -",!
  • Line Location: TEST1+22
Function Call: WRITE
  • Prompt: "No PCC link for ",ABSBRXI,",",ABSBRXR,!
  • Line Location: TEST2+3
Function Call: WRITE
  • Prompt: "PCC link but '$D() on "
  • Line Location: TEST2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST2+6
Function Call: WRITE
  • Prompt: "VCN ",VCN,", PCNDFN ",PCNDFN,!
  • Line Location: TEST4+4
Function Call: WRITE
  • Prompt: "PCN ",PCN,", PCNDFN ",PCNDFN,!
  • Line Location: TEST4+8
Function Call: WRITE
  • Prompt: "Visit date: ",$P(^AUPNVSIT(ABSBVISI,0),U),!
  • Line Location: TEST4+11
Function Call: WRITE
  • Prompt: "Last registration update: ",$P(^AUPNPAT(ABSBPATI,0),U,3),!
  • Line Location: TEST4+13
Function Call: WRITE
  • Prompt: $P(^DPT(ABSBPATI,0),U),!
  • Line Location: TEST4+21
Function Call: WRITE
  • Prompt: ARRAY(A)," ",$P(^AUTNINS(X,0),U),!
  • Line Location: TEST4+24
Function Call: WRITE
  • Prompt: "Hits: "
  • Line Location: SRH1+3
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $X>70
  • Line Location: SRH1+7
Function Call: WRITE
  • Prompt: A," "
  • Line Location: SRH1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SRH1+8
Function Call: WRITE
  • Prompt: "SRH2 misses: "
  • Line Location: SRH2+2
Function Call: WRITE
  • Prompt: !?10
  • Condition for execution: $X>70
  • Line Location: SRH2+7
Function Call: WRITE
  • Prompt: A," "
  • Line Location: SRH2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SRH2+8
Function Call: WRITE
  • Prompt: "There are no records",!
  • Line Location: FINDINIT+1
Function Call: WRITE
  • Prompt: "Searching, with TYPE=",TYPE,!
  • Line Location: FINDLOOP+1
Function Call: WRITE
  • Prompt: "Search done",!
  • Line Location: FINDLOOP+17
Function Call: WRITE
  • Prompt: "Found case ",WHICH,!
  • Line Location: FOUND+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSBITMS(9002302 TEST4+3, TEST4+7, TEST4+10, TEST4+12, TEST4+18
^ABSPCOMB - [#9002313.1] TEST4+17
^ABSPT - [#9002313.59] TEST3+2, TEST3+3
^AUPNPAT - [#9000001] TEST4+13
^AUPNVMED - [#9000010.14] TEST2+4, TEST2+7
^AUPNVSIT - [#9000010] TEST4+11
^AUTNINS - [#9999999.18] TEST4+24
^AUTNINS("B" TYPES+1, TYPES+2, TYPES+3
^DPT - [#2] TEST4+21
^PSRX - [#52] TEST1+9, TEST1+12, TEST1+13, TEST1+17, TEST2+1, TEST2+2, TEST2+8
^TMP($J TEST1+7!, TEST2+11*, SRH1+4, SRH1+5, SRH2+3, SRH2+4, SRH2+5, FINDNEXT, FINDN1, FINDN2
, FINDLOOP+3

Label References

Name Line Occurrences
FINDINIT FINDLOOP
FINDLOOP FIND1+1, FIND2+1, FIND3, FIND
FINDN1 FINDN2
FINDN2 FINDINIT
FINDNEXT FINDN1, FINDLOOP+2
FOUND FINDLOOP+14, FINDLOOP+15, FINDLOOP+16
TEST2 TEST1+23, TEST3+4
TEST4 TEST4+5, TEST4+9
TYPES SRH1+1, SRH2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% FINDLOOP+6~, FINDLOOP+7*, FINDLOOP+8*, FINDLOOP+9*, FINDLOOP+10*, FINDLOOP+11*, FINDLOOP+12, FINDLOOP+13
A TEST4+22~*, TEST4+23, TEST4+24, SRH1+2~*, SRH1+4*, SRH1+5, SRH1+7, SRH2+3*, SRH2+4, SRH2+5
, SRH2+7
ABSBNDC TEST1+6~, TEST1+16*, TEST1+17*, TEST1+21
ABSBPATI TEST1+6~, TEST2+8*, TEST2+11, TEST4+12~*, TEST4+13, TEST4+17, TEST4+21, FINDINIT*, FINDINIT+1, FINDNEXT
, FINDN1, FINDN2*, FINDLOOP, FINDLOOP+2, FINDLOOP+3
ABSBRXI TEST1+6~, TEST1+8*, TEST1+9*, TEST1+12*, TEST1+13, TEST1+16, TEST1+17, TEST1+20, TEST2+1, TEST2+2
, TEST2+3, TEST2+8, TEST2+11, TEST3+1*, TEST3+2*, TEST3+3, TEST4+14~*, FINDINIT*, FINDNEXT, FINDN1*
, FINDLOOP+3
ABSBRXR TEST1+6~, TEST1+13*, TEST1+16, TEST1+20, TEST2+1, TEST2+3, TEST2+11, TEST3+3*, TEST4+14~*, FINDINIT*
, FINDNEXT*, FINDLOOP+3
ABSBVISI TEST1+6~, TEST2+7*, TEST4+10~*, TEST4+11
ABSBVMED TEST1+6~, TEST2+1*, TEST2+2*, TEST2+3, TEST2+4, TEST2+7
ARRAY TEST2+9~, TEST2+11, TEST4+15~, FINDLOOP+3!*
ARRAY( TEST4+22, TEST4+23, TEST4+24, FINDLOOP+6, FINDLOOP+7, FINDLOOP+8, FINDLOOP+9, FINDLOOP+10, FINDLOOP+11
ARRAY(0 FINDLOOP+5
COMB TEST4+17~*
DEBUG TEST1~, TEST1+11, TEST1+19, TEST2+12
I FINDLOOP+5~*, FINDLOOP+6, FINDLOOP+7, FINDLOOP+8, FINDLOOP+9, FINDLOOP+10, FINDLOOP+11
IJK TEST1+9*, TEST1+10~*, TEST1+11
INSCAID SRH1+1~, SRH2+1~, SRH2+5, TYPES+2*
INSCARE SRH1+1~, SRH2+1~, SRH2+5, TYPES+3*
INSCOV1 TEST4+18~*
INSSELF SRH1+1~, SRH1+5, SRH2+1~, SRH2+5, TYPES+1*
J FINDLOOP+12~*, FINDLOOP+13
M TEST1~, TEST1+9
N TEST1~, TEST1+10
PCN TEST4+7~*, TEST4+8
PCNDFN TEST4~, TEST4+1, TEST4+2, TEST4+3, TEST4+4, TEST4+5, TEST4+6, TEST4+7*, TEST4+8, TEST4+9
, TEST4+10, TEST4+12, TEST4+18
RULECT FINDLOOP+4!
RULECT( FINDLOOP+13*
RULECT("BIRTHDAY" FINDLOOP+14
RULECT("EMPLOY2" FINDLOOP+15
RULECT("SEARHC0" FINDLOOP+16
TYPE FIND1+1*, FIND2+1*, FIND3*, FIND~, FINDLOOP+1, FINDLOOP+14, FINDLOOP+15, FINDLOOP+16, FINDTYPE~
U TEST2+1, TEST2+2, TEST2+7, TEST2+8, TEST3+3, TEST4+10, TEST4+11, TEST4+12, TEST4+13, TEST4+21
, TEST4+23, TEST4+24, SRH1+5, SRH2+4, FINDLOOP+7, FINDLOOP+8, FINDLOOP+9, FINDLOOP+10, FINDLOOP+11
VCN TEST4+2~*, TEST4+3, TEST4+4
WHICH FOUND~, FOUND+1
X TEST4+2~*, TEST4+3*, TEST4+7~, TEST4+23~*, TEST4+24, SRH2+4~*, SRH2+5, FINDLOOP+6~*, FINDLOOP+13~*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All