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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AGMCDP

Package: IHS Patient Registration

Routine: AGMCDP


Information

AGMCDP ;IHS/ASDS/EFG - PRINT LIST OF MEDICAID ACCOUNTS ;

Source Information

Source file <AGMCDP.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
IHS Patient Registration 3 (CTR,LINE,NOW,RTRN)^AG  ^AGDICLK  $$S^AGVDF  
Kernel 3 ^%ZIS  ^%ZISC  (,KILL)^%ZTLOAD  
VA Fileman 3 NOW^%DTC  ^DIC  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ACCTS ;
ALL ;
PLAN2 ;
PLANS ;
TO ;
CURRENT ;
OPEN ;
DT(DT) ;
TERM ;
DEV ;
WRITE
START ;EP - From TaskMan.
B1
ACTIVE ;if they have HRN, are active, and have info in VA PATIENT
END ;
PTS ;
FROM ;
HDR ;

External References

Name Field # of Occurrence
NOW^%DTC AGMCDP+15
^%ZIS DEV+1, WRITE+1
^%ZISC DEV+2, DEV+12, END+2
^%ZTLOAD DEV+9
KILL^%ZTLOAD END+6
CTR^AG WRITE, WRITE+8
LINE^AG HDR+27
NOW^AG WRITE
RTRN^AG WRITE+46, END+1, B1
^AGDICLK WRITE+21
$$S^AGVDF END+1, HDR+5
^DIC PLAN2+18
^DIR ACCTS+3, PLAN2+8, PTS+5, FROM+3, TO+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PLAN2+1
Function Call: WRITE
  • Prompt: *7,!,"Please queue to system printers."
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: ?30,$P($G(^DPT(DFN,.13)),U)
  • Line Location: WRITE+15
Function Call: WRITE
  • Prompt: $P(^(0),U,2)
  • Condition for execution: $D(^AUPNPAT(DFN,41,DUZ(2),0))
  • Line Location: WRITE+25
Function Call: WRITE
  • Prompt: ?55,AGCTY
  • Line Location: WRITE+25
Function Call: WRITE
  • Prompt: "-"
  • Line Location: WRITE+43
Function Call: WRITE
  • Prompt: !!!,"TOTAL MEDICAID PATIENTS: ",AGTOT
  • Line Location: END+1
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF")
  • Line Location: END+1
Function Call: WRITE
  • Prompt: " FOR ALL PLANS"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: ?30,"HOME PHONE"
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: B1+1
Routine Call
  • DIC
  • Line Location:
    • PLAN2+18
