Routine: ACMLCMS

Information

ACMLCMS ; IHS/TUCSON/TMJ - ENTRY TO SET AND DISPLAY CLIENT DATA ; [ 01/03/06 2:03 PM ]

Package	Total	Caller Graph
Case Management System	4	ACMCTRL2 ACMLPAT ACMPPDT ACMPPDTX
Diabetes Registry	1	BDMPPDT

Name	Comments	DBIA/ICR reference
INIT	;S ACMDOB=$P(^DPT(ACMPTNO,0),U,3),(Y,X2)=ACMDOB,X1=DT
ACMPT	;EP;TO DISPLAY PATIENT INFO
VARS
LCMS

Name	Line Occurrences
Function Call: WRITE	Prompt: ?35,"PRIMARY CARE PROVIDER: ",$$VAL^XBDIQ1(9000001,ACMPTNO,.14) Line Location: ACMPT+3
Function Call: WRITE	Prompt: !?9,"DOB: ",?14,ACMDOB,?53,"AGE: ",ACMAGE Line Location: ACMPT+4
Function Call: WRITE	Prompt: !?46,"HOME PHONE: ",$G(ACMPHONE) Line Location: ACMPT+6
Function Call: WRITE	Prompt: !,"************************ INSURANCE INFORMATION *************************",! Line Location: ACMPT+17
Function Call: WRITE	Prompt: ! Line Location: ACMPT+19
Function Call: WRITE	Prompt: " ********************* PATIENT INFORMATION ***********************",! Line Location: ACMPT+20
Function Call: WRITE	Prompt: ?6,"STATUS: ",$S(ACMSTAT="A":"ACTIVE",ACMSTAT="I":"INACTIVE",ACMSTAT="T":"TRANSIENT",ACMSTAT="U":"UNREVIEWED",ACMSTAT="D":"DECEASED",ACMSTAT="N":"NON-IHS",1:"NOT STATED") Line Location: ACMPT+21
Function Call: WRITE	Prompt: ?44,"CASE PRIORIT: ",?58,$S(ACMSEV="L":"LOW",ACMSEV="M":"MEDIUM",ACMSEV="H":"HIGH",ACMSEV="C":"CRITICAL",1:"NOT STATED"),!,?6,"REGISTER PRV: ",?14,ACMPRV Line Location: ACMPT+23
Function Call: WRITE	Prompt: ?46,"INIT ENTRY: ",$S($D(ACMINIT):ACMINIT,1:"NOT STATED"),!,?6,"CASE MANAGER: ",?14,ACMMGR,?46,"WHERE FLWD: ",ACMWHER Line Location: ACMPT+24
Function Call: WRITE	Prompt: !,?6,"PUB HLTH NRS:",?14,$S($D(ACMPHN):ACMPHN,1:"NONE ASSIGNED") Line Location: ACMPT+25
Routine Call	DIE Line Location: ACMPT+26

FileNo	Call Tags
^ACM(41 - [#9002241]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNMCD("B"	ACMPT+13
^AUPNMCR - [#9000003]	ACMPT+14
^AUPNPAT - [#9000001]	VARS, VARS+14
^AUPNPRVT - [#9000006]	ACMPT+15
^AUPNRRE - [#9000005]	ACMPT+16
^AUTTLOC - [#9999999.06]	VARS+11
^DD("DD"	INIT+3, VARS+9
^DPT - [#2]	INIT+1
^VA(200 - [#200]	VARS+5, VARS+7, VARS+13

Name	Line Occurrences
INIT	LCMS
VARS	LCMS

Name	Field # of Occurrence
>> ACMAGE	INIT+5, INIT+6, INIT+7*, ACMPT+4
>> ACMCOMM	VARS+1, VARS+14, VARS+15*, ACMPT+5
>> ACMDOB	INIT+1, INIT+4, ACMPT+4
ACMDT	VARS+2, VARS+3, VARS+4, VARS+6, VARS+8, VARS+9, VARS+10, VARS+12, VARS+16!
>> ACMINIT	VARS+1, VARS+9, ACMPT+24
>> ACMINS	ACMPT+12, ACMPT+13, ACMPT+14, ACMPT+15, ACMPT+16*, ACMPT+17
>> ACMMGR	VARS+1, VARS+4, VARS+5*, ACMPT+24
>> ACMPAGE	ACMPT+1, ACMPT+2, ACMPT+26
>> ACMPC	VARS+1, VARS+12
>> ACMPG	VARS+1, VARS+12, ACMPT+5
>> ACMPHN	VARS+1, VARS+6, VARS+7*, ACMPT+25
>> ACMPHONE	INIT+1*, ACMPT+6
>> ACMPRV	VARS+1, VARS+12, VARS+13*, ACMPT+23
>> ACMPTNO	INIT+1, VARS, VARS+14, ACMPT+3, ACMPT+8, ACMPT+13, ACMPT+14, ACMPT+15, ACMPT+16
>> ACMRGDFN	VARS+2, ACMPT+26
>> ACMSEV	VARS+1, VARS+8, ACMPT+23
>> ACMSRT	VARS*, ACMPT+1
>> ACMSTAT	VARS+1, VARS+4, ACMPT+21
>> ACMWHER	VARS+1, VARS+10, VARS+11*, ACMPT+24
APCHSCKP	ACMPT+7~, ACMPT+9*
>> APCHSCVD	ACMPT+11*
APCHSNPG	ACMPT+7~, ACMPT+10*
APCHSPAT	ACMPT+7~, ACMPT+8*
>> DA	ACMPT+26*
>> DIE	ACMPT+26*
>> DR	ACMPT+26*
DT	INIT+1, ACMPT+26
DUZ(2	VARS
IOST	ACMPT+26
U	INIT+1, VARS, VARS+4, VARS+5, VARS+6, VARS+7, VARS+8, VARS+9, VARS+10, VARS+11 , VARS+12, VARS+13, VARS+14
>> X	INIT+5, INIT+6, INIT+7
>> X1	INIT+1*
>> X2	INIT+1*
>> Y	INIT+1, INIT+4, VARS+9