| [613] | 1 | FSCELS ;SLC/STAFF-NOIS Edit Log Setup ;8/30/97 17:03
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NEW(SITE,CALLNUM) ; from FSCEL
|
|---|
| 5 | N ASK,DA,DIE,DR,SITE0,STUFF
|
|---|
| 6 | S SITE0=^FSC("SITE",SITE,0)
|
|---|
| 7 | S DA=CALLNUM,DIE="^FSCD(""CALL"",",(ASK,DR,STUFF)=""
|
|---|
| 8 | D STRING($$MOD(DUZ),.STUFF,.ASK)
|
|---|
| 9 | D STRING($$SUBJECT(DUZ),.STUFF,.ASK)
|
|---|
| 10 | S ASK=ASK_";30Problem Description"
|
|---|
| 11 | D STRING($$CONTACT(SITE0,DUZ),.STUFF,.ASK)
|
|---|
| 12 | D STRING($$PRIORITY(DUZ),.STUFF,.ASK)
|
|---|
| 13 | D STRING($$SPEC(DUZ),.STUFF,.ASK)
|
|---|
| 14 | I $$PATCH^FSCEUD(DUZ)="P" D STRING(";7T",.STUFF,.ASK)
|
|---|
| 15 | I $$SUB^FSCEUD(DUZ)="P" D STRING(";S Y=$$SUB^FSCEU(DA);@1;3.2T;@2",.STUFF,.ASK)
|
|---|
| 16 | I $$KEYWORDS^FSCEUD(DUZ)="P" D STRING(";1.5T",.STUFF,.ASK)
|
|---|
| 17 | S DR=DR_STUFF_ASK I '$L(DR) Q
|
|---|
| 18 | I $E(DR)=";" S DR=$E(DR,2,245)
|
|---|
| 19 | L +^FSCD("CALL",CALLNUM):30 I '$T D SOMEONE^FSCLMPE1 Q
|
|---|
| 20 | D ^DIE
|
|---|
| 21 | L -^FSCD("CALL",CALLNUM)
|
|---|
| 22 | D PICKUP^FSCES(CALLNUM)
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | RECON(SITE,CALLNUM) ; from FSCEL
|
|---|
| 26 | N ASK,DA,DIE,DR,SITE0,STUFF
|
|---|
| 27 | S SITE0=^FSC("SITE",SITE,0)
|
|---|
| 28 | S DA=CALLNUM,DIE="^FSCD(""CALL"",",(ASK,DR,STUFF)=""
|
|---|
| 29 | D STRING($$CONTACT(SITE0,DUZ),.STUFF,.ASK)
|
|---|
| 30 | S DR=DR_STUFF_ASK I '$L(DR) Q
|
|---|
| 31 | I $E(DR)=";" S DR=$E(DR,2,245)
|
|---|
| 32 | L +^FSCD("CALL",CALLNUM):30 I '$T D SOMEONE^FSCLMPE1 Q
|
|---|
| 33 | D ^DIE
|
|---|
| 34 | L -^FSCD("CALL",CALLNUM)
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | CLOSE(CALLNUM,OK) ; from FSCEL, FSCLMPE1
|
|---|
| 38 | N ASK,DA,DIE,DR,STUFF S OK=1
|
|---|
| 39 | S DA=CALLNUM,DIE="^FSCD(""CALL"",",DR="81///`"_DUZ_";122///NOW",ASK=";80",STUFF=""
|
|---|
| 40 | D STRING($$HOURS(DUZ),.STUFF,.ASK)
|
|---|
| 41 | D STRING($$CDATE(DUZ),.STUFF,.ASK)
|
|---|
| 42 | D STRING($$FUNC(DUZ),.STUFF,.ASK)
|
|---|
| 43 | D STRING($$TASK(DUZ),.STUFF,.ASK)
|
|---|
| 44 | S DR=DR_STUFF_ASK
|
|---|
| 45 | L +^FSCD("CALL",CALLNUM):30 I '$T D SOMEONE^FSCLMPE1 Q
|
|---|
| 46 | D ^DIE
|
|---|
| 47 | L -^FSCD("CALL",CALLNUM)
|
|---|
| 48 | I $D(DTOUT) S OK=0
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | STRING(VALUE,STUFF,ASK) ; from FSCED
|
|---|
| 52 | I VALUE["///" S STUFF=STUFF_VALUE Q
|
|---|
| 53 | S ASK=ASK_VALUE
|
|---|
| 54 | Q
|
|---|
| 55 | ;
|
|---|
| 56 | PH(PERSON) ; $$(person) -> phone # from file 200
|
|---|
| 57 | Q $P($G(^VA(200,PERSON,.13)),U,2)
|
|---|
| 58 | ;
|
|---|
| 59 | MOD(USER) ; $$(user) -> preferred module default
|
|---|
| 60 | N DEF,NUM,VALUE S DEF=";3T",VALUE=$$MOD^FSCEUD(USER)
|
|---|
| 61 | I '$L($P(VALUE,U,2)) Q DEF
|
|---|
| 62 | I $P(VALUE,U)="S" S NUM=+$O(^FSC("MOD","B",$P(VALUE,U,2),0)) I NUM Q DEF_"///`"_NUM
|
|---|
| 63 | Q DEF_"//"_$P(VALUE,U,2)
|
|---|
| 64 | ;
|
|---|
| 65 | SPEC(USER) ; $$(user) -> preferred specialist default
|
|---|
| 66 | N DEF,VALUE S DEF=";5T",VALUE=$$SPEC^FSCEUD(USER)
|
|---|
| 67 | I $P(VALUE,U)="I" Q ""
|
|---|
| 68 | I '$L($P(VALUE,U,2)) Q DEF
|
|---|
| 69 | I $P(VALUE,U)="S" I DUZ=$P(VALUE,U,2) Q DEF_"///`"_DUZ
|
|---|
| 70 | Q DEF_"//"_$$VALUE^FSCGET($P(VALUE,U,2),7100,5)
|
|---|
| 71 | ;
|
|---|
| 72 | SUBJECT(USER) ; $$(user) -> preferred subject default
|
|---|
| 73 | N DEF,VALUE S DEF=";1T",VALUE=$$SUBJECT^FSCEUD(USER)
|
|---|
| 74 | I '$L($P(VALUE,U,2)) Q DEF
|
|---|
| 75 | I $P(VALUE,U)="S" Q DEF_"///"_$P(VALUE,U,2)
|
|---|
| 76 | Q DEF_"//"_$P(VALUE,U,2)
|
|---|
| 77 | ;
|
|---|
| 78 | CONTACT(SITE0,USER) ; $$(site zero node,user) -> preferred site contact default
|
|---|
| 79 | N CONTACT,DEF,DEF1,PHONE
|
|---|
| 80 | S DEF=";D CINFO^FSCELS(DA);2.1T;H .1;2.2T//^S X=$$CPHONE^FSCELS(DA)"
|
|---|
| 81 | S CONTACT=$$CONTACT^FSCEUD(SITE0,USER)
|
|---|
| 82 | I '$L($P(CONTACT,U,2)) Q DEF
|
|---|
| 83 | S DEF1=";D CINFO^FSCELS(DA);2.1T//"_$P(CONTACT,U,2)_";H .1;2.2T//^S X=$$CPHONE^FSCELS(DA)"
|
|---|
| 84 | S PHONE=$$PHONE^FSCEUD(SITE0,USER)
|
|---|
| 85 | I '$L($P(PHONE,U,2)) Q DEF1
|
|---|
| 86 | I $P(CONTACT,U)="S",$P(PHONE,U)="S" Q ";2.1T///`"_$P(SITE0,U,6)_";2.2T///"_$P(PHONE,U,2)
|
|---|
| 87 | Q DEF1
|
|---|
| 88 | ;
|
|---|
| 89 | CINFO(CALL) ;
|
|---|
| 90 | N APINFO,IRMINFO,MOD,NOISINFO,SITE,SITEINFO
|
|---|
| 91 | S SITE=$P($G(^FSCD("CALL",CALL,0)),U,5),MOD=$P($G(^(0)),U,8)
|
|---|
| 92 | I 'SITE Q
|
|---|
| 93 | S NOISINFO=$$NOISINFO^FSCLMPOC(SITE),IRMINFO=$$IRMINFO^FSCLMPOC(SITE),APINFO=$$APINFO^FSCLMPOC(SITE,MOD),SITEINFO=$$SITEINFO^FSCLMPOC(SITE)
|
|---|
| 94 | W !!,"Location contact: ",$S($L(NOISINFO):NOISINFO,1:"unavailable")
|
|---|
| 95 | I $L(SITEINFO) W !,SITEINFO
|
|---|
| 96 | I $L(IRMINFO) W !,"IRM Chief: ",IRMINFO
|
|---|
| 97 | I $L(APINFO) W !,"ADPAC: ",APINFO
|
|---|
| 98 | Q
|
|---|
| 99 | ;
|
|---|
| 100 | CPHONE(CALL) ; $$(call) -> phone # of contact
|
|---|
| 101 | N CONTACT,PHONE
|
|---|
| 102 | S CONTACT=+$P($G(^FSCD("CALL",CALL,0)),U,6)
|
|---|
| 103 | I 'CONTACT Q ""
|
|---|
| 104 | S PHONE=$P($G(^VA(200,CONTACT,.13)),U,2)
|
|---|
| 105 | I '$L(PHONE),CONTACT=$P($G(^FSC("SITE",+$P(^FSCD("CALL",CALL,0),U,5),0)),U,6) S PHONE=$S($L($P($G(^(0)),U,7)):$P(^(0),U,7),1:$P($G(^(0)),U,8))
|
|---|
| 106 | Q PHONE
|
|---|
| 107 | ;
|
|---|
| 108 | PRIORITY(USER) ; $$(user) -> preferred edit
|
|---|
| 109 | N DEF,NUM,VALUE S DEF=";6T",VALUE=$$PRIORITY^FSCEUD(USER)
|
|---|
| 110 | I '$L($P(VALUE,U,2)) Q DEF
|
|---|
| 111 | I $P(VALUE,U)="S" S NUM=+$O(^FSC("PRI","B",$P(VALUE,U,2),0)) I NUM Q DEF_"///`"_NUM
|
|---|
| 112 | Q DEF_"//"_$P(VALUE,U,2)
|
|---|
| 113 | ;
|
|---|
| 114 | HOURS(USER) ; $$(user) -> preferred hours default
|
|---|
| 115 | Q ";83T"
|
|---|
| 116 | ;
|
|---|
| 117 | CDATE(USER) ; $$(user) -> preferred close date default
|
|---|
| 118 | Q ";82T//TODAY"
|
|---|
| 119 | ;
|
|---|
| 120 | FUNC(USER) ; $$(user) -> preferred functional area default
|
|---|
| 121 | Q ";8T//"_$$VALUE^FSCGET($P(^FSC("SPEC",DUZ,0),U,4),7105.2,4)
|
|---|
| 122 | ;
|
|---|
| 123 | TASK(USER) ; $$(user) -> preferred task default
|
|---|
| 124 | Q ";9T//PROBLEM RESOLUTION"
|
|---|
