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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABSPOSIZ

Package: Pharmacy Point of Sale

Routine: ABSPOSIZ


Information

ABSPOSIZ ; IHS/FCS/DRS - Filing with .51,.59 ; [ 11/04/2002 2:01 PM ]

Source Information

Source file <ABSPOSIZ.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Pharmacy Point of Sale 8 ZWRITE^ABSPOS  CLNDUR^ABSPOSIH  CLNDIAG^ABSPOSII  ($$ACTIVEWT,$$IEN59,$$RXPAID,$$SETUP59)^ABSPOSIY  LOG^ABSPOSL2  PRESSANY^ABSPOSU5  $$TIMEDIFI^ABSPOSUD  $$IMPOSS^ABSPOSUE  
VA Fileman 5 ^%DT  NOW^%DTC  $$FIND1^DIC  (FILE,UPDATE)^DIE  $$GET1^DIQ  
Kernel 2 ^%ZTLOAD  ($$FMDIFF,$$NOW)^XLFDT  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Pharmacy Point of Sale 9 ABSPOS1  ABSPOS2D  ABSPOS6D  ABSPOSI  ABSPOSIV  ABSPOSQ1  ABSPOSQ4  ABSPOSQS  
ABSPOSU  

Entry Points

Name Comments DBIA/ICR reference
FILE(IEN,ECHO) ;EP - from ABSPOSI, ABSPOSIV
; <PF1> E was hit - so we make these claims official
; ^ABSP(9002313.51,IEN,...) -> 9002313.59 or wherever
DELEMPTY ; the multiple probably has some empty entries - delete them
; IEN is inherited from caller
ISVISIT() ; return pointer to visit if true, else return ""
; (this is for non-prescription items)
FZ
ACTIVE59(N)
PREVISLY(IEN59)
ISPOST() ; return pointer to ^PSRX if true, else return ""
TASK ;EP - from ABSPOS2D,ABSPOS6D,ABSPOSQ1,ABSPOSQ4,ABSPOSU
UNLOCK59
QUICK51(IEN,ENTRY)
LOCK59()
NEW59(N) ; send N = desired IEN in file 9002313.59
ISRX() ; return pointer to ^PSRX if true, else return ""
LOCK()
RXA
PR5
UNLOCK
L59N
FILE1(IEN,ENTRY,ECHO)
L59A
EXIST59(N)
CLEAR59(N)
INSUR(IEN,ENTRY,ECHO)
REMAP ; do any needed adjusing of INPUT(*) to handle postage, supplies, etc.
NOW()
FILERX ; EVERYTHING is filed here: postage, supplies, as well as RX's
TASKAT(ZTDTH)
D5

External References

Name Field # of Occurrence
^%DT TASK+21
NOW^%DTC NOW
^%ZTLOAD TASKAT+9
ZWRITE^ABSPOS D5+3, PR5+3
CLNDUR^ABSPOSIH FILE+14
CLNDIAG^ABSPOSII FILE+15
$$ACTIVEWT^ABSPOSIY RXA
$$IEN59^ABSPOSIY FILERX+6
$$RXPAID^ABSPOSIY RXA+23
$$SETUP59^ABSPOSIY L59N+2
LOG^ABSPOSL2 D5+1, NEW59+7, CLEAR59+11, PR5+1
PRESSANY^ABSPOSU5 RXA+35
$$TIMEDIFI^ABSPOSUD ACTIVE59+6
$$IMPOSS^ABSPOSUE FILE+12, D5+4, RXA+2, L59A, L59N, PR5+4, ACTIVE59+1
$$FIND1^DIC EXIST59+2
FILE^DIE D5, CLEAR59+10, PR5
UPDATE^DIE NEW59+6
$$GET1^DIQ PREVISLY+2
$$FMDIFF^XLFDT TASK+14
$$NOW^XLFDT TASK+14, TASK+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "Nothing entered..."
  • Line Location: FILE+8
Function Call: WRITE
  • Prompt: "Submitting claims...",!
  • Line Location: FILE+9
Function Call: WRITE
  • Prompt: "...done.",!
  • Line Location: FZ+0