Routine Call
  • DIR
  • Line Location:
    • ACCTS+3
    • PLAN2+8
    • PTS+5
    • FROM+3
    • TO+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1
    • WRITE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUTNINS - [#9999999.18] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DEV+3, WRITE+7
^AUPNMCD - [#9000004] ALL+2, ALL+3, ALL+8, OPEN+2, OPEN+3, OPEN+7, CURRENT+2, CURRENT+3, CURRENT+7, TERM+2
, TERM+3, TERM+7
^AUPNMCD("AB" START+5, START+6, START+7, START+8
^AUPNPAT - [#9000001] WRITE+25, ACTIVE+1
^AUTNINS - [#9999999.18] WRITE+38
^AUTTCOM - [#9999999.05] WRITE+22, WRITE+23
^AUTTCTY - [#9999999.23] WRITE+24
^AUTTLOC - [#9999999.06] DEV+6
^DD("DD" DT+4
^DIC(4 - [#4] WRITE+4
^DIC(5 - [#5] WRITE+29
^DPT - [#2] WRITE+15, ACTIVE+1, ALL+15, OPEN+15, CURRENT+15, TERM+16
^TMP($J START+4!, WRITE+11, WRITE+14, WRITE+28, WRITE+30, WRITE+32, WRITE+33, END+3!, ALL+15*, OPEN+15*
, CURRENT+15*, TERM+16*
^VA(200 - [#200] WRITE+5

Label References

Name Line Occurrences
$$DT WRITE+35, WRITE+36, HDR+2, HDR+3
ACTIVE START+10
ALL START+11, ACTIVE+5
CURRENT ACTIVE+3
DEV DEV+2, DEV+10
END START+13, WRITE+47, B1
FROM ACCTS+6
HDR WRITE+9, WRITE+48, B1
OPEN ACTIVE+2
START DEV+2
TERM ACTIVE+4
WRITE START+12

Naked Globals

Name Field # of Occurrence
^( ACTIVE+1
^(0 WRITE+24, WRITE+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+1*
>> A WRITE+43*
AG DEV+11!, END+3!
AG("DRENT" WRITE+19*
AG("HAT" AGMCDP+13*, END+1!
AG("LINE" HDR+27*
AG("LKDATA" WRITE+22, WRITE+23, END+4!
AG("LKERR" WRITE+22, END+4!
AG("LKPRINT" END+4!
AG("LOC" WRITE+4*, WRITE+6, WRITE+7, END+4!
AG("PLANS" PLANS+1!, PLAN2+4, PLAN2+11*, PLAN2+12!, PLAN2+20*, HDR+15, HDR+16, HDR+21, ALL+11, ALL+12
, ALL+13, OPEN+10, OPEN+11, OPEN+12, CURRENT+10, CURRENT+11, CURRENT+12, TERM+10, TERM+11, TERM+12
AG("USR" WRITE+5*, WRITE+6, END+5!
AG("USRLOC" WRITE+6*, WRITE+7*, END+5!, HDR+5
>> AGACCTS ACCTS+4*, ACCTS+6, WRITE+15, HDR+9, HDR+10, HDR+11, HDR+12, HDR+24, ACTIVE+2, ACTIVE+3
, ACTIVE+4, ACTIVE+5
>> AGACCTS1 HDR+9*, HDR+10*, HDR+11*, HDR+12*, HDR+13
AGBM WRITE+2*, WRITE+45, END+3!, B1
>> AGCOV WRITE+34*, WRITE+40*, WRITE+41, ALL+7*, ALL+15, OPEN+6*, OPEN+15, CURRENT+6*, CURRENT+15, TERM+6*
, TERM+16
AGCP WRITE+23*, WRITE+24, END+3!
AGCTY WRITE+20*, WRITE+24*, WRITE+25, END+3!
>> AGELG ALL+3*, ALL+4, ALL+6, ALL+7, OPEN+3*, OPEN+4, OPEN+5, OPEN+6, CURRENT+3*, CURRENT+4
, CURRENT+5, CURRENT+6, TERM+3*, TERM+4, TERM+5, TERM+6
>> AGELG2 ALL+8*, ALL+9, ALL+14, OPEN+7*, OPEN+8, OPEN+13, CURRENT+7*, CURRENT+8, CURRENT+13, TERM+7*
, TERM+8, TERM+13
>> AGELGBEG WRITE+31*, WRITE+32*, WRITE+33, WRITE+35, ALL+4*, ALL+5, ALL+15, OPEN+4*, OPEN+14, OPEN+15
, CURRENT+4*, CURRENT+15, TERM+4*, TERM+16
>> AGELGBG1 WRITE+34*, WRITE+35*, WRITE+41
>> AGELGDT ALL+1*, ALL+2*, ALL+3, OPEN+1*, OPEN+2*, OPEN+3, CURRENT+1*, CURRENT+2*, CURRENT+3, TERM+1*
, TERM+2*, TERM+3
>> AGELGED1 WRITE+34*, WRITE+36*, WRITE+41
>> AGELGEND ALL+6*, ALL+15, OPEN+5*, OPEN+15, CURRENT+5*, CURRENT+14, CURRENT+15, TERM+5*, TERM+14, TERM+15
, TERM+16
>> AGEND START+13, WRITE+10*, WRITE+11, WRITE+14, WRITE+47*
>> AGFLAG START+9*
>> AGFLG ALL+10*, ALL+11, ALL+12*, ALL+13*, OPEN+9*, OPEN+10, OPEN+11*, OPEN+12*, CURRENT+9*, CURRENT+10
, CURRENT+11*, CURRENT+12*, TERM+9*, TERM+10, TERM+11*, TERM+12*
>> AGFRMDT ACCTS+7, HDR+1, HDR+2, FROM+4*, OPEN+14, TERM+15
>> AGFRMDT1 HDR+2*, HDR+11, HDR+12
>> AGIMID START+3*, START+8*, ALL+2, ALL+3, ALL+8, OPEN+2, OPEN+3, OPEN+7, CURRENT+2, CURRENT+3
, CURRENT+7, TERM+2, TERM+3, TERM+7
AGIO AGMCDP+13*, DEV+11!, WRITE+2, END+3!
AGL END+3!
>> AGMID START+3*, START+7*, START+8, WRITE+26*, WRITE+30*, WRITE+32, WRITE+33, WRITE+41, ALL+15, OPEN+15
, CURRENT+15, TERM+16
AGNM WRITE+8*, WRITE+10*, WRITE+11*, WRITE+13, WRITE+14, WRITE+28, WRITE+30, WRITE+32, WRITE+33, END+4!
AGNUM END+4!
AGPCC END+4!
AGPGPG WRITE+3*, END+5!, HDR+4*, HDR+5
>> AGPLAN WRITE+34*, WRITE+37*, WRITE+38*, WRITE+41, ALL+9*, ALL+12, ALL+13, ALL+15, OPEN+8*, OPEN+11
, OPEN+12, OPEN+15, CURRENT+8*, CURRENT+11, CURRENT+12, CURRENT+15, TERM+8*, TERM+11, TERM+12, TERM+16
>> AGPLN HDR+14*, HDR+16*, HDR+17*, HDR+18, HDR+19
>> AGPLNNM HDR+14*, HDR+15*, HDR+16, HDR+17
>> AGPLNS HDR+14*, HDR+18*, HDR+19*, HDR+20
AGPT END+5!
>> AGPTS PTS+6*, START+10, START+11, HDR+6
>> AGPTS1 HDR+6*, HDR+7*, HDR+8
AGQIO DEV+7*, DEV+11!, WRITE+1
>> AGRATE WRITE+34*, WRITE+39*, WRITE+41, ALL+14*, ALL+15, OPEN+13*, OPEN+15, CURRENT+13*, CURRENT+15, TERM+13*
, TERM+16
>> AGREC WRITE+33*, WRITE+36, WRITE+37, WRITE+39, WRITE+40
AGST AGMCDP+14~, START+2*, START+6*, START+7, START+8, WRITE+27*, WRITE+28*, WRITE+29, WRITE+30, WRITE+32
, WRITE+33, END+5!, ALL+15, OPEN+15, CURRENT+15, TERM+16
AGTIME WRITE*, END+3!, HDR+23
>> AGTODAY AGMCDP+16*, CURRENT+14
>> AGTODT ACCTS+7, HDR+1, HDR+3, TO+4*, OPEN+14, TERM+15
>> AGTODT1 HDR+3*, HDR+11, HDR+12
AGTOT WRITE+3*, WRITE+44*, END+1, END+5!
AGUCI WRITE+8*, END+5!, HDR+22
>> AGZ("I" WRITE+1*
DA WRITE+16*, END+3!
DFN START+1*, START+5*, START+6, START+7, START+8, WRITE+10*, WRITE+12*, WRITE+14*, WRITE+15, WRITE+16
, WRITE+25, WRITE+28, WRITE+30, WRITE+32, WRITE+33, END+3!, ACTIVE+1, ALL+15, OPEN+15, CURRENT+15
, TERM+16
>> DFOUT WRITE+47, B1
DIC PLAN2+13*, WRITE+17*, END+3!
DIC("S" PLAN2+17*
DIC(0 PLAN2+15*
DIR ACCTS+3!, PLAN2+8!, PTS+5!, FROM+3!, TO+3!
DIR("A" ACCTS+2*, PLAN2+5*, PLAN2+7*, PTS+2*, PTS+3*, FROM+2*, TO+2*
DIR("B" PLAN2+6*, PTS+4*
DIR(0 ACCTS+1*, PLAN2+3*, PTS+1*, FROM+1*, TO+1*
>> DIROUT PLAN2+10
DR WRITE+18*, END+3!
DT DT~, DT+1, DT+4
>> DT1 DT+4*, DT+5
>> DTOUT ACCTS+5, PLAN2+10, PTS+7, WRITE+47, FROM+5, TO+5, B1
>> DUOUT PLAN2+10, PLAN2+21, WRITE+47, B1
DUZ WRITE+5
DUZ(2 DEV+6, WRITE+4, WRITE+25, ACTIVE+1
G DEV+7*, DEV+11!, END+3!
I END+3!
IO AGMCDP+13, DEV+7, WRITE+2, WRITE+9
IO("Q" DEV+2!
IO("S" DEV+2
ION DEV+1
>> IOP DEV+1*, WRITE+1*
IOSL WRITE+2
IOST DEV+2
>> POP DEV+1, WRITE+1
U DEV+6, WRITE+4, WRITE+5, WRITE+15, WRITE+23, WRITE+24, WRITE+25, WRITE+29, WRITE+36, WRITE+37
, WRITE+38, WRITE+39, WRITE+40, ACTIVE+1, ALL+4, ALL+6, ALL+7, ALL+9, ALL+14, ALL+15
, OPEN+4, OPEN+5, OPEN+6, OPEN+8, OPEN+13, OPEN+15, CURRENT+4, CURRENT+5, CURRENT+6, CURRENT+8
, CURRENT+13, CURRENT+15, TERM+4, TERM+5, TERM+6, TERM+8, TERM+13, TERM+16
>> X AGMCDP+16, PLAN2+2, PLAN2+14*, PLAN2+19, WRITE*, WRITE+8*
Y ACCTS+4, ACCTS+5, PLAN2+2, PLAN2+9, PLAN2+11*, PLAN2+12*, PLAN2+14, PLAN2+20, PTS+6, PTS+7
, DEV+5, WRITE+8, END+5!, FROM+4, FROM+5, TO+4, TO+5, DT+4*
ZTDESC DEV+6*, DEV+11!
ZTIO DEV+5*, DEV+11!
>> ZTQUEUED END+6
ZTRTN DEV+4*, DEV+11!
ZTSAVE DEV+11!
ZTSAVE( DEV+7*
ZTSAVE("AG*" DEV+8*
ZTSK DEV+10, DEV+11!
ZTUCI DEV+5*, DEV+11!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All