Function Call: WRITE
  • Prompt: "at INSUR^",$T(+0),!
  • Line Location: INSUR+16
Function Call: WRITE
  • Prompt: ?10,"IEN59=",IEN59,!
  • Line Location: FILERX+7
Function Call: WRITE
  • Prompt: ?5,"This claim has already been submitted.",!
  • Line Location: RXA+25
Function Call: WRITE
  • Prompt: ?5,"It was an electronic claim and it was "
  • Line Location: RXA+27
Function Call: WRITE
  • Prompt: $S(X=1:"paid",X=3:"captured."),!
  • Line Location: RXA+28
Function Call: WRITE
  • Prompt: ?5,"It was flagged to be sent on a paper claim.",!
  • Line Location: RXA+30
Function Call: WRITE
  • Prompt: ?5,"It will be processed again, as if it had been reversed.",!
  • Line Location: RXA+31
Function Call: WRITE
  • Prompt: ?5,"You must first reverse the original claim,",!
  • Line Location: RXA+33
Function Call: WRITE
  • Prompt: ?5,"and then resubmit it. RES will do it all for you.",!
  • Line Location: RXA+34
Function Call: WRITE
  • Prompt: $P(X,U,4)," ",$P(X,U,2)," ",$P(X,U,5)," ",$P(X,U,7),!
  • Line Location: QUICK51+3
Function Call: WRITE
  • Prompt: !
  • Line Location: QUICK51+4
Routine Call
  • DIE
  • Line Location:
    • NEW59+6
Routine Call
  • DIC
  • Line Location:
    • EXIST59+2
Routine Call
  • DIE
  • Line Location:
    • D5
    • CLEAR59+10
    • PR5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ABSPT - [#9002313.59] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABSP(9002313.51 - [#9002313.51] FILE+7, FILE+10, DELEMPTY+3, DELEMPTY+4, INSUR+3, INSUR+4, INSUR+7*, INSUR+8*, INSUR+10!, FILE1+1
, FILE1+2, FILE1+3, QUICK51+2
^ABSPECP("CHECKTIM" TASK+13, TASK+16*
^ABSPT - [#9002313.59] LOCK59, UNLOCK59, ACTIVE59+2
^DD( CLEAR59+5
^TMP("ABSPOSIZ" LOCK, UNLOCK

Label References

Name Line Occurrences
$$ACTIVE59 RXA
$$EXIST59 L59A+1
$$LOCK FILE+12, RXA+2
$$LOCK59 L59A, ACTIVE59+1
$$NEW59 L59N
$$NOW ACTIVE59+6
CLEAR59 L59A+2
D5 D5+4
DELEMPTY FILE+6
FILE1 FILE+16
FILERX FILE1+9
FZ FILE+7
INSUR FILE+13
L59A L59A
L59N L59N
PR5 PR5+4
PREVISLY CLEAR59+12
QUICK51 FILE+11
REMAP FILE1+8
RXA RXA
TASK FILE+19
TASKAT TASK+22
UNLOCK FILE+17, RXA+1
UNLOCK59 L59N+3, ACTIVE59+3

Naked Globals

Name Field # of Occurrence
^(1 DELEMPTY+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NOW~
%DT TASK+20~, TASK+21*
%H NOW~
%I NOW~
ABSPOSQ1 FILE+5~*, FILE+19, L59N+2*
ABSPQQQT TASK+9~, TASK+10*, TASK+14*, TASK+15
ABSPUSR FILE1+3~*, L59N+2
CHECK TASK+12~, TASK+13*, TASK+14
DEBUG FILERX+5~*
ECHO FILE~, FILE+3*, FILE+8, FILE+9, FILE+11, FILE+13, FILE+16, FZ, INSUR~, FILE1~
, RXA+24
ENTRY FILE+4~*, FILE+10*, FILE+11, FILE+13, FILE+14, FILE+15, FILE+16, DELEMPTY+2~*, DELEMPTY+3*, DELEMPTY+4
, DELEMPTY+6, INSUR~, INSUR+3, INSUR+4, INSUR+7, INSUR+8, INSUR+10, FILE1~, FILE1+1, RXA
, RXA+23, QUICK51~, QUICK51+2
FDA DELEMPTY+2~, DELEMPTY+7, NEW59+1~, CLEAR59+2~, PREVISLY+5~
FDA( DELEMPTY+6*, NEW59+5*, CLEAR59+9*, PREVISLY+5*
FIELD CLEAR59+2~, CLEAR59+4*, CLEAR59+5*, CLEAR59+7, CLEAR59+9
FLAGS NEW59+1~, NEW59+2*, NEW59+6, CLEAR59+2~, CLEAR59+3*, CLEAR59+10
FN DELEMPTY+2~*, DELEMPTY+6, NEW59+1~, NEW59+4*, NEW59+5, CLEAR59+2~, CLEAR59+3*, CLEAR59+5, CLEAR59+9, PREVISLY+5~
IEN FILE~, FILE+7, FILE+10, FILE+11, FILE+13, FILE+14, FILE+15, FILE+16, DELEMPTY+3, DELEMPTY+4
, DELEMPTY+6, INSUR~, INSUR+3, INSUR+4, INSUR+7, INSUR+8, INSUR+10, FILE1~, FILE1+1, FILE1+2
, FILE1+3, RXA, RXA+23, NEW59+1~, QUICK51~, QUICK51+2
IEN(1 NEW59+5*, NEW59+9
IEN59 FILERX+6~*, RXA, RXA+2, L59A, L59A+1, L59A+2, L59N, L59N+2, PREVISLY~, PREVISLY+2
, PREVISLY+5, ACTIVE59+1
INPUT FILE1+1~*
INPUT(0 FILE1+4, ISRX+2, ISPOST+2
INPUT(1 ISRX+1, ISPOST+1, ISVISIT+2, ISVISIT+3
MSG DELEMPTY+2~, D5+1, D5+2, NEW59+1~, NEW59+7, NEW59+8, CLEAR59+2~, CLEAR59+11, PREVISLY+5~, PR5+1
, PR5+2
N INSUR+3~*, INSUR+4, EXIST59~, EXIST59+2, NEW59~, NEW59+5, CLEAR59~, CLEAR59+3, CLEAR59+12, ACTIVE59~
, ACTIVE59+2
ORDER INSUR+6~*, INSUR+7, INSUR+8
ORIGIN FILE1+2~*, L59N+2
U FILE+7, INSUR+5, INSUR+6, INSUR+7, INSUR+8, FILE1+2, FILE1+3, FILE1+4, ISRX+1, ISRX+2
, ISPOST+1, ISPOST+2, ISVISIT+2, ISVISIT+3, ACTIVE59+5, ACTIVE59+6, QUICK51+3
X TASK+20~, TASK+21*, DELEMPTY+4~*, DELEMPTY+5, INSUR+4~*, INSUR+5, INSUR+6, INSUR+7, INSUR+8, FILE1+4~*
, ISRX+1~*, ISRX+3, ISPOST+1~*, ISPOST+2, ISVISIT+2~*, RXA+3~, RXA+23*, RXA+26, RXA+28, RXA+29
, RXA+32, EXIST59+1~, EXIST59+2*, EXIST59+3, NEW59+1~, NEW59+3~*, NEW59+5, CLEAR59+2~, CLEAR59+3*, CLEAR59+9
, PREVISLY+2~*, PREVISLY+3, PREVISLY+4*, PREVISLY+5, NOW~, QUICK51+1~, QUICK51+2*, QUICK51+3
Y TASK+20~, TASK+22, DELEMPTY+4~*, DELEMPTY+5
Z ACTIVE59+2~*, ACTIVE59+4, ACTIVE59+5, ACTIVE59+6
ZTDTH TASKAT~
ZTIO TASKAT+7~, TASKAT+8*
ZTRTN TASKAT+7~, TASKAT+8*

Marked Items

Name Field # of Occurrence
$T( FILE+12, D5+4, RXA+2, L59A, L59N, PR5+4, ACTIVE59+1
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 |  Naked Globals |  Local Variables |  Marked Items |  All